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 => 'Recurring Authorization',
17 description => 'Business::OnlinePayment visa test',
19 customer_id => 'tofu',
21 address => '123 Anystreet',
25 card_number => '5105105105105100',
26 expiration => expiration_date(),
27 interval => '1 month',
31 $tx->test_transaction(1); # test, dont really charge
34 ok($tx->is_success()) or diag $tx->error_message;
36 my $subscription = $tx->order_number();
37 like($subscription, qr/^[0-9]{1,13}$/, "Get order number");
41 skip "No order number", 1 unless $subscription;
45 password => $password,
46 action => 'Cancel Recurring Authorization',
47 subscription => $subscription,
49 $tx->test_transaction(1);
51 ok($tx->is_success()) or diag $tx->error_message;