From 88e9aca31845b155bd86100c41b6c41b2a4faeeb Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Tue, 14 Jan 2014 15:58:47 -0500 Subject: [PATCH] Revert "Bug 10481: Unit tests for C4::Members::AddEnrolmentFeeIfNeeded" This reverts commit 262f1bb60823159c0d15707ac3cfe7ccb3cc4d8c. --- .../Members/AddEnrolmentFeeIfNeeded.t | 56 ------------------- 1 file changed, 56 deletions(-) delete mode 100644 t/db_dependent/Members/AddEnrolmentFeeIfNeeded.t diff --git a/t/db_dependent/Members/AddEnrolmentFeeIfNeeded.t b/t/db_dependent/Members/AddEnrolmentFeeIfNeeded.t deleted file mode 100644 index 46d9ec12ce..0000000000 --- a/t/db_dependent/Members/AddEnrolmentFeeIfNeeded.t +++ /dev/null @@ -1,56 +0,0 @@ -use Modern::Perl; -use Test::More tests => 3; - -use C4::Context; -use C4::Members; - -my $dbh = C4::Context->dbh; -$dbh->{AutoCommit} = 0; -$dbh->{RaiseError} = 1; - -my $enrolmentfee_K = 5; -my $enrolmentfee_J = 10; -my $enrolmentfee_YA = 20; - -$dbh->do(q{ - UPDATE categories - SET enrolmentfee=? - WHERE categorycode=? -}, {}, $enrolmentfee_K, 'K' ); - -$dbh->do(q{ - UPDATE categories - SET enrolmentfee=? - WHERE categorycode=? -}, {}, $enrolmentfee_J, 'J' ); - -$dbh->do(q{ - UPDATE categories - SET enrolmentfee=? - WHERE categorycode=? -}, {}, $enrolmentfee_YA, 'YA' ); - -my %borrower_data = ( - firstname => 'my firstname', - surname => 'my surname', - categorycode => 'K', - branchcode => 'CPL', -); - -my $borrowernumber = C4::Members::AddMember( %borrower_data ); -$borrower_data{borrowernumber} = $borrowernumber; - -my ( $total ) = C4::Members::GetMemberAccountRecords( $borrowernumber ); -is( $total, $enrolmentfee_K, "New kid pay $enrolmentfee_K" ); - -$borrower_data{categorycode} = 'J'; -C4::Members::ModMember( %borrower_data ); -( $total ) = C4::Members::GetMemberAccountRecords( $borrowernumber ); -is( $total, $enrolmentfee_K + $enrolmentfee_J, "Kid growing and become a juvenile, he should pay " . ( $enrolmentfee_K + $enrolmentfee_J ) ); - -# Check with calling directly AddEnrolmentFeeIfNeeded -C4::Members::AddEnrolmentFeeIfNeeded( 'YA', $borrowernumber ); -( $total ) = C4::Members::GetMemberAccountRecords( $borrowernumber ); -is( $total, $enrolmentfee_K + $enrolmentfee_J + $enrolmentfee_YA, "Juvenile growing and become an young adult, he should pay " . ( $enrolmentfee_K + $enrolmentfee_J + $enrolmentfee_YA ) ); - -$dbh->rollback; -- 2.39.5