Move the locale/strict/warnings helper files back
[p5sagit/p5-mst-13.2.git] / t / lib / warnings / 4lint
CommitLineData
599cee73 1Check lint
2
3__END__
4-W
5# lint: check compile time $^W is zapped
6BEGIN { $^W = 0 ;}
551cd33c 7$a = 1 ;
8$a =+ 1 ;
599cee73 9close STDIN ; print STDIN "abc" ;
10EXPECT
551cd33c 11Reversed += operator at - line 5.
43693395 12print() on closed filehandle STDIN at - line 6.
599cee73 13########
14-W
15# lint: check runtime $^W is zapped
16$^W = 0 ;
17close STDIN ; print STDIN "abc" ;
18EXPECT
43693395 19print() on closed filehandle STDIN at - line 4.
599cee73 20########
21-W
22# lint: check runtime $^W is zapped
23{
24 $^W = 0 ;
25 close STDIN ; print STDIN "abc" ;
26}
27EXPECT
43693395 28print() on closed filehandle STDIN at - line 5.
599cee73 29########
30-W
4438c4b7 31# lint: check "no warnings" is zapped
32no warnings ;
551cd33c 33$a = 1 ;
34$a =+ 1 ;
599cee73 35close STDIN ; print STDIN "abc" ;
36EXPECT
551cd33c 37Reversed += operator at - line 5.
43693395 38print() on closed filehandle STDIN at - line 6.
599cee73 39########
40-W
4438c4b7 41# lint: check "no warnings" is zapped
599cee73 42{
4438c4b7 43 no warnings ;
599cee73 44 close STDIN ; print STDIN "abc" ;
45}
46EXPECT
43693395 47print() on closed filehandle STDIN at - line 5.
599cee73 48########
49-Ww
50# lint: check combination of -w and -W
51{
52 $^W = 0 ;
53 close STDIN ; print STDIN "abc" ;
54}
55EXPECT
43693395 56print() on closed filehandle STDIN at - line 5.
599cee73 57########
58-W
59--FILE-- abc.pm
551cd33c 60no warnings 'syntax' ;
61my $a = 0;
62$a =+ 1 ;
599cee73 631;
64--FILE--
4438c4b7 65no warnings 'uninitialized' ;
599cee73 66use abc;
67my $a ; chop $a ;
68EXPECT
551cd33c 69Reversed += operator at abc.pm line 3.
b89fed5f 70Use of uninitialized value in scalar chop at - line 3.
599cee73 71########
72-W
73--FILE-- abc
551cd33c 74no warnings 'syntax' ;
75my $a = 0;
76$a =+ 1 ;
599cee73 771;
78--FILE--
4438c4b7 79no warnings 'uninitialized' ;
599cee73 80require "./abc";
81my $a ; chop $a ;
82EXPECT
551cd33c 83Reversed += operator at ./abc line 3.
b89fed5f 84Use of uninitialized value in scalar chop at - line 3.
599cee73 85########
86-W
87--FILE-- abc.pm
88BEGIN {$^W = 0}
551cd33c 89my $a = 0 ;
90$a =+ 1 ;
599cee73 911;
92--FILE--
93$^W = 0 ;
94use abc;
95my $a ; chop $a ;
96EXPECT
551cd33c 97Reversed += operator at abc.pm line 3.
b89fed5f 98Use of uninitialized value in scalar chop at - line 3.
599cee73 99########
100-W
101--FILE-- abc
102BEGIN {$^W = 0}
551cd33c 103my $a = 0 ;
104$a =+ 1 ;
599cee73 1051;
106--FILE--
107$^W = 0 ;
108require "./abc";
109my $a ; chop $a ;
110EXPECT
551cd33c 111Reversed += operator at ./abc line 3.
b89fed5f 112Use of uninitialized value in scalar chop at - line 3.
16ff4256 113########
114-W
115# Check scope of pragma with eval
116{
117 no warnings ;
118 eval '
119 my $b ; chop $b ;
120 '; print STDERR $@ ;
121 my $b ; chop $b ;
122}
123EXPECT
124Use of uninitialized value in scalar chop at (eval 1) line 2.
125Use of uninitialized value in scalar chop at - line 8.
126########
127-W
128# Check scope of pragma with eval
129use warnings;
130{
131 no warnings ;
132 eval q[
133 use warnings 'uninitialized' ;
134 my $b ; chop $b ;
135 ]; print STDERR $@;
136 my $b ; chop $b ;
137}
138EXPECT
139Use of uninitialized value in scalar chop at (eval 1) line 3.
140Use of uninitialized value in scalar chop at - line 10.
141########
142-W
143# Check scope of pragma with eval
144no warnings;
145{
146 use warnings 'uninitialized' ;
147 eval '
148 my $b ; chop $b ;
149 '; print STDERR $@ ;
150 my $b ; chop $b ;
151}
152EXPECT
153Use of uninitialized value in scalar chop at (eval 1) line 2.
154Use of uninitialized value in scalar chop at - line 9.
155########
156-W
157# Check scope of pragma with eval
158no warnings;
159{
160 use warnings 'uninitialized' ;
161 eval '
162 no warnings ;
163 my $b ; chop $b ;
164 '; print STDERR $@ ;
165 my $b ; chop $b ;
166}
167EXPECT
168Use of uninitialized value in scalar chop at (eval 1) line 3.
169Use of uninitialized value in scalar chop at - line 10.
170########
171-W
172# Check scope of pragma with eval
173use warnings;
174{
175 my $a = "1"; my $b = "2";
176 no warnings ;
177 eval q[
551cd33c 178 use warnings 'syntax' ;
179 $a =+ 1 ;
16ff4256 180 ]; print STDERR $@;
551cd33c 181 $a =+ 1 ;
16ff4256 182}
183EXPECT
551cd33c 184Reversed += operator at - line 11.
185Reversed += operator at (eval 1) line 3.
16ff4256 186########
187-W
188# Check scope of pragma with eval
189no warnings;
190{
191 my $a = "1"; my $b = "2";
551cd33c 192 use warnings 'syntax' ;
16ff4256 193 eval '
551cd33c 194 $a =+ 1 ;
16ff4256 195 '; print STDERR $@;
551cd33c 196 $a =+ 1 ;
16ff4256 197}
198EXPECT
551cd33c 199Reversed += operator at - line 10.
200Reversed += operator at (eval 1) line 2.
16ff4256 201########
202-W
203# Check scope of pragma with eval
204no warnings;
205{
206 my $a = "1"; my $b = "2";
551cd33c 207 use warnings 'syntax' ;
16ff4256 208 eval '
209 no warnings ;
551cd33c 210 $a =+ 1 ;
16ff4256 211 '; print STDERR $@;
551cd33c 212 $a =+ 1 ;
16ff4256 213}
214EXPECT
551cd33c 215Reversed += operator at - line 11.
216Reversed += operator at (eval 1) line 3.