4 require "t/lib/test_account.pl";
6 my($login, $password, @opts) = test_account_or_skip();
9 use_ok 'Business::OnlinePayment';
11 my $tx = Business::OnlinePayment->new("Vanco", @opts);
15 password => $password,
16 action => 'Normal Authorization',
17 description => 'Business::OnlinePayment visa test',
21 address => '123 Anystreet',
25 # card_number => '4007000000027',
26 card_number => '4111111111111111',
27 expiration => expiration_date(),
29 $tx->test_transaction(1); # test, dont really charge
32 ok($tx->is_success()) or diag $tx->error_message;