t/op/groups.t

   1 #!./perl
   2
   3 if (! -x '/usr/ucb/groups') {
   4     print "1..0\n";
   5     exit 0;
   6 }
   7
   8 print "1..1\n";
   9
  10 for (split(' ', $()) {
  11     next if $seen{$_}++;
  12     push(@gr, (getgrgid($_))[0]);
  13 }
  14 $gr1 = join(' ',sort @gr);
  15 $gr2 = join(' ', sort split(' ',`groups`));
  16 #print "gr1 is <$gr1>\n";
  17 #print "gr2 is <$gr2>\n";
  18 print +($gr1 eq $gr2) ? "ok 1\n" : "not ok 1\n";