diff options
| -rw-r--r-- | t/transaction.t | 2 | ||||
| -rw-r--r-- | t/transaction_decline.t | 9 |
2 files changed, 5 insertions, 6 deletions
diff --git a/t/transaction.t b/t/transaction.t index 09de282..56b8a96 100644 --- 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 --- 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; |