[p5sagit/p5-mst-13.2.git] / t / op / groups.t

#!./perl

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

print "1..1\n";

for (split(' ', $()) {
    next if $seen{$_}++;
    ($group) = getgrgid($_);
    if (defined $group) {
	push(@gr, $group);
    }
    else {
	push(@gr, $_);
    }
} 
$gr1 = join(' ',sort @gr);
$gr2 = join(' ', sort split(' ',`/usr/ucb/groups`));
#print "gr1 is <$gr1>\n";
#print "gr2 is <$gr2>\n";
print +($gr1 eq $gr2) ? "ok 1\n" : "not ok 1\n";
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	}
fe14fcc3	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";