X-Git-Url: http://git.maemo.org/git/?p=dh-make-perl;a=blobdiff_plain;f=dev%2Fi386%2Flibperl-critic-perl%2Flibperl-critic-perl-1.088%2Ft%2FModules%2FRequireBarewordIncludes.run;fp=dev%2Fi386%2Flibperl-critic-perl%2Flibperl-critic-perl-1.088%2Ft%2FModules%2FRequireBarewordIncludes.run;h=a19ea747da14b2a4ffc99152605d75fba72cd6f5;hp=0000000000000000000000000000000000000000;hb=da95c414033799c3a62606f299c3c00b5c77ca11;hpb=2d38e14bacbb15b98e539843a40b3c52a225f493

diff --git a/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/Modules/RequireBarewordIncludes.run b/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/Modules/RequireBarewordIncludes.run
new file mode 100644
index 0000000..a19ea74
--- /dev/null
+++ b/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/Modules/RequireBarewordIncludes.run
@@ -0,0 +1,35 @@
+## name basic pass, incomplete statements
+## failures 0
+## cut
+
+require; #incomplete statement
+use;     #incomplete statement
+no;      #incomplete statement
+{require}; # for Devel::Cover
+END_PERL
+
+$policy = 'Modules::RequireBarewordIncludes';
+is( pcritique($policy, \$code), 0, $policy);
+
+#-----------------------------------------------------------------------------
+
+## name basic failures
+## failures 6
+## cut
+require 'Exporter';
+require 'My/Module.pl';
+use 'SomeModule';
+use q{OtherModule.pm};
+no "Module";
+no "Module.pm";
+
+#-----------------------------------------------------------------------------
+
+## name basic passes with module names
+## failures 0
+## cut
+use 5.008;
+require MyModule;
+use MyModule;
+no MyModule;
+use strict;