vcs.maemo.org Git - dh-make-perl/blob - dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/TestingAndDebugging/ProhibitProlongedStrictureOverride.run

   1 ## name standard pass
   2 ## failures 0
   3 ## cut
   4
   5 use strict;
   6 no strict;
   7
   8 #-----------------------------------------------------------------------------
   9
  10 ## name standard fail
  11 ## failures 1
  12 ## cut
  13
  14 use strict;
  15 no strict;
  16 print 1;
  17 print 2;
  18 print 3;
  19 print 4;
  20
  21 #-----------------------------------------------------------------------------
  22
  23 ## name pass that's almost to fail
  24 ## failures 0
  25 ## cut
  26
  27 use strict;
  28 no strict;
  29 print 1;
  30 print 2;
  31 print 3;
  32
  33 #-----------------------------------------------------------------------------
  34
  35 ## name in a block
  36 ## failures 0
  37 ## cut
  38
  39 use strict;
  40 sub foo {
  41     no strict;
  42 }
  43 print 1;
  44 print 2;
  45 print 3;
  46 print 4;
  47
  48 #-----------------------------------------------------------------------------
  49
  50 ## name long fail in a block
  51 ## failures 1
  52 ## cut
  53
  54 use strict;
  55 sub foo {
  56     no strict;
  57     print 1;
  58     print 2;
  59     print 3;
  60     print 4;
  61 }
  62
  63 #-----------------------------------------------------------------------------
  64
  65 ## name config override
  66 ## failures 0
  67 ## parms { statements => 6 }
  68 ## cut
  69
  70 use strict;
  71 sub foo {
  72     no strict;
  73     print 1;
  74     print 2;
  75     print 3;
  76     print 4;
  77     print 5;
  78     print 6;
  79 }