lib/Net/t/hostname.t

   1
   2 use Net::Domain qw(hostname domainname hostdomain);
   3 use Net::Config;
   4
   5 unless($NetConfig{test_hosts}) {
   6     print "1..0\n";
   7     exit 0;
   8 }
   9
  10 print "1..1\n";
  11
  12 $domain = domainname();
  13
  14 if(defined $domain && $domain ne "") {
  15  print "ok 1\n";
  16 }
  17 else {
  18  print "not ok 1\n";
  19 }