From d63bda25158b5291240b737d9d9eb8eca44ea58f Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 23 Apr 2002 01:42:40 +0000
Subject: [PATCH] don't run capture test without a live account

---
 t/capture.t | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/t/capture.t b/t/capture.t
index 1a667af..7c40e9a 100644
--- a/t/capture.t
+++ b/t/capture.t
@@ -1,9 +1,9 @@
 BEGIN { $| = 1; print "1..2\n"; }
 
-#testing/testing is valid and seems to work...
-#print "ok 1 # Skipped: need a valid Authorize.Net login/password to test\n";
-#print "ok 2 # Skipped: need a valid Authorize.Net login/password to test\n";
-#exit;
+#testing/testing is valid and seems to work... (but not for auth + capture)
+print "ok 1 # Skipped: need a valid Authorize.Net login/password to test\n";
+print "ok 2 # Skipped: need a valid Authorize.Net login/password to test\n";
+exit;
 
 use Business::OnlinePayment;
 
@@ -34,7 +34,7 @@ unless($tx->is_success()) {
     print "not ok 2\n";
 } else {
     my $order_number = $tx->order_number;
-    #warn $order_number;
+    warn $order_number;
     print "ok 1\n";
 
     my $settle_tx = new Business::OnlinePayment("AuthorizeNet");
@@ -46,7 +46,7 @@ unless($tx->is_success()) {
       description    => 'Business::OnlinePayment visa test',
       amount         => '49.95',
       invoice_number => '100100',
-      order_number   => $order_number,
+      order_number   => '111',
       card_number    => '4007000000027',
       expiration     => '08/06',
     );
@@ -57,7 +57,7 @@ unless($tx->is_success()) {
     if($settle_tx->is_success()) {
         print "ok 2\n";
     } else {
-        #warn $settle_tx->error_message;
+        warn $settle_tx->error_message;
         print "not ok 2\n";
     }
 
-- 
2.11.0