1#!./perl 2 3BEGIN { 4 chdir 't' if -d 't'; 5 @INC = '../lib'; 6} 7 8use Test::More; 9 10BEGIN { 11 our $hasgr; 12 eval { my @n = getgrgid 0 }; 13 $hasgr = 1 unless $@ && $@ =~ /unimplemented/; 14 unless ($hasgr) { plan skip_all => "no getgrgid"; } 15 use Config; 16 $hasgr = 0 unless $Config{'i_grp'} eq 'define'; 17 unless ($hasgr) { plan skip_all => "no grp.h"; } 18} 19 20BEGIN { 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"; } 24} 25 26BEGIN { 27 plan tests => 5; 28 use_ok('User::grent'); 29} 30 31can_ok(__PACKAGE__, 'getgrgid'); 32 33my $grent = getgrgid $gid; 34 35is( $grent->name, $grent[0], 'name matches core getgrgid' ); 36 37is( $grent->passwd, $grent[1], ' passwd' ); 38 39is( $grent->gid, $grent[2], ' gid' ); 40 41 42# Testing pretty much anything else is unportable. 43 44