lib/Net/t/hostname.t

   1 #!./perl -w
   2
   3 BEGIN {
   4     chdir 't' if -d 't';
   5     @INC = '../lib';
   6 }
   7
   8 use Net::Domain qw(hostname domainname hostdomain);
   9 use Net::Config;
  10
  11 unless($NetConfig{test_hosts}) {
  12     print "1..0\n";
  13     exit 0;
  14 }
  15
  16 print "1..1\n";
  17
  18 $domain = domainname();
  19
  20 if(defined $domain && $domain ne "") {
  21  print "ok 1\n";
  22 }
  23 else {
  24  print "not ok 1\n";
  25 }