4 require 't/lib/test_account.pl';
6 my($login, $password) = test_account_or_skip();
9 use_ok 'Business::OnlinePayment';
11 my $tx = Business::OnlinePayment->new('WesternACH');
15 password => $password,
16 action => 'Normal Authorization',
17 description => 'Business::OnlinePayment checking test',
19 invoice_number => '10999',
20 customer_id => 'nobody',
23 address => '123 Anywhere',
27 account_number => '100012345678',
28 routing_code => '307070005',
29 account_type => 'Checking',
30 check_number => '1277'
34 ok($tx->is_success()) or diag $tx->error_message;