5 use POSIX qw(strftime);
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 is( $tx->is_success, 1, 'Test transaction successful')
35 or diag('iATS Payments error: '. $tx->error_message);