summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorJames E Keenan <jkeenan@cpan.org>2012-12-09 17:25:49 -0500
committerJames E Keenan <jkeenan@cpan.org>2012-12-14 20:51:32 -0500
commit0786cdf53b62dc7484ffeed5cb0c4ef0381bb1e0 (patch)
treeae1083d728c46193607b6af7f92932900aecb4e3 /t
parent18bf01f62244c12bdd28a45d902a7b292ea855f1 (diff)
downloadperl-0786cdf53b62dc7484ffeed5cb0c4ef0381bb1e0.tar.gz
t/op/grent.t: Provide descriptions for tests lacking them.
Diffstat (limited to 't')
-rw-r--r--t/op/grent.t10
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);