t/pragma/warn/4lint

   1 Check lint
   2
   3 __END__
   4 -W
   5 # lint: check compile time $^W is zapped
   6 BEGIN { $^W = 0 ;}
   7 $a = $b = 1 ;
   8 $a = 1 if $a EQ $b ;
   9 close STDIN ; print STDIN "abc" ;
  10 EXPECT
  11 Use of EQ is deprecated at - line 5.
  12 print() on closed filehandle main::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 main::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 main::STDIN at - line 5.
  29 ########
  30 -W
  31 # lint: check "no warnings" is zapped
  32 no warnings ;
  33 $a = $b = 1 ;
  34 $a = 1 if $a EQ $b ;
  35 close STDIN ; print STDIN "abc" ;
  36 EXPECT
  37 Use of EQ is deprecated at - line 5.
  38 print() on closed filehandle main::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 main::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 main::STDIN at - line 5.
  57 ########
  58 -W
  59 --FILE-- abc.pm
  60 no warnings 'deprecated' ;
  61 my ($a, $b) = (0,0);
  62 1 if $a EQ $b ;
  63 1;
  64 --FILE--
  65 no warnings 'uninitialized' ;
  66 use abc;
  67 my $a ; chop $a ;
  68 EXPECT
  69 Use of EQ is deprecated at abc.pm line 3.
  70 Use of uninitialized value in scalar chop at - line 3.
  71 ########
  72 -W
  73 --FILE-- abc
  74 no warnings 'deprecated' ;
  75 my ($a, $b) = (0,0);
  76 1 if $a EQ $b ;
  77 1;
  78 --FILE--
  79 no warnings 'uninitialized' ;
  80 require "./abc";
  81 my $a ; chop $a ;
  82 EXPECT
  83 Use of EQ is deprecated at ./abc line 3.
  84 Use of uninitialized value in scalar chop at - line 3.
  85 ########
  86 -W
  87 --FILE-- abc.pm
  88 BEGIN {$^W = 0}
  89 my ($a, $b) = (0,0);
  90 1 if $a EQ $b ;
  91 1;
  92 --FILE--
  93 $^W = 0 ;
  94 use abc;
  95 my $a ; chop $a ;
  96 EXPECT
  97 Use of EQ is deprecated at abc.pm line 3.
  98 Use of uninitialized value in scalar chop at - line 3.
  99 ########
 100 -W
 101 --FILE-- abc
 102 BEGIN {$^W = 0}
 103 my ($a, $b) = (0,0);
 104 1 if $a EQ $b ;
 105 1;
 106 --FILE--
 107 $^W = 0 ;
 108 require "./abc";
 109 my $a ; chop $a ;
 110 EXPECT
 111 Use of EQ is deprecated at ./abc line 3.
 112 Use of uninitialized value in scalar chop at - line 3.
 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 }
 123 EXPECT
 124 Use of uninitialized value in scalar chop at (eval 1) line 2.
 125 Use of uninitialized value in scalar chop at - line 8.
 126 ########
 127 -W
 128 # Check scope of pragma with eval
 129 use 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 }
 138 EXPECT
 139 Use of uninitialized value in scalar chop at (eval 1) line 3.
 140 Use of uninitialized value in scalar chop at - line 10.
 141 ########
 142 -W
 143 # Check scope of pragma with eval
 144 no warnings;
 145 {
 146     use warnings 'uninitialized' ;
 147     eval '
 148         my $b ; chop $b ;
 149     '; print STDERR $@ ;
 150     my $b ; chop $b ;
 151 }
 152 EXPECT
 153 Use of uninitialized value in scalar chop at (eval 1) line 2.
 154 Use of uninitialized value in scalar chop at - line 9.
 155 ########
 156 -W
 157 # Check scope of pragma with eval
 158 no 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 }
 167 EXPECT
 168 Use of uninitialized value in scalar chop at (eval 1) line 3.
 169 Use of uninitialized value in scalar chop at - line 10.
 170 ########
 171 -W
 172 # Check scope of pragma with eval
 173 use warnings;
 174 {
 175     my $a = "1"; my $b = "2";
 176     no warnings ;
 177     eval q[
 178         use warnings 'deprecated' ;
 179         1 if $a EQ $b ;
 180     ]; print STDERR $@;
 181     1 if $a EQ $b ;
 182 }
 183 EXPECT
 184 Use of EQ is deprecated at - line 11.
 185 Use of EQ is deprecated at (eval 1) line 3.
 186 ########
 187 -W
 188 # Check scope of pragma with eval
 189 no warnings;
 190 {
 191     my $a = "1"; my $b = "2";
 192     use warnings 'deprecated' ;
 193     eval '
 194         1 if $a EQ $b ;
 195     '; print STDERR $@;
 196     1 if $a EQ $b ;
 197 }
 198 EXPECT
 199 Use of EQ is deprecated at - line 10.
 200 Use of EQ is deprecated at (eval 1) line 2.
 201 ########
 202 -W
 203 # Check scope of pragma with eval
 204 no warnings;
 205 {
 206     my $a = "1"; my $b = "2";
 207     use warnings 'deprecated' ;
 208     eval '
 209         no warnings ;
 210         1 if $a EQ $b ;
 211     '; print STDERR $@;
 212     1 if $a EQ $b ;
 213 }
 214 EXPECT
 215 Use of EQ is deprecated at - line 11.
 216 Use of EQ is deprecated at (eval 1) line 3.