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 / RegularExpressions / ProhibitUnusualDelimiters.run

diff --git a/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/RegularExpressions/ProhibitUnusualDelimiters.run b/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/RegularExpressions/ProhibitUnusualDelimiters.run
new file mode 100644 (file)
index 0000000..facc6c6
--- /dev/null
+++ b/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/RegularExpressions/ProhibitUnusualDelimiters.run
@@ -0,0 +1,89 @@
+##############################################################################
+#      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/RegularExpressions/ProhibitUnusualDelimiters.run $
+#     $Date: 2008-04-12 14:38:38 -0500 (Sat, 12 Apr 2008) $
+#   $Author: clonezone $
+# $Revision: 2218 $
+##############################################################################
+
+## name basic passes
+## failures 0
+## cut
+
+m/foo/;
+m{foo};
+s/foo//;
+s{foo}{};
+qr/foo/;
+qr{foo};
+
+## name basic failures
+## failures 25
+## cut
+
+m#foo#;
+m|foo|;
+m<foo>;
+m(foo);
+m'foo';
+m"foo";
+m;foo;;
+m,foo,;
+
+s#foo##;
+s|foo||;
+s<foo><>;
+s<foo>//;
+s(foo)();
+s'foo'';
+s"foo"";
+s;foo;;;
+s,foo,,;
+
+qr#foo#;
+qr|foo|;
+qr<foo>;
+qr(foo);
+qr'foo';
+qr"foo";
+qr;foo;;
+qr,foo,;
+
+## name allow_all_brackets
+## failures 0
+## parms { allow_all_brackets => 1 }
+## cut
+
+m{foo};
+m(foo);
+m[foo];
+m<foo>;
+
+s{foo}{};
+s(foo){};
+s[foo]{};
+s<foo>{};
+
+s{foo}();
+s(foo)();
+s[foo]();
+s<foo>();
+
+s{foo}[];
+s(foo)[];
+s[foo][];
+s<foo>[];
+
+s{foo}<>;
+s(foo)<>;
+s[foo]<>;
+s<foo><>;
+
+#-----------------------------------------------------------------------------
+# Local Variables:
+#   mode: cperl
+#   cperl-indent-level: 4
+#   fill-column: 78
+#   indent-tabs-mode: nil
+#   c-indentation-style: bsd
+# End:
+# ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :