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

(-)a/t/db_dependent/Reserves.t (-2 / +4 lines)
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
- 

Return to bug 14968