View | Details | Raw Unified | Return to bug 14368
Collapse All | Expand All

(-)a/t/db_dependent/Borrower_Discharge.t (-3 / +3 lines)
Lines 53-60 is(Koha::Borrower::Discharge::generate_as_pdf,undef,"Confirm failure when lackin Link Here
53
Koha::Borrower::Discharge::discharge({ borrowernumber => $borrowernumber });
53
Koha::Borrower::Discharge::discharge({ borrowernumber => $borrowernumber });
54
is( Koha::Borrower::Discharge::is_discharged({ borrowernumber => $borrowernumber }), 1, 'The patron has been discharged' );
54
is( Koha::Borrower::Discharge::is_discharged({ borrowernumber => $borrowernumber }), 1, 'The patron has been discharged' );
55
is(Koha::Borrower::Debarments::IsDebarred($borrowernumber), '9999-12-31', 'The patron has been debarred after discharge');
55
is(Koha::Borrower::Debarments::IsDebarred($borrowernumber), '9999-12-31', 'The patron has been debarred after discharge');
56
Koha::Borrower::Debarments::DelDebarment($borrowernumber);
56
Koha::Borrower::Debarments::DelUniqueDebarment({'borrowernumber' => $borrowernumber, 'type' => 'DISCHARGE'});
57
is( Koha::Borrower::Discharge::is_discharged({ borrowernumber => $borrowernumber }), 1, 'The patron is not discharged after the restriction has been lifted' );
57
ok(! Koha::Borrower::Debarments::IsDebarred($borrowernumber), 'The debarment has been lifted');
58
ok(! Koha::Borrower::Discharge::is_discharged({ borrowernumber => $borrowernumber }), 'The patron is not discharged after the restriction has been lifted' );
58
59
59
# Check if PDF::FromHTML is installed.
60
# Check if PDF::FromHTML is installed.
60
my $check = eval { require PDF::FromHTML; };
61
my $check = eval { require PDF::FromHTML; };
61
- 

Return to bug 14368