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',
-    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";
 }