git.maemo.org Git - pkg-perl/blob - deb-src/libperl-critic-perl/libperl-critic-perl-1.088/t/TestingAndDebugging/ProhibitNoWarnings.run

   1 ## name warnings disabled
   2 ## failures 1
   3 ## cut
   4
   5 package foo;
   6 no warnings;
   7
   8 #-----------------------------------------------------------------------------
   9
  10 ## name selective warnings disabled
  11 ## failures 1
  12 ## cut
  13
  14 package foo;
  15 no warnings 'uninitialized', 'deprecated';
  16 END_PERL
  17
  18 $policy = 'TestingAndDebugging::ProhibitNoWarnings';
  19 is( pcritique($policy, \$code), 1, $policy.' selective warnings disabled');
  20
  21 #-----------------------------------------------------------------------------
  22
  23 ## name selective warnings disabled
  24 ## failures 1
  25 ## cut
  26
  27 package foo;
  28 no warnings qw(closure glob);
  29
  30 #-----------------------------------------------------------------------------
  31
  32 ## name allow no warnings, mixed case config
  33 ## failures 0
  34 ## parms {allow => 'iO Glob OnCe'}
  35 ## cut
  36
  37 package foo;
  38 no warnings qw(glob io once);
  39
  40 #-----------------------------------------------------------------------------
  41
  42 ## name allow no warnings, comma delimimted
  43 ## failures 0
  44 ## parms {allow => 'numeric,portable, pack'}
  45 # Funky config
  46 ## cut
  47
  48 package foo;
  49 no warnings "numeric", "pack", "portable";
  50
  51 #-----------------------------------------------------------------------------
  52
  53 ## name wrong case, funky config
  54 ## parms { allow => 'NumerIC;PORTABLE' }
  55 ## failures 1
  56 ## cut
  57
  58 package foo;
  59 no warnings "numeric", "pack", 'portable';
  60
  61 #-----------------------------------------------------------------------------
  62
  63 ## name More wrong case, funky config
  64 ## failures 1
  65 ## parms { allow => 'paCK/PortablE' }
  66 ## cut
  67
  68 package foo;
  69 no warnings qw(numeric pack portable);