From bee7c61ee07328b28ae2d17e631dc47037e7700a Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Thu, 6 Feb 2014 09:06:05 -0800
Subject: [PATCH] fix parsing OK response, fix tests

---
 lib/Business/OnlinePayment/IATSPayments.pm | 16 ++++++++++++++--
 t/transaction.t                            |  2 +-
 t/transaction_decline.t                    |  2 +-
 3 files changed, 16 insertions(+), 4 deletions(-)

diff --git a/lib/Business/OnlinePayment/IATSPayments.pm b/lib/Business/OnlinePayment/IATSPayments.pm
index a3f7c96..dd6dc5b 100644
--- a/lib/Business/OnlinePayment/IATSPayments.pm
+++ b/lib/Business/OnlinePayment/IATSPayments.pm
@@ -27,6 +27,18 @@ sub _info {
   };
 }
 
+sub set_defaults {
+    my $self = shift;
+    #my %opts = @_;
+
+    #$self->build_subs(qw( order_number avs_code cvv2_response
+    #                      response_page response_code response_headers
+    #                 ));
+
+    $self->build_subs(qw( avs_code ));
+
+}
+
 sub map_fields {
     my($self) = @_;
 
@@ -277,9 +289,9 @@ sub submit {
 
   $self->authorization($processresult->{TRANSACTIONID} || '');
 
-  if ( $processresult->{AUTHORIZATIONRESULT} =~ /^\s*OK(:\s*\d+)?(:(\w))?\s*$/i ) {
+  if ( $processresult->{AUTHORIZATIONRESULT} =~ /^\s*OK(:\s*\d+:)?(\w)?\s*$/i ) {
     $self->is_success(1);
-    $self->avs_code($3); #avs_code?  sure looks like one
+    $self->avs_code($2); #avs_code?  sure looks like one
 
   } elsif ( $processresult->{AUTHORIZATIONRESULT} =~ /^\s*Timeout\s*$/i ) {
     $self->is_success(0);
diff --git a/t/transaction.t b/t/transaction.t
index 56b8a96..0f24fae 100644
--- a/t/transaction.t
+++ b/t/transaction.t
@@ -14,7 +14,7 @@ my %content = (
     card_number    => '4111111111111111',
     cvv2           => '123',
     expiration     => '12/20',
-    amount         => '2.00',
+    amount         => '1.00',
     first_name     => 'Tofu',
     last_name      => 'Beast',
     address        => '1234 Soybean Ln.',
diff --git a/t/transaction_decline.t b/t/transaction_decline.t
index 895a176..ae17733 100644
--- a/t/transaction_decline.t
+++ b/t/transaction_decline.t
@@ -14,7 +14,7 @@ my %content = (
     card_number    => '4111111111111111',
     cvv2           => '123',
     expiration     => '12/20',
-    amount         => '1.00',
+    amount         => '2.00',
     first_name     => 'Tofu',
     last_name      => 'Beast',
     address        => '1234 Soybean Ln.',
-- 
2.11.0