t/op/groups.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#!./perl

if (! -x '/usr/ucb/groups') {
    print "1..0\n";
    exit 0;
}

print "1..1\n";

for (split(' ', $()) {
    next if $seen{$_}++;
    push(@gr, (getgrgid($_))[0]); 
} 
$gr1 = join(' ',sort @gr);
$gr2 = join(' ', sort split(' ',`groups`));
#print "gr1 is <$gr1>\n";
#print "gr2 is <$gr2>\n";
print +($gr1 eq $gr2) ? "ok 1\n" : "not ok 1\n";