From c10ad4bbce3fdf09e6e3150f5e36e10ebbb58f90 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20B=C3=BCren?= Date: Thu, 21 Sep 2017 14:15:18 +0200 Subject: [PATCH] Zum Revert von gerade: Testfall wiederherstellen Falls doch mal an dieser Stelle umgebaut wird, ist der Testfall vorhanden --- t/bank/bank_transactions.t | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/t/bank/bank_transactions.t b/t/bank/bank_transactions.t index a85a72f3f..0220c951e 100644 --- a/t/bank/bank_transactions.t +++ b/t/bank/bank_transactions.t @@ -1,4 +1,4 @@ -use Test::More tests => 137; +use Test::More tests => 138; use strict; @@ -119,7 +119,7 @@ sub reset_state { )->save; $customer = new_customer( - name => 'Test Customer', + name => 'Test Customer OLÉ S.L. Årdbärg AB', iban => 'DE12500105170648489890', bic => 'TESTBIC', account_number => '648489890', @@ -710,6 +710,15 @@ sub test_sepa_export { vc_depositor => $customer->depositor, amount => $ar_transaction->amount, ); + require SL::SEPA::XML; + my $sepa_xml = SL::SEPA::XML->new('company' => $customer->name, + 'creditor_id' => "id", + 'src_charset' => 'UTF-8', + 'message_id' => "test", + 'grouped' => 1, + 'collection' => 1, + ); + is($sepa_xml->{company} , 'Test Customer OLE S.L. Ardbaerg AB'); $ar_transaction->load; $bt->load; -- 2.20.1