@INC = '../lib';
}
-use Test::More tests => 5;
+use Test::More;
BEGIN {
our $hasgr;
}
BEGIN {
- our @grent = getgrgid 0; # This is the function getgrgid.
+ our $gid = $^O ne 'cygwin' ? 0 : 18;
+ our @grent = getgrgid $gid; # This is the function getgrgid.
unless (@grent) { plan skip_all => "no gid 0"; }
}
+BEGIN {
+ plan tests => 5;
+ use_ok('User::grent');
+}
-BEGIN { use_ok('User::grent'); }
can_ok(__PACKAGE__, 'getgrgid');
-my $grent = getgrgid 0;
+my $grent = getgrgid $gid;
is( $grent->name, $grent[0], 'name matches core getgrgid' );