home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / programm / language / perl4s.lzh / perl4.035 / t / op / groups.t < prev    next >
Text File  |  1992-08-05  |  810b  |  48 lines
  1. #!./perl
  2.  
  3. if (! -x '/usr/ucb/groups') {
  4.     print "1..0\n";
  5.     exit 0;
  6. }
  7.  
  8. print "1..2\n";
  9.  
  10. $pwgid = $( + 0;
  11. ($pwgnam) = getgrgid($pwgid);
  12. @basegroup{$pwgid,$pwgnam} = (1,1);
  13.  
  14. $seen{$pwgid}++;
  15.  
  16. for (split(' ', $()) {
  17.     next if $seen{$_}++;
  18.     ($group) = getgrgid($_);
  19.     if (defined $group) {
  20.     push(@gr, $group);
  21.     }
  22.     else {
  23.     push(@gr, $_);
  24.     }
  25. } 
  26.  
  27. $gr1 = join(' ', sort @gr);
  28.  
  29. $gr2 = join(' ', grep(!$basegroup{$_}, sort split(' ',`/usr/ucb/groups`)));
  30.  
  31. if ($gr1 eq $gr2) {
  32.     print "ok 1\n";
  33. }
  34. else {
  35.     print "#gr1 is <$gr1>\n";
  36.     print "#gr2 is <$gr2>\n";
  37.     print "not ok 1\n";
  38. }
  39.  
  40. # multiple 0's indicate GROUPSTYPE is currently long but should be short
  41.  
  42. if ($pwgid == 0 || $seen{0} < 2) {
  43.     print "ok 2\n";
  44. }
  45. else {
  46.     print "not ok 2 (groupstype should be type short, not long)\n";
  47. }
  48.