From b0d3ad92436c9841961d6b80dd0e58c068adbf6a Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20B=C3=BCren?= Date: Wed, 11 Jul 2018 09:08:44 +0200 Subject: [PATCH] =?utf8?q?bank=5Ftransactions.t=20Odyn=20Testfall=20f?= =?utf8?q?=C3=BCr=20kivi=20angepasst?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- t/bank/bank_transactions.t | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/t/bank/bank_transactions.t b/t/bank/bank_transactions.t index 5761d3cbd..00d77307b 100644 --- a/t/bank/bank_transactions.t +++ b/t/bank/bank_transactions.t @@ -1,4 +1,4 @@ -use Test::More tests => 197; +use Test::More tests => 205; use strict; @@ -299,7 +299,9 @@ sub test_skonto_exact { 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, @@ -309,14 +311,13 @@ sub test_bt_error { 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"); -- 2.20.1