|
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 |
- |
|
|