Revision b0d3ad92
Von Jan Büren vor fast 7 Jahren hinzugefügt
| t/bank/bank_transactions.t | ||
|---|---|---|
|
use Test::More tests => 197;
|
||
|
use Test::More tests => 205;
|
||
|
|
||
|
use strict;
|
||
|
|
||
| ... | ... | |
|
|
||
|
sub test_bt_error {
|
||
|
|
||
|
my $testname = 'test_free_skonto';
|
||
|
my $testname = 'test_rollback_error';
|
||
|
# without type with_free_skonto the helper function (Payment.pm) looks ugly but not
|
||
|
# breakable
|
||
|
|
||
|
$ar_transaction = test_ar_transaction(invnumber => 'salesinv skonto',
|
||
|
payment_id => $payment_terms->id,
|
||
| ... | ... | |
|
|
||
|
my $bt = create_bank_transaction(record => $ar_transaction,
|
||
|
bank_chart_id => $bank->id,
|
||
|
amount => 158.58,
|
||
|
amount => 160.15,
|
||
|
) or die "Couldn't create bank_transaction";
|
||
|
|
||
|
$::form->{invoice_ids} = {
|
||
|
$bt->id => [ $ar_transaction->id ]
|
||
|
};
|
||
|
$::form->{invoice_skontos} = {
|
||
|
$bt->id => [ 'with_free_skonto' ]
|
||
|
$bt->id => [ 'with_skonto_pt' ]
|
||
|
};
|
||
|
|
||
|
is($ar_transaction->paid , '0' , "$testname: salesinv is not paid");
|
||
Auch abrufbar als: Unified diff
bank_transactions.t Odyn Testfall für kivi angepasst