From cfc15b53e345dc72fe14a7a766b604dedaca1df8 Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Fri, 21 Aug 2015 13:00:11 +0200 Subject: [PATCH] Bug 14702: Unit test for GetReservesFee Content-Type: text/plain; charset=utf-8 Test plan: Run the test! --- t/db_dependent/Reserves_GetReserveFee.t | 44 +++++++++++++++++++++++++++++++ 1 file changed, 44 insertions(+) create mode 100755 t/db_dependent/Reserves_GetReserveFee.t diff --git a/t/db_dependent/Reserves_GetReserveFee.t b/t/db_dependent/Reserves_GetReserveFee.t new file mode 100755 index 0000000..d46cfb8 --- /dev/null +++ b/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' ); -- 1.7.10.4