Add documentation for method domainname() in Net::Domain. Add some
[perl.git] / lib / Net / t / hostname.t
index 9db66a9..7577158 100644 (file)
@@ -13,7 +13,7 @@ BEGIN {
     }
 }
 
-use Net::Domain qw(hostname domainname hostdomain);
+use Net::Domain qw(hostname domainname hostdomain hostfqdn);
 use Net::Config;
 
 unless($NetConfig{test_hosts}) {
@@ -21,7 +21,7 @@ unless($NetConfig{test_hosts}) {
     exit 0;
 }
 
-print "1..2\n";
+print "1..5\n";
 
 $domain = domainname();
 
@@ -41,3 +41,12 @@ my @dummy = grep { defined hostname() and hostname() eq $_ } @domain;
 ($domain[0] && $domain[0] eq $copy[0])
   ? print "ok 2\n"
   : print "not ok 2\n";
+
+@dummy = grep { defined hostdomain() and hostdomain() eq $_ } @domain;
+
+($domain[0] && $domain[0] eq $copy[0])
+  ? print "ok 3\n"
+  : print "not ok 3\n";
+
+hostfqdn() eq hostname() . "." . hostdomain() ? print "ok 4\n" : print "not ok 4\n";
+domainname() eq hostname() . "." . hostdomain() ? print "ok 5\n" : print "not ok 5\n";