Test hex('x...').

[p5sagit/p5-mst-13.2.git] / t / op / groups.t

diff --git a/t/op/groups.t b/t/op/groups.t
index 8d5689e..f46af93 100755 (executable)
--- a/t/op/groups.t
+++ b/t/op/groups.t
@@ -1,6 +1,16 @@
 #!./perl
 
-$ENV{PATH} = '/bin:/usr/bin:/usr/xpg4/bin:/usr/ucb';
+$ENV{PATH} ="/bin:/usr/bin:/usr/xpg4/bin:/usr/ucb" .
+    exists $ENV{PATH} ? ":$ENV{PATH}" : "";
+$ENV{LC_ALL} = "C"; # so that external utilities speak English
+$ENV{LANGUAGE} = 'C'; # GNU locale extension
+
+sub quit {
+    print "1..0 # Skip: no `id` or `groups`\n";
+    exit 0;
+}
+
+quit() if $^O eq 'MSWin32';
 
 # We have to find a command that prints all (effective
 # and real) group names (not ids).  The known commands are:
@@ -52,7 +62,11 @@ EOM
        last GROUPS;
     }
     # Okay, not today.
-    print "1..0\n";
+    quit();
+}
+
+unless (eval { getgrgid(0); 1 }) {
+    print "1..0 # Skip: getgrgid() not implemented\n";
     exit 0;
 }