4 require "t/lib/test_account.pl";
6 my($login, $password, %opt) = test_account_or_skip('check');
9 use_ok 'Business::OnlinePayment';
14 password => $password,
15 action => 'Normal Authorization',
19 account_number => '12345',
20 routing_code => '111000025', # BoA in Texas taken from Wikipedia
21 bank_name => 'First National Test Bank',
22 account_type => 'Business Checking',
29 my $ctx = Business::OnlinePayment->new("IPPay", %opt);
30 $ctx->content(%content);
33 desc => 'normal ACH transaction',
36 error_message => 'CHECK ACCEPTED',
37 authorization => qr/^000000$/,
40 $voidable = $ctx->order_number if $ctx->is_success;
43 #VOIDACH transactions are no longer supported. Please contact support@ippay.com for questions.
46 # my $ctx = Business::OnlinePayment->new("IPPay", %opt);
47 # $ctx->content(%content, action => 'void', order_number => $voidable);
50 # desc => 'ACH void transaction',
52 # result_code => '000',
53 # error_message => 'CHECK ACCEPTED',
54 # authorization => qr/^000000$/,
60 my $ctx = Business::OnlinePayment->new("IPPay", %opt);
61 $ctx->content(%content, action => 'credit');
64 desc => 'ACH credit transaction',
67 error_message => 'CHECK ACCEPTED',
68 authorization => qr/^000000$/,
76 $tx->test_transaction(1);
79 is( $tx->is_success, $o{is_success}, "$o{desc}: " . tx_info($tx) );
80 is( $tx->result_code, $o{result_code}, "result_code(): RESULT" );
81 is( $tx->error_message, $o{error_message}, "error_message() / RESPMSG" );
82 like( $tx->authorization, $o{authorization}, "authorization() / AUTHCODE" );
83 like( $tx->order_number, qr/^\w{18}/, "order_number() / PNREF" );
89 no warnings 'uninitialized';
93 "is_success(", $tx->is_success, ")",
94 " order_number(", $tx->order_number, ")",
95 " error_message(", $tx->error_message, ")",
96 " result_code(", $tx->result_code, ")",
97 " auth_info(", $tx->authorization, ")",