diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/capture.t | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/t/capture.t b/t/capture.t index 1a667af..7c40e9a 100644 --- a/t/capture.t +++ b/t/capture.t @@ -1,9 +1,9 @@ BEGIN { $| = 1; print "1..2\n"; } -#testing/testing is valid and seems to work... -#print "ok 1 # Skipped: need a valid Authorize.Net login/password to test\n"; -#print "ok 2 # Skipped: need a valid Authorize.Net login/password to test\n"; -#exit; +#testing/testing is valid and seems to work... (but not for auth + capture) +print "ok 1 # Skipped: need a valid Authorize.Net login/password to test\n"; +print "ok 2 # Skipped: need a valid Authorize.Net login/password to test\n"; +exit; use Business::OnlinePayment; @@ -34,7 +34,7 @@ unless($tx->is_success()) { print "not ok 2\n"; } else { my $order_number = $tx->order_number; - #warn $order_number; + warn $order_number; print "ok 1\n"; my $settle_tx = new Business::OnlinePayment("AuthorizeNet"); @@ -46,7 +46,7 @@ unless($tx->is_success()) { description => 'Business::OnlinePayment visa test', amount => '49.95', invoice_number => '100100', - order_number => $order_number, + order_number => '111', card_number => '4007000000027', expiration => '08/06', ); @@ -57,7 +57,7 @@ unless($tx->is_success()) { if($settle_tx->is_success()) { print "ok 2\n"; } else { - #warn $settle_tx->error_message; + warn $settle_tx->error_message; print "not ok 2\n"; } |