Change 13553 by jhi@alpha on 2001/12/09 16:25:52
Forgotten checkin.
Affected files ...
.... //depot/perl/lib/User/grent.t#2 edit
Differences ...
==== //depot/perl/lib/User/grent.t#2 (text) ====
Index: perl/lib/User/grent.t
--- perl/lib/User/grent.t.~1~ Sun Dec 9 09:30:06 2001
+++ perl/lib/User/grent.t Sun Dec 9 09:30:06 2001
@@ -5,40 +5,35 @@
@INC = '../lib';
}
+use Test::More tests => 5;
+
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 { use_ok('User::grent'); }
+can_ok(__PACKAGE__, 'getgrgid');
-print "ok 1\n";
+my $grent = getgrgid 0;
-my $grent = getgrgid 0; # This is the OO getgrgid.
+is( $grent->name, $grent[0], 'name matches core getgrgid' );
-print "not " unless $grent->gid == 0;
-print "ok 2\n";
+is( $grent->passwd, $grent[1], ' passwd' );
-print "not " unless $grent->name == $grent[0];
-print "ok 3\n";
-
-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.
End of Patch.
