|
Lines 1-7
Link Here
|
| 1 |
#!/usr/bin/perl; |
1 |
#!/usr/bin/perl; |
| 2 |
|
2 |
|
| 3 |
use Modern::Perl; |
3 |
use Modern::Perl; |
| 4 |
use Test::More tests => 15; |
4 |
use Test::More tests => 17; |
| 5 |
use Test::Warn; |
5 |
use Test::Warn; |
| 6 |
use MARC::Record; |
6 |
use MARC::Record; |
| 7 |
|
7 |
|
|
Lines 73-78
Koha::Borrower::Debarments::DelUniqueDebarment( { 'borrowernumber' => $borrower-
Link Here
|
| 73 |
ok( !Koha::Borrower::Debarments::IsDebarred( $borrower->{borrowernumber} ), 'The debarment has been lifted' ); |
73 |
ok( !Koha::Borrower::Debarments::IsDebarred( $borrower->{borrowernumber} ), 'The debarment has been lifted' ); |
| 74 |
ok( !Koha::Borrower::Discharge::is_discharged( { borrowernumber => $borrower->{borrowernumber} } ), 'The patron is not discharged after the restriction has been lifted' ); |
74 |
ok( !Koha::Borrower::Discharge::is_discharged( { borrowernumber => $borrower->{borrowernumber} } ), 'The patron is not discharged after the restriction has been lifted' ); |
| 75 |
|
75 |
|
|
|
76 |
# Verify that the discharge works multiple times |
| 77 |
Koha::Borrower::Discharge::request({ borrowernumber => $borrower->{borrowernumber} }); |
| 78 |
is(scalar( @{ Koha::Borrower::Discharge::get_pendings() }), 1, 'There is a pending discharge request (second time)'); |
| 79 |
Koha::Borrower::Discharge::discharge( { borrowernumber => $borrower->{borrowernumber} } ); |
| 80 |
is_deeply( Koha::Borrower::Discharge::get_pendings(), [], 'There is no pending discharge request (second time)'); |
| 81 |
|
| 76 |
# Check if PDF::FromHTML is installed. |
82 |
# Check if PDF::FromHTML is installed. |
| 77 |
my $check = eval { require PDF::FromHTML; }; |
83 |
my $check = eval { require PDF::FromHTML; }; |
| 78 |
|
84 |
|
| 79 |
- |
|
|