diff options
| author | Steve Peters <steve@fisharerojo.org> | 2005-12-23 00:10:25 +0000 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2005-12-23 00:10:25 +0000 |
| commit | efa2a43b6b2997da5efff097885108e28b4cd901 (patch) | |
| tree | df6953bc5262a71d7d37e0f0e00f832e9713c353 /lib/Net | |
| parent | 66112e6bb03fbfd6d0ed24ae598b9937e2e4884c (diff) | |
| download | perl-efa2a43b6b2997da5efff097885108e28b4cd901.tar.gz | |
Make hostname.t deal with undefined or blank hostnames and domain
names.
p4raw-id: //depot/perl@26458
Diffstat (limited to 'lib/Net')
| -rw-r--r-- | lib/Net/t/hostname.t | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/lib/Net/t/hostname.t b/lib/Net/t/hostname.t index 7577158199..758d304e78 100644 --- a/lib/Net/t/hostname.t +++ b/lib/Net/t/hostname.t @@ -48,5 +48,11 @@ my @dummy = grep { defined hostname() and hostname() eq $_ } @domain; ? 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"; +my $name = hostname(); +my $domain = hostdomain(); +if(defined $domain && defined $name && $name ne "" && $domain ne "") { + hostfqdn() eq $name . "." . $domain ? print "ok 4\n" : print "not ok 4\n"; + domainname() eq $name . "." . $domain ? print "ok 5\n" : print "not ok 5\n";} else { + print "ok 4 # SKIP domain not fully defined\n"; + print "ok 5 # SKIP domain not fully defined\n"; +} |