0.03

diff --git a/Changes b/Changes
index 78a399c..8c09673 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,7 +1,9 @@
 Revision history for Perl extension Business::OnlinePayment::USAePay.
 
-0.03    unreleased
+0.03    Wed Apr 25 12:41:27 PDT 2012
         - minor doc updates
+        - ECHECK transactions and required fields for refunds were fixed in 0.02
+        - fix ECHECK tests
 
 0.02    Sun Mar  6 15:54:24 PST 2011
         - test fixes, documentation updates, otherwise functionally unchanged

diff --git a/t/USAePay.t b/t/USAePay.t
index 73f2f4d..0a01104 100644 (file)
--- a/t/USAePay.t
+++ b/t/USAePay.t
@@ -4,7 +4,7 @@
 use Test;
 require "t/lib/test_account.pl";
 
-BEGIN { plan tests => 391, todo => [361,376,382,383,388,389] };
+BEGIN { plan tests => 404 };
 use Business::OnlinePayment::USAePay;
 
 my %auth = test_account();
@@ -803,7 +803,7 @@ ok($tx->server_response->{UMrefNum}, qr/^\d+/);
 ok($tx->server_response->{UMerrorcode}, "10127");
 ok($tx->server_response->{UMbatch}, qr/^\d+/);
 ok($tx->server_response->{UMvpasResultCode}, "");
-ok($tx->server_response->{UMcvv2ResultCode}, "P");
+ok($tx->server_response->{UMcvv2ResultCode}, "N");
 
 # referral
 ok(
@@ -835,9 +835,9 @@ ok($tx->server_response->{UMrefNum}, qr/^\d+/);
 ok($tx->server_response->{UMerrorcode}, "00043");
 ok($tx->server_response->{UMbatch}, qr/^\d+/);
 ok($tx->server_response->{UMvpasResultCode}, "");
-ok($tx->server_response->{UMcvv2ResultCode}, "P");
+ok($tx->server_response->{UMcvv2ResultCode}, "N");
 
-# check
+# good check
 ok(
     $tx->content(
         type           => 'ECHECK',
@@ -857,15 +857,44 @@ ok($tx->submit());
 ok($tx->is_success());
 ok($tx->error_message(), ''); #'Approved');
 ok($tx->authorization(), '/^\w{6}/'); #\d{6}/');
-ok($tx->server_response->{UMavsResultCode}, "YYY");
-ok($tx->server_response->{UMresult}, "E");
+ok($tx->server_response->{UMavsResultCode}, "");
+ok($tx->server_response->{UMresult}, "A"); #good check
 ok($tx->server_response->{UMcvv2Result}, "No CVV2/CVC data available for transaction.");
 ok($tx->server_response->{UMversion}, "2.9");
 ok($tx->server_response->{UMavsResult}, "No AVS response (Typically no AVS data sent or swiped transaction)"); #"n/a");
 ok($tx->server_response->{UMrefNum}, qr/^\d+/);
-ok($tx->server_response->{UMerrorcode}, "00011");
-ok($tx->server_response->{UMbatch}, qr/^\d+/);
+ok($tx->server_response->{UMerrorcode}, "00000");
 ok($tx->server_response->{UMvpasResultCode}, "");
 ok($tx->server_response->{UMcvv2ResultCode}, "");
 
 
+# bad check
+ok(
+    $tx->content(
+        type           => 'ECHECK',
+        %auth,
+        action         => 'Normal Authorization',
+        description    => 'Business::OnlinePayment test',
+        amount         => '5.99', #5.99        Decline 
+        invoice_number => '100100',
+        name           => 'Tofu Beast',
+        routing_code   => '400020001',
+        account_number => '1112222',
+        customer_ssn   => '999999999',
+        address        => '1234 Bean Curd Lane, San Francisco',
+    )
+);
+ok($tx->submit());
+ok($tx->is_success(),0); #393
+ok($tx->error_message(), 'VC: Returned check for this account'); 
+ok($tx->authorization(), '/^\w{6}/'); #\d{6}/');
+ok($tx->server_response->{UMavsResultCode}, "");
+ok($tx->server_response->{UMresult}, "D"); #bad check
+ok($tx->server_response->{UMcvv2Result}, "No CVV2/CVC data available for transaction.");
+ok($tx->server_response->{UMversion}, "2.9");
+ok($tx->server_response->{UMavsResult}, "No AVS response (Typically no AVS data sent or swiped transaction)"); #"n/a");
+ok($tx->server_response->{UMrefNum}, qr/^\d+/);
+ok($tx->server_response->{UMerrorcode}, "00000");
+ok($tx->server_response->{UMvpasResultCode}, "");
+ok($tx->server_response->{UMcvv2ResultCode}, "");
+