Lines 20-26
Link Here
|
20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
21 |
|
21 |
|
22 |
use Test::NoWarnings; |
22 |
use Test::NoWarnings; |
23 |
use Test::More tests => 46; |
23 |
use Test::More tests => 47; |
24 |
use Test::Warn; |
24 |
use Test::Warn; |
25 |
use Test::Exception; |
25 |
use Test::Exception; |
26 |
use Test::MockModule; |
26 |
use Test::MockModule; |
Lines 1585-1591
subtest 'anonymize items_last_borrower' => sub {
Link Here
|
1585 |
} |
1585 |
} |
1586 |
); |
1586 |
); |
1587 |
|
1587 |
|
1588 |
my $dbh = C4::Context->dbh; |
1588 |
my $dbh = C4::Context->dbh; |
1589 |
my ($returned_1) = C4::Circulation::AddReturn( $item_1->barcode, undef, undef, dt_from_string ); |
1589 |
my ($returned_1) = C4::Circulation::AddReturn( $item_1->barcode, undef, undef, dt_from_string ); |
1590 |
my ($returned_2) = C4::Circulation::AddReturn( $item_2->barcode, undef, undef, dt_from_string ); |
1590 |
my ($returned_2) = C4::Circulation::AddReturn( $item_2->barcode, undef, undef, dt_from_string ); |
1591 |
is( $returned_1 && $returned_2, 1, 'The items should have been returned' ); |
1591 |
is( $returned_1 && $returned_2, 1, 'The items should have been returned' ); |
1592 |
- |
|
|