@@ -, +, @@ --- t/db_dependent/Reserves_GetReserveFee.t | 44 +++++++++++++++++++++++++++++++ 1 file changed, 44 insertions(+) create mode 100755 t/db_dependent/Reserves_GetReserveFee.t --- a/t/db_dependent/Reserves_GetReserveFee.t +++ a/t/db_dependent/Reserves_GetReserveFee.t @@ -0,0 +1,44 @@ +#!/usr/bin/perl + +use Modern::Perl; +use Test::More tests => 3; + +use C4::Reserves qw|GetReserveFee|; +use t::lib::TestBuilder; + +my $builder = t::lib::TestBuilder->new(); + +# Two categories +$builder->build({ + source => 'Category', + value => { + categorycode => 'XYZ1', + reservefee => 2.5, + }, +}); +$builder->build({ + source => 'Category', + value => { + categorycode => 'XYZ2', + reservefee => 0, + }, +}); + +# Two patrons +my $patron1 = $builder->build({ + source => 'Borrower', + value => { + categorycode => 'XYZ1', + }, +}); +my $patron2 = $builder->build({ + source => 'Borrower', + value => { + categorycode => 'XYZ2', + }, +}); + +# Call GetReserveFee with no borrower and the two patrons +is( GetReserveFee(), undef, 'First call without pars works fine' ); +is( GetReserveFee( $patron1->{borrowernumber} ) > 0, 1, 'Second call should trigger some fee' ); +is( GetReserveFee( $patron2->{borrowernumber} ), undef, 'Third call should not trigger any fee' ); --