View | Details | Raw Unified | Return to bug 13697
Collapse All | Expand All

(-)a/t/db_dependent/Members/AddEnrolmentFeeIfNeeded.t (-2 / +11 lines)
Lines 1-5 Link Here
1
use Modern::Perl;
1
use Modern::Perl;
2
use Test::More tests => 3;
2
use Test::More tests => 4;
3
3
4
use C4::Context;
4
use C4::Context;
5
use C4::Members;
5
use C4::Members;
Lines 43-48 $borrower_data{borrowernumber} = $borrowernumber; Link Here
43
my ( $total ) = C4::Members::GetMemberAccountRecords( $borrowernumber );
43
my ( $total ) = C4::Members::GetMemberAccountRecords( $borrowernumber );
44
is( $total, $enrolmentfee_K, "New kid pay $enrolmentfee_K" );
44
is( $total, $enrolmentfee_K, "New kid pay $enrolmentfee_K" );
45
45
46
C4::Context->set_preference( 'FeeOnChangePatronCategory', 0 );
47
$borrower_data{categorycode} = 'J';
48
C4::Members::ModMember( %borrower_data );
49
( $total ) = C4::Members::GetMemberAccountRecords( $borrowernumber );
50
is( $total, $enrolmentfee_K , "Kid growing and become a juvenile, but shouldn't pay for the upgrade ");
51
52
$borrower_data{categorycode} = 'K';
53
C4::Members::ModMember( %borrower_data );
54
C4::Context->set_preference( 'FeeOnChangePatronCategory', 1 );
55
46
$borrower_data{categorycode} = 'J';
56
$borrower_data{categorycode} = 'J';
47
C4::Members::ModMember( %borrower_data );
57
C4::Members::ModMember( %borrower_data );
48
( $total ) = C4::Members::GetMemberAccountRecords( $borrowernumber );
58
( $total ) = C4::Members::GetMemberAccountRecords( $borrowernumber );
49
- 

Return to bug 13697