tests

diff --git a/t/transaction.t b/t/transaction.t
index 09de282..56b8a96 100644 (file)
--- a/t/transaction.t
+++ b/t/transaction.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 use POSIX qw(strftime);
-use Test::More;
+use Test::More tests => 1;
 
 use Business::OnlinePayment;
 

diff --git a/t/transaction_decline.t b/t/transaction_decline.t
index c62e8dd..895a176 100644 (file)
--- 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;