diff options
Diffstat (limited to 't/credit_card.t')
| -rw-r--r-- | t/credit_card.t | 21 |
1 files changed, 17 insertions, 4 deletions
diff --git a/t/credit_card.t b/t/credit_card.t index 84e729c..b36c247 100644 --- a/t/credit_card.t +++ b/t/credit_card.t @@ -18,6 +18,7 @@ my $tx = new Business::OnlinePayment("VirtualNet", 'terminal' => '1515', 'mcc' => '5999', #merchant category code 'bin' => '999995', #acquirer BIN + #'bin' => '999700', #acquirer BIN 'zip' => '543211420', #merchant zip (US) or assigned city code 'agent' => '000000', #agent bank @@ -35,18 +36,24 @@ $tx->content( type => 'CC', action => 'Authorization only', description => 'Business::OnlinePayment visa test', - amount => '10.00', + #amount => '10.00', + amount => '3.20', invoice_number => '100100', customer_id => 'jsk', name => 'Tofu Beast', first_name => 'Tofu', last_name => 'Beast', - address => '123 Anystreet', + address => '8320 Anystreet', city => 'Anywhere', state => 'UT', - zip => '84058', + zip => '84284', card_number => '4111111111111111', expiration => '09/03', +# card_number => '5499740000000057', +# expiration => '01/05', +# card_number => '6011000993026909', +# expiration => '01/04', + ); $tx->test_transaction(1); # test, dont really charge (doesn't do anything with VirtualNet) $tx->submit(); @@ -64,9 +71,15 @@ if($tx->is_success()) { $tx->content( type => 'CC', action => 'Post Authorization', - amount => '999910.00', + #amount => '10.00', + amount => '3.20', card_number => '4111111111111111', expiration => '09/03', +# card_number => '5499740000000057', +# expiration => '01/05', +# card_number => '6011000993026909', +# expiration => '01/04', + authorization => $tx->authorization, authorization_source_code => $tx->authorization_source_code, returned_ACI => $tx->returned_ACI, |