diff options
Diffstat (limited to 't/credit_card.t')
| -rw-r--r-- | t/credit_card.t | 10 |
1 files changed, 7 insertions, 3 deletions
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"; } |