t/pragma/warn/5nolint

   1 Check anti-lint
   2
   3 __END__
   4 -X
   5 # nolint: check compile time $^W is zapped
   6 BEGIN { $^W = 1 ;}
   7 $a = $b = 1 ;
   8 $a = 1 if $a EQ $b ;
   9 close STDIN ; print STDIN "abc" ;
  10 EXPECT
  11 ########
  12 -X
  13 # nolint: check runtime $^W is zapped
  14 $^W = 1 ;
  15 close STDIN ; print STDIN "abc" ;
  16 EXPECT
  17 ########
  18 -X
  19 # nolint: check runtime $^W is zapped
  20 {
  21   $^W = 1 ;
  22   close STDIN ; print STDIN "abc" ;
  23 }
  24 EXPECT
  25 ########
  26 -X
  27 # nolint: check "no warnings" is zapped
  28 use warnings ;
  29 $a = $b = 1 ;
  30 $a = 1 if $a EQ $b ;
  31 close STDIN ; print STDIN "abc" ;
  32 EXPECT
  33 ########
  34 -X
  35 # nolint: check "no warnings" is zapped
  36 {
  37   use warnings ;
  38   close STDIN ; print STDIN "abc" ;
  39 }
  40 EXPECT
  41 ########
  42 -Xw
  43 # nolint: check combination of -w and -X
  44 {
  45   $^W = 1 ;
  46   close STDIN ; print STDIN "abc" ;
  47 }
  48 EXPECT
  49 ########
  50 -X
  51 --FILE-- abc.pm
  52 use warnings 'deprecated' ;
  53 my ($a, $b) = (0,0);
  54 1 if $a EQ $b ;
  55 1;
  56 --FILE--
  57 use warnings 'uninitialized' ;
  58 use abc;
  59 my $a ; chop $a ;
  60 EXPECT
  61 ########
  62 -X
  63 --FILE-- abc
  64 use warnings 'deprecated' ;
  65 my ($a, $b) = (0,0);
  66 1 if $a EQ $b ;
  67 1;
  68 --FILE--
  69 use warnings 'uninitialized' ;
  70 require "./abc";
  71 my $a ; chop $a ;
  72 EXPECT
  73 ########
  74 -X
  75 --FILE-- abc.pm
  76 BEGIN {$^W = 1}
  77 my ($a, $b) = (0,0);
  78 1 if $a EQ $b ;
  79 1;
  80 --FILE--
  81 $^W = 1 ;
  82 use abc;
  83 my $a ; chop $a ;
  84 EXPECT
  85 ########
  86 -X
  87 --FILE-- abc
  88 BEGIN {$^W = 1}
  89 my ($a, $b) = (0,0);
  90 1 if $a EQ $b ;
  91 1;
  92 --FILE--
  93 $^W = 1 ;
  94 require "./abc";
  95 my $a ; chop $a ;
  96 EXPECT