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