Build all packages removed dependencies of libtest-exception-perl libtest-warn-perl...

[dh-make-perl] / dev / i386 / libperl-critic-perl / libperl-critic-perl-1.088 / t / TestingAndDebugging / ProhibitNoStrict.run

diff --git a/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/TestingAndDebugging/ProhibitNoStrict.run b/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/TestingAndDebugging/ProhibitNoStrict.run
new file mode 100644 (file)
index 0000000..22875df
--- /dev/null
+++ b/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/TestingAndDebugging/ProhibitNoStrict.run
@@ -0,0 +1,96 @@
+## name strictures disabled
+## failures 1
+## cut
+
+package foo;
+no strict;
+
+#-----------------------------------------------------------------------------
+
+## name selective strictures disabled
+## failures 1
+## cut
+
+package foo;
+no strict 'refs', 'vars';
+
+#-----------------------------------------------------------------------------
+
+## name selective strictures disabled
+## failures 1
+## cut
+
+package foo;
+no strict qw(vars refs subs);
+
+#-----------------------------------------------------------------------------
+
+## name allowed no strict
+## failures 0
+## parms { allow => 'vars refs subs' }
+## cut
+
+package foo;
+no strict qw(vars refs subs);
+
+#-----------------------------------------------------------------------------
+
+## name allowed no strict
+## failures 0
+## parms { allow => 'vars refs subs' }
+## cut
+
+package foo;
+no strict "vars", "refs", "subs";
+
+#-----------------------------------------------------------------------------
+
+## name partially allowed no strict
+## failures 1
+## parms {allow => 'VARS SUBS'}
+# Note wrong case!
+## cut
+
+package foo;
+no strict "vars", "refs", 'subs';
+
+#-----------------------------------------------------------------------------
+
+## name partially allowed no strict
+## failures 1
+## parms {allow => 'VARS SUBS'}
+# Note wrong case!
+## cut
+
+package foo;
+no strict qw(vars refs subs);
+
+#-----------------------------------------------------------------------------
+
+## name allow no strict, mixed case config
+## parms {allow => 'RefS SuBS'}
+## failures 0
+## cut
+
+package foo;
+no strict qw(refs subs);
+
+#-----------------------------------------------------------------------------
+
+## name allow no strict, comma-delimimted config
+## parms {allow => 'refs,subs'}
+## failures 0
+## cut
+
+package foo;
+no strict "refs", "subs";
+
+#-----------------------------------------------------------------------------
+
+## name wrong case, funky config
+## parms { allow => 'REfs;vArS' }
+## failures 1
+## cut
+
+package foo;
+no strict "refs", 'vars', "subs";