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/bad_card.t          | 16 ++++++++--------
 t/credit_card.t       | 14 +++++++-------
 t/crypt_bad_card.t    | 12 ++++++------
 t/crypt_credit_card.t |  2 +-
 4 files changed, 22 insertions(+), 22 deletions(-)

(limited to 't')

diff --git a/t/bad_card.t b/t/bad_card.t
index afd324b..f1fc9d6 100644
--- a/t/bad_card.t
+++ b/t/bad_card.t
@@ -11,25 +11,25 @@ my $tx = new Business::OnlinePayment("eSelectPlus");
 
 #$Business::OnlinePayment::HTTPS::DEBUG = 1;
 #$Business::OnlinePayment::HTTPS::DEBUG = 1;
-#$Business::OnlinePayment::eSelectPlus::DEBUG = 1;
-#$Business::OnlinePayment::eSelectPlus::DEBUG = 1;
+$Business::OnlinePayment::eSelectPlus::DEBUG = 1;
+$Business::OnlinePayment::eSelectPlus::DEBUG = 1;
 
 $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";
 }
diff --git a/t/credit_card.t b/t/credit_card.t
index 7cc40ac..6843155 100644
--- a/t/credit_card.t
+++ b/t/credit_card.t
@@ -11,17 +11,17 @@ my $tx = new Business::OnlinePayment("eSelectPlus");
 
 #$Business::OnlinePayment::HTTPS::DEBUG = 1;
 #$Business::OnlinePayment::HTTPS::DEBUG = 1;
-#$Business::OnlinePayment::eSelectPlus::DEBUG = 1;
-#$Business::OnlinePayment::eSelectPlus::DEBUG = 1;
+$Business::OnlinePayment::eSelectPlus::DEBUG = 1;
+$Business::OnlinePayment::eSelectPlus::DEBUG = 1;
 
 $tx->content(
     type           => 'VISA',
-    login          => 'store1',
-    password       => 'yesguy',
+    login          => 'moot',
+    password       => 'moot',
     action         => 'Normal Authorization',
-    amount         => '54.01',
+    amount         => '0.80',
     card_number    => '4242424242424242',
-    expiration     => '01/06',
+    expiration     => '01/12',
 );
 $tx->test_transaction(1); # test, dont really charge
 $tx->submit();
@@ -29,7 +29,7 @@ $tx->submit();
 if($tx->is_success()) {
     print "ok 1\n";
 } else {
-    #warn $tx->server_response."\n";
+    warn $tx->server_response."\n";
     warn $tx->error_message. "\n";
     print "not ok 1\n";
 }
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";
 }
 
diff --git a/t/crypt_credit_card.t b/t/crypt_credit_card.t
index ad458c3..a9080c0 100644
--- a/t/crypt_credit_card.t
+++ b/t/crypt_credit_card.t
@@ -17,7 +17,7 @@ $tx->content(
     login          => 'store1',
     password       => 'yesguy',
     action         => 'Normal Authorization',
-    amount         => '54.01',
+    amount         => '0.80',
     card_number    => '4242424242424242',
     expiration     => '08/06',
 );
-- 
cgit v1.2.1