home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / prgramer / perl / groups.t < prev    next >
Encoding:
Text File  |  1991-06-12  |  461 b   |  25 lines
  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";
  25.