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