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

   1 ## name basic pass, incomplete statements
   2 ## failures 0
   3 ## cut
   4
   5 require; #incomplete statement
   6 use;     #incomplete statement
   7 no;      #incomplete statement
   8 {require}; # for Devel::Cover
   9 END_PERL
  10
  11 $policy = 'Modules::RequireBarewordIncludes';
  12 is( pcritique($policy, \$code), 0, $policy);
  13
  14 #-----------------------------------------------------------------------------
  15
  16 ## name basic failures
  17 ## failures 6
  18 ## cut
  19 require 'Exporter';
  20 require 'My/Module.pl';
  21 use 'SomeModule';
  22 use q{OtherModule.pm};
  23 no "Module";
  24 no "Module.pm";
  25
  26 #-----------------------------------------------------------------------------
  27
  28 ## name basic passes with module names
  29 ## failures 0
  30 ## cut
  31 use 5.008;
  32 require MyModule;
  33 use MyModule;
  34 no MyModule;
  35 use strict;