From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 23 Jun 2001 13:30:06 +0000 (+0000)
Subject: The group (and assumedly passwd) databases can have
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f0debaab11acfe6992f6da4af7eac8825f6da4d8;p=p5sagit%2Fp5-mst-13.2.git

The group (and assumedly passwd) databases can have
only one entry (this is the case in cygwin).

p4raw-id: //depot/perl@10859
---

diff --git a/t/op/grent.t b/t/op/grent.t
index 211dc91..3ef111d 100755
--- a/t/op/grent.t
+++ b/t/op/grent.t
@@ -67,7 +67,10 @@ my $tst = 1;
 my %perfect;
 my %seen;
 
+print "# where $where\n";
+
 setgrent();
+
 while (<GR>) {
     chomp;
     # LIMIT -1 so that groups with no users don't fall off
@@ -115,7 +118,9 @@ while (<GR>) {
 
 endgrent();
 
-if (keys %perfect == 0) {
+print "# max = $max, n = $n, perfect = ", scalar keys %perfect, "\n";
+
+if (keys %perfect < $n) {
     $max++;
     print <<EOEX;
 #
diff --git a/t/op/pwent.t b/t/op/pwent.t
index 01dbd24..9b1a5b1 100755
--- a/t/op/pwent.t
+++ b/t/op/pwent.t
@@ -68,7 +68,10 @@ my $tst = 1;
 my %perfect;
 my %seen;
 
+print "# where $where\n";
+
 setpwent();
+
 while (<PW>) {
     chomp;
     # LIMIT -1 so that users with empty shells don't fall off
@@ -115,9 +118,12 @@ while (<PW>) {
     }
     $n++;
 }
+
 endpwent();
 
-if (keys %perfect == 0) {
+print "# max = $max, n = $n, perfect = ", scalar keys %perfect, "\n";
+
+if (keys %perfect < $n) {
     $max++;
     print <<EOEX;
 #