make ACH work, more tests

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

diff --git a/t/credit_card.t b/t/credit_card.t
index fe04da2..83e9eb5 100644 (file)
--- a/t/credit_card.t
+++ b/t/credit_card.t
@@ -13,7 +13,7 @@ my $runinfo =
 
 plan(
       ( $ENV{"ELINK_ACCOUNT"} && $ENV{"ELINK_PASSWORD"} )
-    ? ( tests => 70 )
+    ? ( tests => 56 )
     : ( skip_all => $runinfo )
 );
 
@@ -75,97 +75,68 @@ my %content = (
 
 SKIP: {    # avs_code() / AVSZIP and AVSADDR tests
 
-    skip "AVS tests broken", 28;
+    skip "AVS tests broken", 21;
 
     my $tx = new Business::OnlinePayment( "TransFirsteLink", %opts );
 
-    # IF first 3 chars of STREET <= 334 and >= 666 THEN AVSADDR == "N"
     $tx->content( %content, "address" => "500 Any street" );
     tx_check(
         $tx,
         desc          => "AVSADDR=N,AVSZIP=Y",
-        is_success    => 0,
-        result_code   => 126,
-        authorization => "010101",
-        avs_code      => "Z",
-        cvv2_response => "Y",
-    );
-
-    # IF first 3 chars of STREET >= 667 THEN AVSADDR == "X" (and AVSZIP="X")
-    $tx = new Business::OnlinePayment( "TransFirsteLink", %opts );
-    $tx->content( %content, "address" => "700 Any street" );
-    tx_check(
-        $tx,
-        desc          => "AVSADDR=X,AVSZIP=X",
         is_success    => 1,
-        result_code   => 0,
-        authorization => "010101",
-        avs_code      => "",
-        cvv2_response => "Y",
+        result_code   => "000",
+        authorization => "999999",
+        avs_code      => "Z",
+        cvv2_response => "M",
     );
 
-#    # IF ZIP <= 50001 and >= 99999 THEN AVSZIP == "N"
     $tx = new Business::OnlinePayment( "TransFirsteLink", %opts );
     $tx->content( %content, "zip" => "99999" );
     tx_check(
         $tx,
         desc          => "AVSADDR=Y,AVSZIP=N",
-        is_success    => 0,
-        result_code   => 126,
-        authorization => "010101",
+        is_success    => 1,
+        result_code   => "000",
+        authorization => "999999",
         avs_code      => "A",
-        cvv2_response => "Y",
+        cvv2_response => "M",
     );
 
-    # Both AVSADDR and AVSZIP == "N"
     $tx = new Business::OnlinePayment( "TransFirsteLink", %opts );
     $tx->content( %content, "address" => "500 Any street", "zip" => "99999" );
     tx_check(
         $tx,
         desc          => "AVSADDR=N,AVSZIP=N",
-        is_success    => 0,
-        result_code   => 126,
-        authorization => "010101",
+        is_success    => 1,
+        result_code   => "000",
+        authorization => "999999",
         avs_code      => "N",
-        cvv2_response => "Y",
+        cvv2_response => "M",
     );
 }
 
 SKIP: {    # cvv2_response() / CVV2MATCH
 
-    skip "CVV2 tests broken", 14;
+    skip "CVV2 tests broken", 7;
 
     my $tx = new Business::OnlinePayment( "TransFirsteLink", %opts );
 
-    # IF CVV2 >= 301 and <= 600 THEN CVV2MATCH == "N"
     $tx->content( %content, "cvv2" => "301" );
     tx_check(
         $tx,
-        desc          => "cvv2(301)",
-        is_success    => 0,
-        result_code   => 126,
-        authorization => "010101",
+        desc          => "wrong cvv2",
+        is_success    => 1,
+        result_code   => "000",
+        authorization => "999999",
         avs_code      => "Y",
         cvv2_response => "N",
     );
 
-    # IF CVV2 >= 601 THEN CVV2MATCH == "X"
-    $tx = new Business::OnlinePayment( "TransFirsteLink", %opts );
-    $tx->content( %content, "cvv2" => "601" );
-    tx_check(
-        $tx,
-        desc          => "cvv2(601)",
-        is_success    => 0,
-        result_code   => 126,
-        authorization => "010101",
-        avs_code      => "Y",
-        cvv2_response => "X",
-    );
 }
 
 SKIP: {    # refund test
 
-    skip "credit/refund tests broken", 7;
+    #skip "credit/refund tests broken", 7;
 
     my $tx = new Business::OnlinePayment( "TransFirsteLink", %opts );
     $tx->content( %content, 'action' => "Credit",
@@ -174,7 +145,7 @@ SKIP: {    # refund test
     tx_check(
         $tx,
         desc          => "refund/credit",
-        is_success    => 0,
+        is_success    => 1,
         result_code   => "000",
         authorization => '',
         avs_code      => '',
@@ -184,7 +155,7 @@ SKIP: {    # refund test
 
 SKIP: {    # void test
 
-    skip "void tests broken", 7;
+    #skip "void tests broken", 7;
 
     my $tx = new Business::OnlinePayment( "TransFirsteLink", %opts );
     $tx->content( %content, 'action' => "Void",
@@ -193,7 +164,7 @@ SKIP: {    # void test
     tx_check(
         $tx,
         desc          => "void",
-        is_success    => 0,
+        is_success    => 1,
         result_code   => "000",
         authorization => '',
         avs_code      => '',