From 34d2ae2ce4804ddd556e88185bdf36ab5abe2bdc Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sun, 19 Sep 2010 21:07:43 +0000
Subject: 0.02 contrib from DonorWare / Whizman

---
 t/crypt_bad_card.t | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 't/crypt_bad_card.t')

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";
 }
 
-- 
cgit v1.2.1