1 BEGIN { $| = 1; print "1..1\n"; }
3 print "ok 1 # Skipped: need a valid Authorize.Net login/password to test\n"; exit;
5 use Business::OnlinePayment;
7 my $tx = new Business::OnlinePayment("AuthorizeNet");
10 login => 'testdrive', # CHANGE THESE TO TEST
11 password => 'testdrive', #
12 action => 'Normal Authorization',
13 description => 'Business::OnlinePayment visa test',
15 invoice_number => '100100',
19 address => '123 Anystreet',
23 card_number => '4007000000027',
24 expiration => '08/06',
26 $tx->test_transaction(1); # test, dont really charge
29 if($tx->is_success()) {