3 use Test::More skip_all => 'Authorize.net test account throwing errors about duplicates';
4 require "t/lib/test_account.pl";
6 my($login, $password) = test_account_or_skip('arb');
9 use_ok 'Business::OnlinePayment';
11 my $tx = Business::OnlinePayment->new("AuthorizeNet");
15 password => $password,
16 action => 'Recurring Authorization',
17 description => 'Business::OnlinePayment::ARB visa test',
19 invoice_number => '100100',
23 address => '123 Anystreet',
27 card_number => '4007000000027',
28 expiration => expiration_date(),
29 interval => '1 month',
33 $tx->test_transaction(1); # test, dont really charge
36 ok($tx->is_success()) or diag $tx->error_message;
38 my $subscription = $tx->order_number();
39 like($subscription, qr/^[0-9]{1,13}$/, "Get order number");
43 skip "No order number", 2 unless $subscription;
47 password => $password,
48 action => 'Modify Recurring Authorization',
49 subscription => $subscription,
52 $tx->test_transaction(1);
54 ok($tx->is_success()) or diag $tx->error_message;
58 password => $password,
59 action => 'Cancel Recurring Authorization',
60 subscription => $subscription,
62 $tx->test_transaction(1);
64 ok($tx->is_success()) or diag $tx->error_message;