}
}
-# By now PW filehandle should be open and full of juicy password entries.
+# By now the PW filehandle should be open and full of juicy password entries.
-print "1..1\n";
+print "1..2\n";
# Go through at most this many users.
# (note that the first entry has been read away by now)
my %perfect;
my %seen;
+setpwent();
while (<PW>) {
chomp;
my @s = split /:/;
}
$n++;
}
+endpwent();
if (keys %perfect == 0) {
$max++;
print "\t# (not necessarily serious: run t/op/pwent.t by itself)" if $not;
print "\n";
+# Test both the scalar and array contexts.
+
+my @pw1;
+
+setpwent();
+for (1..$max) {
+ my $pw = scalar getpwent();
+ last unless defined $pw;
+ push @pw1, $pw;
+}
+endpwent();
+
+my @pw2;
+
+setpwent();
+for (1..$max) {
+ my ($pw) = (getpwent());
+ last unless defined $pw;
+ push @pw2, $pw;
+}
+endpwent();
+
+print "not " unless "@pw1" eq "@pw2";
+print "ok ", $tst++, "\n";
+
close(PW);