diff options
| author | ivan <ivan> | 2006-03-25 09:36:28 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2006-03-25 09:36:28 +0000 |
| commit | a5167d9e33d24e4c091b44e79b05da08cf2e6fcb (patch) | |
| tree | 52340d8eb374f47241825399fcdc4249d72905b5 /t | |
| parent | 86dd019910be3db43cbe065601c14d23c7e0597d (diff) | |
move "payee" to a new() option, use "RECURRIN" for check # if one is missing...?
Diffstat (limited to 't')
| -rw-r--r-- | t/bad_check.t | 6 | ||||
| -rw-r--r-- | t/check.t | 6 | ||||
| -rw-r--r-- | t/crypt_bad_check.t | 6 | ||||
| -rw-r--r-- | t/crypt_check.t | 6 |
4 files changed, 16 insertions, 8 deletions
diff --git a/t/bad_check.t b/t/bad_check.t index 4102922..37e1243 100644 --- a/t/bad_check.t +++ b/t/bad_check.t @@ -8,7 +8,9 @@ if ( $@ ) { use Business::OnlinePayment; # checks are broken it seems -my $ctx = new Business::OnlinePayment("OpenECHO"); +my $ctx = new Business::OnlinePayment("OpenECHO", + payee => 'Tofu Heavy Enterprises, GmbH', +); $ctx->content( type => 'ECHECK', 'login' => '123>4685706', @@ -23,7 +25,7 @@ $ctx->content( routing_code => '026009593', bank_name => 'First National Test Bank', phone => '420-420-5454', - payee => 'Tofu Heavy Enterprises, GmbH', + #payee => 'Tofu Heavy Enterprises, GmbH', check_number => '420', ); $ctx->test_transaction(1); # test, dont really charge @@ -8,7 +8,9 @@ if ( $@ ) { use Business::OnlinePayment; # checks are broken it seems -my $ctx = new Business::OnlinePayment("OpenECHO"); +my $ctx = new Business::OnlinePayment( "OpenECHO", + 'payee' => 'Tofu Heavy Enterprises, GmbH', +); $ctx->content( type => 'ECHECK', 'login' => '123>4685706', @@ -23,7 +25,7 @@ $ctx->content( routing_code => '026009593', bank_name => 'First National Test Bank', phone => '420-420-5454', - payee => 'Tofu Heavy Enterprises, GmbH', + #payee => 'Tofu Heavy Enterprises, GmbH', check_number => '420', ); $ctx->test_transaction(1); # test, dont really charge diff --git a/t/crypt_bad_check.t b/t/crypt_bad_check.t index f47f53e..cdbb8ac 100644 --- a/t/crypt_bad_check.t +++ b/t/crypt_bad_check.t @@ -12,7 +12,9 @@ if ( $@ ) { use Business::OnlinePayment; # checks are broken it seems -my $ctx = new Business::OnlinePayment("OpenECHO"); +my $ctx = new Business::OnlinePayment("OpenECHO", + payee => 'Tofu Heavy Enterprises, GmbH', +); $ctx->content( type => 'ECHECK', 'login' => '123>4685706', @@ -27,7 +29,7 @@ $ctx->content( routing_code => '026009593', bank_name => 'First National Test Bank', phone => '420-420-5454', - payee => 'Tofu Heavy Enterprises, GmbH', + #payee => 'Tofu Heavy Enterprises, GmbH', check_number => '420', ); $ctx->test_transaction(1); # test, dont really charge diff --git a/t/crypt_check.t b/t/crypt_check.t index d0c09ab..808dc07 100644 --- a/t/crypt_check.t +++ b/t/crypt_check.t @@ -12,7 +12,9 @@ if ( $@ ) { use Business::OnlinePayment; # checks are broken it seems -my $ctx = new Business::OnlinePayment("OpenECHO"); +my $ctx = new Business::OnlinePayment("OpenECHO", + payee => 'Tofu Heavy Enterprises, GmbH', +); $ctx->content( type => 'ECHECK', 'login' => '123>4685706', @@ -27,7 +29,7 @@ $ctx->content( routing_code => '026009593', bank_name => 'First National Test Bank', phone => '420-420-5454', - payee => 'Tofu Heavy Enterprises, GmbH', + #payee => 'Tofu Heavy Enterprises, GmbH', check_number => '420', ); $ctx->test_transaction(1); # test, dont really charge |