Add more known sprintf failures.
[p5sagit/p5-mst-13.2.git] / t / op / pwent.t
CommitLineData
c5987ebb 1#!./perl
2
3BEGIN {
4 chdir 't' if -d 't';
20822f61 5 @INC = '../lib';
df284ca6 6 eval {my @n = getpwuid 0};
7 if ($@ && $@ =~ /(The \w+ function is unimplemented)/) {
8 print "1..0 # Skip: $1\n";
9 exit 0;
10 }
c5987ebb 11 eval { require Config; import Config; };
45c0de28 12 my $reason;
13 if ($Config{'i_pwd'} ne 'define') {
14 $reason = '$Config{i_pwd} undefined';
15 }
16 elsif (not -f "/etc/passwd" ) { # Play safe.
17 $reason = 'no /etc/passwd file';
b91c0863 18 }
19
20 if (not defined $where) { # Try NIS.
21 foreach my $ypcat (qw(/usr/bin/ypcat /bin/ypcat /etc/ypcat)) {
22 if (-x $ypcat &&
23 open(PW, "$ypcat passwd 2>/dev/null |") &&
24 defined(<PW>)) {
25 $where = "NIS passwd";
45c0de28 26 undef $reason;
b91c0863 27 last;
28 }
29 }
30 }
c5987ebb 31
b91c0863 32 if (not defined $where) { # Try NetInfo.
33 foreach my $nidump (qw(/usr/bin/nidump)) {
34 if (-x $nidump &&
35 open(PW, "$nidump passwd . 2>/dev/null |") &&
36 defined(<PW>)) {
37 $where = "NetInfo passwd";
45c0de28 38 undef $reason;
b91c0863 39 last;
40 }
41 }
42 }
55ec6b63 43
b91c0863 44 if (not defined $where) { # Try local.
45 my $PW = "/etc/passwd";
46 if (-f $PW && open(PW, $PW) && defined(<PW>)) {
47 $where = $PW;
45c0de28 48 undef $reason;
55ec6b63 49 }
b91c0863 50 }
51
45c0de28 52 if ($reason) { # Give up.
53 print "1..0 # Skip: $reason\n";
c5987ebb 54 exit 0;
55 }
56}
57
765e9edb 58# By now the PW filehandle should be open and full of juicy password entries.
b91c0863 59
765e9edb 60print "1..2\n";
c5987ebb 61
62# Go through at most this many users.
b91c0863 63# (note that the first entry has been read away by now)
64my $max = 25;
c5987ebb 65
66my $n = 0;
c5987ebb 67my $tst = 1;
b91c0863 68my %perfect;
55ec6b63 69my %seen;
c5987ebb 70
bd055eb9 71setpwent();
c5987ebb 72while (<PW>) {
c5987ebb 73 chomp;
a941e390 74 # LIMIT -1 so that users with empty shells don't fall off
75 my @s = split /:/, $_, -1;
55ec6b63 76 my ($name_s, $passwd_s, $uid_s, $gid_s, $gcos_s, $home_s, $shell_s) = @s;
b91c0863 77 next if /^\+/; # ignore NIS includes
55ec6b63 78 if (@s) {
79 push @{ $seen{$name_s} }, $.;
80 } else {
81 warn "# Your $where line $. is empty.\n";
82 next;
83 }
09ac174e 84 if ($n == $max) {
85 local $/;
86 my $junk = <PW>;
87 last;
88 }
55ec6b63 89 # In principle we could whine if @s != 7 but do we know enough
90 # of passwd file formats everywhere?
c5987ebb 91 if (@s == 7) {
c5987ebb 92 @n = getpwuid($uid_s);
93 # 'nobody' et al.
94 next unless @n;
95 my ($name,$passwd,$uid,$gid,$quota,$comment,$gcos,$home,$shell) = @n;
96 # Protect against one-to-many and many-to-one mappings.
97 if ($name_s ne $name) {
98 @n = getpwnam($name_s);
99 ($name,$passwd,$uid,$gid,$quota,$comment,$gcos,$home,$shell) = @n;
100 next if $name_s ne $name;
101 }
b91c0863 102 $perfect{$name_s}++
103 if $name eq $name_s and
104 $uid eq $uid_s and
105# Do not compare passwords: think shadow passwords.
106 $gid eq $gid_s and
107 $gcos eq $gcos_s and
108 $home eq $home_s and
109 $shell eq $shell_s;
c5987ebb 110 }
111 $n++;
112}
bd055eb9 113endpwent();
c5987ebb 114
b91c0863 115if (keys %perfect == 0) {
116 $max++;
117 print <<EOEX;
118#
119# The failure of op/pwent test is not necessarily serious.
120# It may fail due to local password administration conventions.
121# If you are for example using both NIS and local passwords,
122# test failure is possible. Any distributed password scheme
123# can cause such failures.
124#
125# What the pwent test is doing is that it compares the $max first
126# entries of $where
127# with the results of getpwuid() and getpwnam() call. If it finds no
128# matches at all, it suspects something is wrong.
129#
130EOEX
131 print "not ";
132 $not = 1;
133} else {
134 $not = 0;
55ec6b63 135}
b91c0863 136print "ok ", $tst++;
137print "\t# (not necessarily serious: run t/op/pwent.t by itself)" if $not;
138print "\n";
c5987ebb 139
91e74348 140# Test both the scalar and list contexts.
765e9edb 141
142my @pw1;
143
765e9edb 144setpwent();
145for (1..$max) {
146 my $pw = scalar getpwent();
147 last unless defined $pw;
148 push @pw1, $pw;
149}
bd055eb9 150endpwent();
765e9edb 151
152my @pw2;
153
765e9edb 154setpwent();
155for (1..$max) {
156 my ($pw) = (getpwent());
157 last unless defined $pw;
158 push @pw2, $pw;
159}
bd055eb9 160endpwent();
765e9edb 161
162print "not " unless "@pw1" eq "@pw2";
163print "ok ", $tst++, "\n";
164
c5987ebb 165close(PW);