Lines 615-621
subtest 'checkout() tests' => sub {
Link Here
|
615 |
}; |
615 |
}; |
616 |
|
616 |
|
617 |
subtest 'credits() and debits() tests' => sub { |
617 |
subtest 'credits() and debits() tests' => sub { |
618 |
plan tests => 10; |
618 |
plan tests => 12; |
619 |
|
619 |
|
620 |
$schema->storage->txn_begin; |
620 |
$schema->storage->txn_begin; |
621 |
|
621 |
|
Lines 670-675
subtest 'credits() and debits() tests' => sub {
Link Here
|
670 |
$debit = $debits->next; |
670 |
$debit = $debits->next; |
671 |
is($debit->amount + 0, 12, 'Correct second debit'); |
671 |
is($debit->amount + 0, 12, 'Correct second debit'); |
672 |
|
672 |
|
|
|
673 |
throws_ok |
674 |
{ $debit1->debits; } |
675 |
'Koha::Exceptions::Account::IsNotCredit', |
676 |
'Exception is thrown when requesting debits linked to debit'; |
677 |
|
678 |
throws_ok |
679 |
{ $credit1->credits; } |
680 |
'Koha::Exceptions::Account::IsNotDebit', |
681 |
'Exception is thrown when requesting credits linked to credit'; |
682 |
|
683 |
|
673 |
$schema->storage->txn_rollback; |
684 |
$schema->storage->txn_rollback; |
674 |
}; |
685 |
}; |
675 |
|
686 |
|
676 |
- |
|
|