diff options
author | ivan <ivan> | 2002-03-13 16:11:55 +0000 |
---|---|---|
committer | ivan <ivan> | 2002-03-13 16:11:55 +0000 |
commit | 1b869470cbe552a25ac715cd29c6412888677771 (patch) | |
tree | 20f4731383b4fcebd72623a7934c6799fad4ddb2 /t | |
parent | ec3d093a5bb37e6ac2c50c6b35ac4d2641b58264 (diff) |
working post auth support
Diffstat (limited to 't')
-rw-r--r-- | t/check.t | 6 | ||||
-rw-r--r-- | t/credit_card.t | 10 |
2 files changed, 10 insertions, 6 deletions
@@ -1,6 +1,6 @@ BEGIN { $| = 1; print "1..1\n"; } -print "ok 1 # Skipped: testdrive account won't accept ACH transactions\n"; exit; +print "ok 1 # Skipped: testing account won't accept ACH transactions\n"; exit; use Business::OnlinePayment; @@ -8,8 +8,8 @@ use Business::OnlinePayment; my $ctx = new Business::OnlinePayment("AuthorizeNet"); $ctx->content( type => 'CHECK', - login => 'testdrive', - password => 'testdrive', + login => 'testing', + password => 'testing', action => 'Normal Authorization', amount => '49.95', invoice_number => '100100', diff --git a/t/credit_card.t b/t/credit_card.t index df6c001..0c9e856 100644 --- a/t/credit_card.t +++ b/t/credit_card.t @@ -1,14 +1,15 @@ BEGIN { $| = 1; print "1..1\n"; } -print "ok 1 # Skipped: need a valid Authorize.Net login/password to test\n"; exit; +#testing/testing is valid and seems to work... +#print "ok 1 # Skipped: need a valid Authorize.Net login/password to test\n"; exit; use Business::OnlinePayment; my $tx = new Business::OnlinePayment("AuthorizeNet"); $tx->content( type => 'VISA', - login => 'testdrive', # CHANGE THESE TO TEST - password => 'testdrive', # + login => 'testing', + password => 'testing', action => 'Normal Authorization', description => 'Business::OnlinePayment visa test', amount => '49.95', @@ -22,6 +23,8 @@ $tx->content( zip => '84058', card_number => '4007000000027', expiration => '08/06', +# company => 'Company co', +# country => 'US', ); $tx->test_transaction(1); # test, dont really charge $tx->submit(); @@ -29,5 +32,6 @@ $tx->submit(); if($tx->is_success()) { print "ok 1\n"; } else { + #warn $tx->error_message; print "not ok 1\n"; } |