Revision c10ad4bb
Von Jan Büren vor mehr als 7 Jahren hinzugefügt
| t/bank/bank_transactions.t | ||
|---|---|---|
| 1 |
use Test::More tests => 137;
|
|
| 1 |
use Test::More tests => 138;
|
|
| 2 | 2 |
|
| 3 | 3 |
use strict; |
| 4 | 4 |
|
| ... | ... | |
| 119 | 119 |
)->save; |
| 120 | 120 |
|
| 121 | 121 |
$customer = new_customer( |
| 122 |
name => 'Test Customer', |
|
| 122 |
name => 'Test Customer OLÉ S.L. Årdbärg AB',
|
|
| 123 | 123 |
iban => 'DE12500105170648489890', |
| 124 | 124 |
bic => 'TESTBIC', |
| 125 | 125 |
account_number => '648489890', |
| ... | ... | |
| 710 | 710 |
vc_depositor => $customer->depositor, |
| 711 | 711 |
amount => $ar_transaction->amount, |
| 712 | 712 |
); |
| 713 |
require SL::SEPA::XML; |
|
| 714 |
my $sepa_xml = SL::SEPA::XML->new('company' => $customer->name,
|
|
| 715 |
'creditor_id' => "id", |
|
| 716 |
'src_charset' => 'UTF-8', |
|
| 717 |
'message_id' => "test", |
|
| 718 |
'grouped' => 1, |
|
| 719 |
'collection' => 1, |
|
| 720 |
); |
|
| 721 |
is($sepa_xml->{company} , 'Test Customer OLE S.L. Ardbaerg AB');
|
|
| 713 | 722 |
|
| 714 | 723 |
$ar_transaction->load; |
| 715 | 724 |
$bt->load; |
Auch abrufbar als: Unified diff
Zum Revert von gerade: Testfall wiederherstellen
Falls doch mal an dieser Stelle umgebaut wird, ist der
Testfall vorhanden