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("AuthorizeNet");
12 $tx->server('test.authorize.net');
16 password => $password,
17 action => 'Normal Authorization',
18 description => 'Business::OnlinePayment visa test',
20 invoice_number => '100100',
24 address => '123 Anystreet',
28 card_number => '4007000000027',
29 expiration => expiration_date(),
31 $tx->test_transaction(1); # test, dont really charge
34 ok($tx->is_success()) or diag $tx->error_message;