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;
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");
description => 'Business::OnlinePayment visa test',
amount => '49.95',
invoice_number => '100100',
- order_number => $order_number,
+ order_number => '111',
card_number => '4007000000027',
expiration => '08/06',
);
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";
}