Tests to check cp() doesn't drop set[eu]id bits.

[p5sagit/p5-mst-13.2.git] / lib / Net / hostent.t

diff --git a/lib/Net/hostent.t b/lib/Net/hostent.t
index e82cf85..2616b56 100644 (file)
--- a/lib/Net/hostent.t
+++ b/lib/Net/hostent.t
@@ -5,7 +5,7 @@ BEGIN {
     @INC = '../lib';
 }
 
-use Test::More tests => 7;
+use Test::More;
 
 BEGIN {
     require Config; import Config;
@@ -14,8 +14,12 @@ BEGIN {
     {
        plan skip_all => "Test uses Socket, Socket not built";
     }
+    if ($^O eq 'MacOS' || ($^O eq 'irix' && $Config{osvers} == 5)) {
+       plan skip_all => "Test relies on resolution of localhost, fails on $^O ($Config{osvers})";
+    }
 }
 
+use Test::More tests => 7;
 
 BEGIN { use_ok 'Net::hostent' }