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("PPIPayMover");
12 'login' => '195325FCC230184964CAB3A8D93EEB31888C42C714E39CBBB2E541884485D04B', #token
13 action => 'Authorization Only',
14 description => 'Business::OnlinePayment auth + capture test',
16 invoice_number => '100100',
17 customer_id => '5454',
20 address => '123 Anystreet',
24 card_number => '4007000000027',
25 expiration => '08/06',
27 $tx->test_transaction(1); # test, dont really charge
30 unless($tx->is_success()) {
34 my $order_number = $tx->order_number;
38 my $settle_tx = new Business::OnlinePayment("PPIPayMover");
41 'login' => '195325FCC230184964CAB3A8D93EEB31888C42C714E39CBBB2E541884485D04B', #token
42 action => 'Post Authorization',
43 description => 'Business::OnlinePayment auth + capture test',
45 invoice_number => '100100',
46 order_number => $order_number,
47 card_number => '4007000000027',
48 expiration => '08/06',
49 customer_id => '5454',
52 $settle_tx->test_transaction(1); # test, dont really charge
55 if($settle_tx->is_success()) {
58 warn $settle_tx->error_message;