projects
/
Business-OnlinePayment-AuthorizeNet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
don't run capture test without a live account
[Business-OnlinePayment-AuthorizeNet.git]
/
t
/
capture.t
diff --git
a/t/capture.t
b/t/capture.t
index
c00ece1
..
7c40e9a
100644
(file)
--- a/
t/capture.t
+++ b/
t/capture.t
@@
-1,5
+1,6
@@
BEGIN { $| = 1; print "1..2\n"; }
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 "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;
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");
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',
description => 'Business::OnlinePayment visa test',
amount => '49.95',
invoice_number => '100100',
- order_number =>
$order_number
,
+ order_number =>
'111'
,
card_number => '4007000000027',
expiration => '08/06',
);
card_number => '4007000000027',
expiration => '08/06',
);
@@
-56,7
+57,7
@@
unless($tx->is_success()) {
if($settle_tx->is_success()) {
print "ok 2\n";
} else {
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";
}
print "not ok 2\n";
}