summaryrefslogtreecommitdiff
path: root/t/crypt_bad_card.t
diff options
context:
space:
mode:
authorivan <ivan>2010-09-19 21:07:43 +0000
committerivan <ivan>2010-09-19 21:07:43 +0000
commit34d2ae2ce4804ddd556e88185bdf36ab5abe2bdc (patch)
tree9a8c44216f5a753173c68aef57cd22923261d3e6 /t/crypt_bad_card.t
parentd86dd0907225727a1d299138e4758e8a77f412c4 (diff)
0.02 contrib from DonorWare / Whizman
Diffstat (limited to 't/crypt_bad_card.t')
-rw-r--r--t/crypt_bad_card.t12
1 files changed, 6 insertions, 6 deletions
diff --git a/t/crypt_bad_card.t b/t/crypt_bad_card.t
index 7089078..1db7c4b 100644
--- 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',
- login => 'store1',
- password => 'yesguy',
+ login => 'moot',
+ password => 'moot',
action => 'Normal Authorization',
- amount => '32.32',
+ amount => '0.54',
card_number => '4242424242424242',
- expiration => '08/06',
+ expiration => '08/00',
);
$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 {
- #warn $tx->server_response."\n";
- #warn $tx->error_message. "\n";
print "ok 1\n";
}