X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=t%2Ftransaction_decline.t;fp=t%2Ftransaction_decline.t;h=895a1763751030d2c945f7038d050f31573d1344;hb=ee7af13f7f3f1e7568e3039fd6c2a098593e4777;hp=c62e8dd31ef5d6e9f35efc55682c741bf97e303e;hpb=c1b518f59064671309c220489efd8d59daade4aa;p=Business-OnlinePayment-IATSPayments.git

diff --git a/t/transaction_decline.t b/t/transaction_decline.t
index c62e8dd..895a176 100644
--- a/t/transaction_decline.t
+++ b/t/transaction_decline.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 use POSIX qw(strftime);
-use Test::More;
+use Test::More tests => 3;
 
 use Business::OnlinePayment;
 
@@ -21,9 +21,6 @@ my %content = (
     city           => 'Soyville',
     state          => 'CA', #where else?
     zip            => '54545',
-
-    customer_ip => '1.2.3.4',
-    invoice_num => 64,
 );                                                                              
 
 my $tx = new Business::OnlinePayment( 'IATSPayments' );
@@ -34,6 +31,8 @@ $tx->test_transaction(1);
 
 $tx->submit;
 
+unlike( $tx->error_message, qr/^Agent code has not been set up/, 'Test decline not a login error');
 is( $tx->is_success, 0, 'Test decline transaction successful');
-            
+is( $tx->failure_status, 'decline', 'Test decline failure_status set');
+
 1;