1 #BEGIN { $| = 1; print "1..4\n"; }
2 BEGIN { $| = 1; print "1..3\n"; }
4 use Business::OnlinePayment;
7 '2033500000' => '0130',
8 '2012179746' => '0150',
9 '4083624100' => '0160',
10 #got 0416 (expected 0141)?? #'9044270189' => '0141',
13 foreach my $phone (keys %phone2error) {
15 my $tx = new Business::OnlinePayment("PayConnect",
22 action => 'Authorization Only',
23 description => 'Business::OnlinePayment LEC test',
25 invoice_number => '100100',
29 address => '123 Anystreet',
35 $tx->test_transaction(1); # test, dont really charge (NOP for this gateway)
39 if($tx->is_success() || $tx->result_code ne $phone2error{$phone} ) {
40 warn "**** got ". $tx->result_code. " (expected $phone2error{$phone}): ".
41 $tx->error_message. " ****\n";
42 print "not ok $num\n";