12 eval { my @n = getgrgid 0 };
13 $hasgr = 1 unless $@ && $@ =~ /unimplemented/;
14 unless ($hasgr) { plan skip_all => "no getgrgid"; }
16 $hasgr = 0 unless $Config{'i_grp'} eq 'define';
17 unless ($hasgr) { plan skip_all => "no grp.h"; }
21 our $gid = $^O ne 'cygwin' ? 0 : 18;
22 our @grent = getgrgid $gid; # This is the function getgrgid.
23 unless (@grent) { plan skip_all => "no gid 0"; }
28 use_ok('User::grent');
31 can_ok(__PACKAGE__, 'getgrgid');
33 my $grent = getgrgid $gid;
35 is( $grent->name, $grent[0], 'name matches core getgrgid' );
37 is( $grent->passwd, $grent[1], ' passwd' );
39 is( $grent->gid, $grent[2], ' gid' );
42 # Testing pretty much anything else is unportable.