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 => 'Authorization Only',
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;
36 my $order_number = $tx->order_number;
37 like $order_number, qr/^\d+$/;
39 my $settle_tx = Business::OnlinePayment->new("AuthorizeNet");
40 $settle_tx->server('test.authorize.net');
44 password => $password,
45 action => 'Post Authorization',
46 description => 'Business::OnlinePayment visa test',
48 invoice_number => '100100',
49 order_number => '111',
50 card_number => '4007000000027',
51 expiration => expiration_date(),
54 $settle_tx->test_transaction(1); # test, dont really charge
57 ok($settle_tx->is_success()) || diag $settle_tx->error_message;