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

(-)a/t/db_dependent/Accounts.t (-1 / +1 lines)
Lines 18-24 Link Here
18
18
19
use Modern::Perl;
19
use Modern::Perl;
20
20
21
use Test::More tests => 34;
21
use Test::More tests => 33;
22
use Test::MockModule;
22
use Test::MockModule;
23
use Test::Warn;
23
use Test::Warn;
24
24
(-)a/t/db_dependent/Koha/Account/Lines.t (-4 / +7 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 7;
22
use Test::More tests => 8;
23
use Test::Exception;
23
use Test::Exception;
24
24
25
use C4::Circulation qw/AddIssue AddReturn/;
25
use C4::Circulation qw/AddIssue AddReturn/;
Lines 491-497 subtest 'checkout() tests' => sub { Link Here
491
491
492
subtest "void() tests" => sub {
492
subtest "void() tests" => sub {
493
493
494
    plan tests => 15;
494
    plan tests => 16;
495
496
    $schema->storage->txn_begin;
495
497
496
    # Create a borrower
498
    # Create a borrower
497
    my $categorycode = $builder->build({ source => 'Category' })->{ categorycode };
499
    my $categorycode = $builder->build({ source => 'Category' })->{ categorycode };
Lines 554-560 subtest "void() tests" => sub { Link Here
554
    $line1->_result->discard_changes();
556
    $line1->_result->discard_changes();
555
    my $line1_post = $line1->unblessed();
557
    my $line1_post = $line1->unblessed();
556
    is( $ret, undef, 'Attempted void on non-credit returns undef' );
558
    is( $ret, undef, 'Attempted void on non-credit returns undef' );
557
    is_deeply( $line1_pre, $line1_post, 'Non-credit account line cannot be voided' )
559
    is_deeply( $line1_pre, $line1_post, 'Non-credit account line cannot be voided' );
560
561
    $schema->storage->txn_rollback;
558
};
562
};
559
563
560
1;
564
1;
561
- 

Return to bug 22511