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     ($group) = getgrgid($_);
  13     if (defined $group) {
  14         push(@gr, $group);
  15     }
  16     else {
  17         push(@gr, $_);
  18     }
  19 }
  20 $gr1 = join(' ',sort @gr);
  21 $gr2 = join(' ', sort split(' ',`/usr/ucb/groups`));
  22 #print "gr1 is <$gr1>\n";
  23 #print "gr2 is <$gr2>\n";
  24 print +($gr1 eq $gr2) ? "ok 1\n" : "not ok 1\n";