diff options
| author | ivan <ivan> | 2002-08-30 09:27:28 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-08-30 09:27:28 +0000 |
| commit | 40b2c015f7346c231e5d26c0f0fbbf59f964a1c0 (patch) | |
| tree | e6d4f10a441ec69593b80e36fb304afca966edde | |
| parent | a54df1e03d2b17f63f879cdccf03c7e7a7971ff4 (diff) | |
switch to "D" industry code and some test data from lab
| -rw-r--r-- | VirtualNet.pm | 3 | ||||
| -rw-r--r-- | t/credit_card.t | 21 |
2 files changed, 19 insertions, 5 deletions
diff --git a/VirtualNet.pm b/VirtualNet.pm index 81671c0..3b5d6dd 100644 --- a/VirtualNet.pm +++ b/VirtualNet.pm @@ -28,7 +28,8 @@ $ETB = pack("C", 0x17 ); #$EOT = pack("C", 0x04 ); ##should be configurable **FIXME** -my $industry_code = '0'; +#my $industry_code = '0'; +my $industry_code = 'D'; #Direct Marketing sub set_defaults { my $self = shift; 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, |