Zum Revert von gerade: Testfall wiederherstellen
authorJan Büren <jan@kivitendo-premium.de>
Thu, 21 Sep 2017 12:15:18 +0000 (14:15 +0200)
committerJan Büren <jan@kivitendo-premium.de>
Thu, 21 Sep 2017 12:15:18 +0000 (14:15 +0200)
Falls doch mal an dieser Stelle umgebaut wird, ist der
Testfall vorhanden

t/bank/bank_transactions.t

index a85a72f..0220c95 100644 (file)
@@ -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;