lib/Net/t/ph.t

   1 #!./perl -w
   2
   3 use Net::Config;
   4 use Net::PH;
   5
   6 unless(@{$NetConfig{ph_hosts}} && $NetConfig{test_hosts}) {
   7     print "1..0\n";
   8     exit 0;
   9 }
  10
  11 print "1..5\n";
  12
  13 my $i = 1;
  14
  15 $ph = Net::PH->new(Debug => 0)
  16         or (print("not ok 1\n"), exit);
  17
  18 print "ok 1\n";
  19
  20 $ph->fields or print "not ";
  21 print "ok 2\n";
  22
  23 $ph->siteinfo or print "not ";
  24 print "ok 3\n";
  25
  26 $ph->id or print "not ";
  27 print "ok 4\n";
  28
  29 $ph->quit or print "not ";
  30 print "ok 5\n";
  31