projects
/
Business-OnlinePayment-eSelectPlus.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.02 contrib from DonorWare / Whizman
[Business-OnlinePayment-eSelectPlus.git]
/
t
/
bad_card.t
diff --git
a/t/bad_card.t
b/t/bad_card.t
index
afd324b
..
f1fc9d6
100644
(file)
--- a/
t/bad_card.t
+++ b/
t/bad_card.t
@@
-11,25
+11,25
@@
my $tx = new Business::OnlinePayment("eSelectPlus");
#$Business::OnlinePayment::HTTPS::DEBUG = 1;
#$Business::OnlinePayment::HTTPS::DEBUG = 1;
#$Business::OnlinePayment::HTTPS::DEBUG = 1;
#$Business::OnlinePayment::HTTPS::DEBUG = 1;
-
#
$Business::OnlinePayment::eSelectPlus::DEBUG = 1;
-
#
$Business::OnlinePayment::eSelectPlus::DEBUG = 1;
+$Business::OnlinePayment::eSelectPlus::DEBUG = 1;
+$Business::OnlinePayment::eSelectPlus::DEBUG = 1;
$tx->content(
type => 'VISA',
$tx->content(
type => 'VISA',
- login => '
store1
',
- password => '
yesguy
',
+ login => '
moot
',
+ password => '
moot
',
action => 'Normal Authorization',
action => 'Normal Authorization',
- amount => '
32.32
',
+ amount => '
0.54
',
card_number => '4242424242424242',
card_number => '4242424242424242',
- expiration => '08/0
6
',
+ expiration => '08/0
0
',
);
$tx->test_transaction(1); # test, dont really charge
$tx->submit();
);
$tx->test_transaction(1); # test, dont really charge
$tx->submit();
+# warn $tx->server_response."\n";
+# warn $tx->error_message. "\n";
if($tx->is_success()) {
print "not ok 1\n";
} else {
if($tx->is_success()) {
print "not ok 1\n";
} else {
- #warn $tx->server_response."\n";
- #warn $tx->error_message. "\n";
print "ok 1\n";
}
print "ok 1\n";
}