From 80d4bdb6a32eeaa75e3b73534a998b673e05b1ac Mon Sep 17 00:00:00 2001 From: Yohann Dufour Date: Fri, 13 Jun 2014 11:52:23 +0200 Subject: [PATCH] Bug 12416: add the test of DelUniqueDebarment The subroutine DelUniqueDebarment was not tested test plan: 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.46 cusr 0.08 csys = 1.58 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..19bbd94 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', +}); +ok( @$debarments == 0, "DelUniqueDebarment functions correctly" ); + + $debarments = GetDebarments({ borrowernumber => $borrowernumber }); foreach my $d ( @$debarments ) { DelDebarment( $d->{'borrower_debarment_id'} ); -- 1.9.1