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
/
crypt_bad_card.t
diff --git
a/t/crypt_bad_card.t
b/t/crypt_bad_card.t
index
7089078
..
1db7c4b
100644
(file)
--- a/
t/crypt_bad_card.t
+++ b/
t/crypt_bad_card.t
@@
-15,21
+15,21
@@
my $tx = new Business::OnlinePayment("eSelectPlus");
$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";
}