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 => 18; |
4 |
use Test::More tests => 19; |
|
|
5 |
use Test::NoWarnings; |
5 |
use Test::Warn; |
6 |
use Test::Warn; |
6 |
|
7 |
|
7 |
use C4::Context; |
8 |
use C4::Context; |
Lines 549-554
subtest 'UpdateFine tests' => sub {
Link Here
|
549 |
{ order_by => { '-asc' => 'accountlines_id' } } |
550 |
{ order_by => { '-asc' => 'accountlines_id' } } |
550 |
); |
551 |
); |
551 |
is( $fines->count, 4, "New amount should be 0 so no fine added" ); |
552 |
is( $fines->count, 4, "New amount should be 0 so no fine added" ); |
|
|
553 |
t::lib::Mocks::mock_userenv( { patron => $patron_1 } ); |
552 |
my @r = C4::Circulation::AddReturn( $item_1->barcode, $item_1->homebranch, 1 ); |
554 |
my @r = C4::Circulation::AddReturn( $item_1->barcode, $item_1->homebranch, 1 ); |
553 |
is( $r[1]->{WasReturned}, 1, "Returning the item and forgiving fines succeeds" ); |
555 |
is( $r[1]->{WasReturned}, 1, "Returning the item and forgiving fines succeeds" ); |
554 |
|
556 |
|
555 |
- |
|
|