Newsgroups: comp.lang.perl
Path: utzoo!utgpu!news-server.csri.toronto.edu!torsqnt!jtsv16!gerry
From: gerry@jts.com (G. Roderick Singleton )
Subject: t/op/groups.t fails
Message-ID: <1991Apr22.212847.3788@jts.com>
Organization: JTS Computer Systems Ltd.
Date: Mon, 22 Apr 1991 21:28:47 GMT

The only test that fails is this one.  Fro the record here's the
text of the test:


	#!./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";

As I read this it uses a built-in, getgrpid() to get the various
groups then uses /usr/ucb/groups to get a "system level list" and
compares the two arrays.

Now the ISI4.3(NFS+YP) version of groups graps the ypmap for groups.
Needless to say when groups.t is executed it fails.  So before
I go and install I like some help analyzing the problem and perhaps
getting a soluution,even.  I'm a relative neophyte at perl so
I'd prefer not to play with the internals without more information.
Ho 'bout it?

ger
-- 
G. Roderick Singleton, System and Network Manager, JTS Computers 
{yunexus | uunet | geac | torsqnt}!gerry@jtsv16.jts.com
