Commit | Line | Data |
55d729e4 |
1 | #!./perl -w |
2 | |
3 | # |
4 | # test auto defined() test insertion |
5 | # |
6 | |
7 | BEGIN { |
8 | chdir 't' if -d 't'; |
9 | @INC = '../lib'; |
10 | $SIG{__WARN__} = sub { $warns++; warn $_[0] }; |
11 | print "1..14\n"; |
12 | } |
b2b3adea |
13 | |
14 | $wanted_filename = $^O eq 'VMS' ? '0.' : '0'; |
55d729e4 |
15 | |
16 | print "not " if $warns; |
17 | print "ok 1\n"; |
18 | |
19 | open(FILE,">./0"); |
20 | print FILE "1\n"; |
21 | print FILE "0"; |
22 | close(FILE); |
23 | |
24 | open(FILE,"<./0"); |
25 | my $seen = 0; |
26 | my $dummy; |
27 | while (my $name = <FILE>) |
28 | { |
29 | $seen++ if $name eq '0'; |
30 | } |
31 | print "not " unless $seen; |
32 | print "ok 2\n"; |
33 | |
34 | seek(FILE,0,0); |
35 | $seen = 0; |
36 | my $line = ''; |
37 | do |
38 | { |
39 | $seen++ if $line eq '0'; |
40 | } while ($line = <FILE>); |
41 | |
42 | print "not " unless $seen; |
43 | print "ok 3\n"; |
44 | |
45 | |
46 | seek(FILE,0,0); |
47 | $seen = 0; |
48 | while (($seen ? $dummy : $name) = <FILE>) |
49 | { |
50 | $seen++ if $name eq '0'; |
51 | } |
52 | print "not " unless $seen; |
53 | print "ok 4\n"; |
54 | |
55 | seek(FILE,0,0); |
56 | $seen = 0; |
57 | my %where; |
58 | while ($where{$seen} = <FILE>) |
59 | { |
60 | $seen++ if $where{$seen} eq '0'; |
61 | } |
62 | print "not " unless $seen; |
63 | print "ok 5\n"; |
64 | |
65 | opendir(DIR,'.'); |
66 | $seen = 0; |
67 | while (my $name = readdir(DIR)) |
68 | { |
b2b3adea |
69 | $seen++ if $name eq $wanted_filename; |
55d729e4 |
70 | } |
71 | print "not " unless $seen; |
72 | print "ok 6\n"; |
73 | |
74 | rewinddir(DIR); |
75 | $seen = 0; |
76 | $dummy = ''; |
77 | while (($seen ? $dummy : $name) = readdir(DIR)) |
78 | { |
b2b3adea |
79 | $seen++ if $name eq $wanted_filename; |
55d729e4 |
80 | } |
81 | print "not " unless $seen; |
82 | print "ok 7\n"; |
83 | |
84 | rewinddir(DIR); |
85 | $seen = 0; |
86 | while ($where{$seen} = readdir(DIR)) |
87 | { |
b2b3adea |
88 | $seen++ if $where{$seen} eq $wanted_filename; |
55d729e4 |
89 | } |
90 | print "not " unless $seen; |
91 | print "ok 8\n"; |
92 | |
93 | $seen = 0; |
94 | while (my $name = glob('*')) |
95 | { |
b2b3adea |
96 | $seen++ if $name eq $wanted_filename; |
55d729e4 |
97 | } |
98 | print "not " unless $seen; |
99 | print "ok 9\n"; |
100 | |
101 | $seen = 0; |
102 | $dummy = ''; |
103 | while (($seen ? $dummy : $name) = glob('*')) |
104 | { |
b2b3adea |
105 | $seen++ if $name eq $wanted_filename; |
55d729e4 |
106 | } |
107 | print "not " unless $seen; |
108 | print "ok 10\n"; |
109 | |
110 | $seen = 0; |
111 | while ($where{$seen} = glob('*')) |
112 | { |
b2b3adea |
113 | $seen++ if $where{$seen} eq $wanted_filename; |
55d729e4 |
114 | } |
115 | print "not " unless $seen; |
116 | print "ok 11\n"; |
117 | |
118 | unlink("./0"); |
119 | |
120 | my %hash = (0 => 1, 1 => 2); |
121 | |
122 | $seen = 0; |
123 | while (my $name = each %hash) |
124 | { |
125 | $seen++ if $name eq '0'; |
126 | } |
127 | print "not " unless $seen; |
128 | print "ok 12\n"; |
129 | |
130 | $seen = 0; |
131 | $dummy = ''; |
132 | while (($seen ? $dummy : $name) = each %hash) |
133 | { |
134 | $seen++ if $name eq '0'; |
135 | } |
136 | print "not " unless $seen; |
137 | print "ok 13\n"; |
138 | |
139 | $seen = 0; |
140 | while ($where{$seen} = each %hash) |
141 | { |
142 | $seen++ if $where{$seen} eq '0'; |
143 | } |
144 | print "not " unless $seen; |
145 | print "ok 14\n"; |
146 | |