1 BEGIN { $| = 1; print "1..2\n"; }
3 use Business::OnlinePayment;
5 foreach my $phone (qw( 4082435901 8107926049 )) {
7 my $tx = new Business::OnlinePayment("PayConnect",
14 action => 'Authorization Only',
15 description => 'Business::OnlinePayment LEC test',
17 invoice_number => '100100',
22 address => '123 Anystreet',
28 $tx->test_transaction(1); # test, dont really charge (NOP for this gateway)
32 if($tx->is_success()) {
35 warn "*******". $tx->error_message. "*******";
36 print "not ok $num\n";