use strict;
use warnings;
use POSIX qw(strftime);
-use Test::More;
+use Test::More tests => 3;
use Business::OnlinePayment;
city => 'Soyville',
state => 'CA', #where else?
zip => '54545',
-
- customer_ip => '1.2.3.4',
- invoice_num => 64,
);
my $tx = new Business::OnlinePayment( 'IATSPayments' );
$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;