@@ -, +, @@ --- t/db_dependent/Borrower_Debarments.t | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) --- a/t/db_dependent/Borrower_Debarments.t +++ a/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'} ); --