|
Lines 17-23
Link Here
|
| 17 |
|
17 |
|
| 18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
| 19 |
|
19 |
|
| 20 |
use Test::More tests => 73; |
20 |
use Test::More tests => 74; |
| 21 |
use Test::Warn; |
21 |
use Test::Warn; |
| 22 |
|
22 |
|
| 23 |
use MARC::Record; |
23 |
use MARC::Record; |
|
Lines 580-585
ok( $bz14464_reserve, 'Bug 14464 - 1st reserve correctly created' );
Link Here
|
| 580 |
|
580 |
|
| 581 |
CancelReserve({ reserve_id => $bz14464_reserve, charge_cancel_fee => 1 }); |
581 |
CancelReserve({ reserve_id => $bz14464_reserve, charge_cancel_fee => 1 }); |
| 582 |
|
582 |
|
|
|
583 |
my $old_reserve = Koha::Database->new()->schema()->resultset('OldReserve')->find( $bz14464_reserve ); |
| 584 |
is($old_reserve->get_column('found'), 'W', 'Bug 14968 - Keep found column from reserve'); |
| 585 |
|
| 583 |
( undef, undef, $bz14464_fines ) = GetMemberIssuesAndFines( $borrowernumber ); |
586 |
( undef, undef, $bz14464_fines ) = GetMemberIssuesAndFines( $borrowernumber ); |
| 584 |
is( !$bz14464_fines || $bz14464_fines==0, 1, 'Bug 14464 - No fines after cancelling reserve with no charge configured' ); |
587 |
is( !$bz14464_fines || $bz14464_fines==0, 1, 'Bug 14464 - No fines after cancelling reserve with no charge configured' ); |
| 585 |
|
588 |
|
| 586 |
- |
|
|