5 use POSIX qw(strftime);
6 use Test::More tests => 3;
8 use Business::OnlinePayment;
11 action => "Normal Authorization",
13 description => "Business::OnlinePayment::IATSPayments test",
14 card_number => '4111111111111111',
16 expiration => '12/20',
20 address => '1234 Soybean Ln.',
22 state => 'CA', #where else?
26 my $tx = new Business::OnlinePayment( 'IATSPayments' );
28 $tx->content( %content );
30 $tx->test_transaction(1);
34 unlike( $tx->error_message, qr/^Agent code has not been set up/, 'Test decline not a login error');
35 is( $tx->is_success, 0, 'Test decline transaction successful');
36 is( $tx->failure_status, 'decline', 'Test decline failure_status set');