t/lib/warnings/4lint

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