summaryrefslogtreecommitdiff
path: root/t/crypt_bad_card.t
diff options
context:
space:
mode:
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";
}