X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=t%2Fcapture.t;h=7c40e9a6f5b3ebe8ada07a3fbd76514779c1f8ae;hb=d63bda25158b5291240b737d9d9eb8eca44ea58f;hp=c00ece119f6c6879067733cc685b9884e7bcc57c;hpb=0bd6a54bc9421a08e089875beffd6087431b611e;p=Business-OnlinePayment-AuthorizeNet.git diff --git a/t/capture.t b/t/capture.t index c00ece1..7c40e9a 100644 --- a/t/capture.t +++ b/t/capture.t @@ -1,5 +1,6 @@ BEGIN { $| = 1; print "1..2\n"; } +#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; @@ -33,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"); @@ -45,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', ); @@ -56,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"; }