Refactor most of the cut & paste for setting prefix/prefixexp variables

[p5sagit/p5-mst-13.2.git] / lib / User / grent.t

diff --git a/lib/User/grent.t b/lib/User/grent.t
index 760b814..f7eb2c2 100644 (file)
--- a/lib/User/grent.t
+++ b/lib/User/grent.t
@@ -5,40 +5,38 @@ BEGIN {
     @INC = '../lib';
 }
 
+use Test::More;
+
 BEGIN {
     our $hasgr;
     eval { my @n = getgrgid 0 };
     $hasgr = 1 unless $@ && $@ =~ /unimplemented/;
-    unless ($hasgr) { print "1..0 # Skip: no getgrgid\n"; exit 0 }
+    unless ($hasgr) { plan skip_all => "no getgrgid"; }
     use Config;
     $hasgr = 0 unless $Config{'i_grp'} eq 'define';
-    unless ($hasgr) { print "1..0 # Skip: no grp.h\n"; exit 0 }
+    unless ($hasgr) { plan skip_all => "no grp.h"; }
 }
 
 BEGIN {
     our @grent = getgrgid 0; # This is the function getgrgid.
-    unless (@grent) { print "1..0 # Skip: no gid 0\n"; exit 0 }
+    unless (@grent) { plan skip_all => "no gid 0"; }
 }
 
-print "1..5\n";
-
-use User::grent;
+BEGIN {
+    plan tests => 5;
+    use_ok('User::grent');
+}
 
-print "ok 1\n";
+can_ok(__PACKAGE__, 'getgrgid');
 
-my $grent = getgrgid 0; # This is the OO getgrgid.
+my $grent = getgrgid 0;
 
-print "not " unless $grent->gid    == 0;
-print "ok 2\n";
+is( $grent->name, $grent[0],    'name matches core getgrgid' );
 
-print "not " unless $grent->name   == $grent[0];
-print "ok 3\n";
+is( $grent->passwd, $grent[1],  '   passwd' );
 
-print "not " unless $grent->passwd eq $grent[1];
-print "ok 4\n";
+is( $grent->gid, $grent[2],     '   gid' );
 
-print "not " unless $grent->gid    == $grent[2];
-print "ok 5\n";
 
 # Testing pretty much anything else is unportable.