From a9e33d0cb588f1bed26d8cf057e27258608d5018 Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Fri, 20 Mar 2015 10:48:20 -0400 Subject: [PATCH] Bug 13697 [QA Followup] - Add Unit Test --- t/db_dependent/Members/AddEnrolmentFeeIfNeeded.t | 12 +++++++++++- 1 files changed, 11 insertions(+), 1 deletions(-) diff --git a/t/db_dependent/Members/AddEnrolmentFeeIfNeeded.t b/t/db_dependent/Members/AddEnrolmentFeeIfNeeded.t index 46d9ec1..7405dc9 100644 --- a/t/db_dependent/Members/AddEnrolmentFeeIfNeeded.t +++ b/t/db_dependent/Members/AddEnrolmentFeeIfNeeded.t @@ -1,5 +1,5 @@ use Modern::Perl; -use Test::More tests => 3; +use Test::More tests => 4; use C4::Context; use C4::Members; @@ -43,6 +43,16 @@ $borrower_data{borrowernumber} = $borrowernumber; my ( $total ) = C4::Members::GetMemberAccountRecords( $borrowernumber ); is( $total, $enrolmentfee_K, "New kid pay $enrolmentfee_K" ); +C4::Context->set_preference( 'FeeOnChangePatronCategory', 0 ); +$borrower_data{categorycode} = 'J'; +C4::Members::ModMember( %borrower_data ); +( $total ) = C4::Members::GetMemberAccountRecords( $borrowernumber ); +is( $total, $enrolmentfee_K , "Kid growing and become a juvenile, but shouldn't pay for the upgrade "); + +$borrower_data{categorycode} = 'K'; +C4::Members::ModMember( %borrower_data ); +C4::Context->set_preference( 'FeeOnChangePatronCategory', 1 ); + $borrower_data{categorycode} = 'J'; C4::Members::ModMember( %borrower_data ); ( $total ) = C4::Members::GetMemberAccountRecords( $borrowernumber ); -- 1.7.2.5