- 

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;