0.02 contrib from DonorWare / Whizman

[Business-OnlinePayment-eSelectPlus.git] / t / credit_card.t

diff --git a/t/credit_card.t b/t/credit_card.t
index 7cc40ac..6843155 100644 (file)
--- 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";
 }