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 78a748f..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:
@@ -11,6 +21,7 @@ $ENV{PATH} = '/bin:/usr/bin:/usr/xpg4/bin:/usr/ucb';
 # Beware 2: id -Gn or id -a format might be id(name) or name(id).
 # Beware 3: the groups= might be anywhere in the id output.
 # Beware 4: groups can have spaces ('id -a' being the only defense against this)
+# Beware 5: id -a might not contain the groups= part.
 #
 # That is, we might meet the following:
 #
@@ -28,7 +39,7 @@ GROUPS: {
     if (($groups = `id -a 2>/dev/null`) ne '') {
        # $groups is of the form:
        # uid=39957(gsar) gid=22(users) groups=33536,39181,22(users),0(root),1067(dev)
-       last GROUPS;
+       last GROUPS if $groups =~ /groups=/;
     }
     if (($groups = `id -Gn 2>/dev/null`) ne '') {
        # $groups could be of the form:
@@ -51,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;
 }