hostname.t busted
authorRicardo SIGNES <rjbs@cpan.org>
Mon, 22 Oct 2007 09:01:09 +0000 (05:01 -0400)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 23 Oct 2007 10:30:40 +0000 (10:30 +0000)
Message-ID: <20071022130109.GA16748@knight>

p4raw-id: //depot/perl@32180

lib/Net/t/hostname.t

index 758d304..4013d74 100644 (file)
@@ -26,7 +26,10 @@ print "1..5\n";
 $domain = domainname();
 
 if(defined $domain && $domain ne "") {
- print "ok 1\n";
+ print "ok 1 - defined, non-empty domainname\n";
+}
+elsif (not defined $domain) {
+ print "ok 1 # SKIP domain not fully defined\n";
 }
 else {
  print "not ok 1\n";