From 5949e3e395a49e1ea8006f6e882fa7b4d6218fa6 Mon Sep 17 00:00:00 2001 From: Yohann Dufour Date: Mon, 16 Jun 2014 09:13:35 +0200 Subject: [PATCH] Bug 12416: add the test of DelUniqueDebarment The subroutine DelUniqueDebarment was not tested To test: execute the command prove t/db_dependent/Borrower_Debarments.t The command has to print: t/db_dependent/Borrower_Debarments.t .. ok All tests successful. Files=1, Tests=22, 2 wallclock secs ( 0.03 usr 0.01 sys + 1.43 cusr 0.07 csys = 1.54 CPU) Result: PASS --- t/db_dependent/Borrower_Debarments.t | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Borrower_Debarments.t b/t/db_dependent/Borrower_Debarments.t index 44d82b9..2f63fcf 100755 --- a/t/db_dependent/Borrower_Debarments.t +++ b/t/db_dependent/Borrower_Debarments.t @@ -5,7 +5,7 @@ use Modern::Perl; use C4::Context; use C4::Members; -use Test::More tests => 21; +use Test::More tests => 22; use_ok('Koha::Borrower::Debarments'); @@ -86,6 +86,17 @@ ok( @$debarments == 1, "GetDebarments returns 1 OVERDUES debarment after running ok( $debarments->[0]->{'expiration'} eq '9999-11-09', "AddOverduesDebarment updated OVERDUES debarment correctly" ); +DelUniqueDebarment({ + borrowernumber => $borrowernumber, + type => 'OVERDUES', +}); +$debarments = GetDebarments({ + borrowernumber => $borrowernumber, + type => 'OVERDUES', +}); +is( @$debarments, 0, "DelUniqueDebarment functions correctly" ); + + $debarments = GetDebarments({ borrowernumber => $borrowernumber }); foreach my $d ( @$debarments ) { DelDebarment( $d->{'borrower_debarment_id'} ); -- 1.9.1