diff options
author | James E Keenan <jkeenan@cpan.org> | 2012-12-09 17:25:49 -0500 |
---|---|---|
committer | James E Keenan <jkeenan@cpan.org> | 2012-12-14 20:51:32 -0500 |
commit | 0786cdf53b62dc7484ffeed5cb0c4ef0381bb1e0 (patch) | |
tree | ae1083d728c46193607b6af7f92932900aecb4e3 /t | |
parent | 18bf01f62244c12bdd28a45d902a7b292ea855f1 (diff) | |
download | perl-0786cdf53b62dc7484ffeed5cb0c4ef0381bb1e0.tar.gz |
t/op/grent.t: Provide descriptions for tests lacking them.
Diffstat (limited to 't')
-rw-r--r-- | t/op/grent.t | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/t/op/grent.t b/t/op/grent.t index 3611c1b890..3b28619605 100644 --- a/t/op/grent.t +++ b/t/op/grent.t @@ -28,11 +28,11 @@ if (not defined $where) { # Try NIS. { print "# `ypcat group` worked\n"; - # Check to make sure we're really using NIS. + # Check to make sure we are really using NIS. if( open(NSSW, "/etc/nsswitch.conf" ) ) { my($group) = grep /^\s*group:/, <NSSW>; - # If there's no group line, assume it default to compat. + # If there is no group line, assume it default to compat. if( !$group || $group !~ /(nis|compat)/ ) { print "# Doesn't look like you're using NIS in ". "/etc/nsswitch.conf\n"; @@ -91,7 +91,7 @@ ok( setgrent(), 'setgrent' ) || print "# $!\n"; while (<GR>) { chomp; - # LIMIT -1 so that groups with no users don't fall off + # LIMIT -1 so that groups with no users do not fall off my @s = split /:/, $_, -1; my ($name_s,$passwd_s,$gid_s,$members_s) = @s; if (@s) { @@ -158,7 +158,7 @@ EOEX fail(); print "#\t (not necessarily serious: run t/op/grent.t by itself)\n"; } else { - pass(); + pass("getgrgid and getgrnam performed as expected"); } # Test both the scalar and list contexts. @@ -183,6 +183,6 @@ for (1..$max) { } endgrent(); -is("@gr1", "@gr2"); +is("@gr1", "@gr2", "getgrent gave same results in scalar and list contexts"); close(GR); |