From ee7af13f7f3f1e7568e3039fd6c2a098593e4777 Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Thu, 6 Feb 2014 01:39:46 -0800 Subject: [PATCH] tests --- t/transaction.t | 2 +- 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; -- 2.11.0