fix parsing OK response, fix tests

diff --git a/lib/Business/OnlinePayment/IATSPayments.pm b/lib/Business/OnlinePayment/IATSPayments.pm
index a3f7c96..dd6dc5b 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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.',