don't run capture test without a live account
authorivan <ivan>
Tue, 23 Apr 2002 01:42:40 +0000 (01:42 +0000)
committerivan <ivan>
Tue, 23 Apr 2002 01:42:40 +0000 (01:42 +0000)
t/capture.t

index 1a667af..7c40e9a 100644 (file)
@@ -1,9 +1,9 @@
 BEGIN { $| = 1; print "1..2\n"; }
 
 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;
 
 
 use Business::OnlinePayment;
 
@@ -34,7 +34,7 @@ unless($tx->is_success()) {
     print "not ok 2\n";
 } else {
     my $order_number = $tx->order_number;
     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");
     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',
       description    => 'Business::OnlinePayment visa test',
       amount         => '49.95',
       invoice_number => '100100',
-      order_number   => $order_number,
+      order_number   => '111',
       card_number    => '4007000000027',
       expiration     => '08/06',
     );
       card_number    => '4007000000027',
       expiration     => '08/06',
     );
@@ -57,7 +57,7 @@ unless($tx->is_success()) {
     if($settle_tx->is_success()) {
         print "ok 2\n";
     } else {
     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";
     }
 
         print "not ok 2\n";
     }