From: Jan Büren <jan@kivitendo-premium.de>
Date: Tue, 5 Sep 2017 07:08:20 +0000 (+0200)
Subject: bank_transaction Testfall erweitert
X-Git-Tag: release-3.5.4~835
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=944d0062121dbbf3058fc307df411899f766b377;p=kivitendo-erp.git

bank_transaction Testfall erweitert

Sowohl negative Kreditorenbelege als auch negative Einkaufsrechnungen testen.
---

diff --git a/t/bank/bank_transactions.t b/t/bank/bank_transactions.t
index 69028b143..a85a72f3f 100644
--- a/t/bank/bank_transactions.t
+++ b/t/bank/bank_transactions.t
@@ -1,4 +1,4 @@
-use Test::More tests => 130;
+use Test::More tests => 137;
 
 use strict;
 
@@ -76,7 +76,8 @@ test_two_invoices();
 test_partial_payment();
 test_credit_note();
 test_ap_transaction();
-test_neg_ap_transaction();
+test_neg_ap_transaction(invoice => 0);
+test_neg_ap_transaction(invoice => 1);
 test_ap_payment_transaction();
 test_ap_payment_part_transaction();
 test_neg_sales_invoice();
@@ -448,11 +449,11 @@ sub test_credit_note {
 
 sub test_neg_ap_transaction {
   my (%params) = @_;
-  my $testname = 'test_neg_ap_transaction';
+  my $testname = 'test_neg_ap_transaction' . $params{invoice} ? ' invoice booking' : ' credit booking';
   my $netamount = -20;
   my $amount    = $::form->round_amount($netamount * 1.19,2);
   my $invoice   = SL::DB::PurchaseInvoice->new(
-    invoice      => 0,
+    invoice      => $params{invoice} // 0,
     invnumber    => $params{invnumber} || 'test_neg_ap_transaction',
     amount       => $amount,
     netamount    => $netamount,