`id -Gn` might be available where `groups` is not.

p4raw-id: //depot/cfgperl@2098

diff --git a/t/op/groups.t b/t/op/groups.t
index f6f5ba2..97a4105 100755 (executable)
--- a/t/op/groups.t
+++ b/t/op/groups.t
@@ -1,8 +1,11 @@
 #!./perl
 
-if (! -x ($groups = '/usr/ucb/groups') &&
-    ! -x ($groups = '/usr/bin/groups') &&
-    ! -x ($groups = '/bin/groups')
+if (! -x ($groups = '/usr/ucb/groups') &&
+    ! -x ($groups = '/usr/bin/groups') &&
+    ! -x ($groups = '/bin/groups')     &&
+    ! -x ($groups = '/usr/bin/id')     &&
+    ! -x ($groups = '/bin/id')         &&
+    ! -x ($groups = '/usr/xpg4/bin/id')
 ) {
     print "1..0\n";
     exit 0;
@@ -33,6 +36,8 @@ if ($^O eq "uwin") {
        $gr1 = join(' ', sort @gr);
 }
 
+$groups .= ' -Gn' if $groups =~ m:/id$:;
+
 $gr2 = join(' ', grep(!$basegroup{$_}++, sort split(' ',`$groups`)));
 
 if ($gr1 eq $gr2) {