t/testhost.t

   1 BEGIN { $| = 1; print "1..1\n"; }
   2
   3 use Business::OnlinePayment;
   4
   5 my $tx = new Business::OnlinePayment("VirtualNet");
   6
   7 $tx->testhost;
   8
   9 if($tx->is_success()) {
  10     print "ok 1\n";
  11 } else {
  12     warn "*******". $tx->error_message. "*******";
  13     print "not ok 1\n";
  14 }