3 use Test::More skip_all => "Authorize.net test account won't do ACH";
4 require "t/lib/test_account.pl";
6 my($login, $password) = test_account_or_skip('ach');
9 use_ok 'Business::OnlinePayment';
11 my $ctx = Business::OnlinePayment->new("AuthorizeNet");
12 $ctx->server('test.authorize.net');
16 password => $password,
17 action => 'Normal Authorization',
19 invoice_number => '100100',
23 account_name => 'Tofu Beast',
24 account_number => '12345',
25 routing_code => '111000025', # BoA in Texas taken from Wikipedia
26 bank_name => 'First National Test Bank',
27 account_type => 'Checking',
28 license_num => '12345678',
29 license_state => 'OR',
30 license_dob => '1975-05-21',
32 $ctx->test_transaction(1); # test, dont really charge
36 skip $ctx->error_message, 1 if $ctx->result_code == 18;
37 ok( $ctx->is_success() ) || diag $ctx->error_message;