1 BEGIN { $| = 1; print "1..2\n"; }
3 print "ok 1 # Skipped: no separate auth + capture test yet\n";
4 print "ok 2 # Skipped: no separate auth + capture test yet\n";
7 use Business::OnlinePayment;
9 my $tx = new Business::OnlinePayment("OpenECHO");
12 login => 'testing',# CHANGE THESE TO TEST
13 password => 'testing',#
14 action => 'Authorization Only',
15 description => 'Business::OnlinePayment visa test',
17 invoice_number => '100100',
21 address => '123 Anystreet',
25 card_number => '4007000000027',
26 expiration => '08/06',
28 $tx->test_transaction(1); # test, dont really charge
31 unless($tx->is_success()) {
35 my $order_number = $tx->order_number;
39 my $settle_tx = new Business::OnlinePayment("OpenECHO");
42 login => 'testing', # CHANGE THESE TO TEST
43 password => 'testing', #
44 action => 'Post Authorization',
45 description => 'Business::OnlinePayment visa test',
47 invoice_number => '100100',
48 order_number => '111',
49 card_number => '4007000000027',
50 expiration => '08/06',
53 $settle_tx->test_transaction(1); # test, dont really charge
56 if($settle_tx->is_success()) {
59 warn $settle_tx->error_message;