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%2FValuesAndExpressions%2FProhibitImplicitNewlines.run;fp=dev%2Fi386%2Flibperl-critic-perl%2Flibperl-critic-perl-1.088%2Ft%2FValuesAndExpressions%2FProhibitImplicitNewlines.run;h=9ae68a55bcbbaa9e856ea224fb24d79e515dea7d;hp=0000000000000000000000000000000000000000;hb=da95c414033799c3a62606f299c3c00b5c77ca11;hpb=2d38e14bacbb15b98e539843a40b3c52a225f493 diff --git a/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/ValuesAndExpressions/ProhibitImplicitNewlines.run b/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/ValuesAndExpressions/ProhibitImplicitNewlines.run new file mode 100644 index 0000000..9ae68a5 --- /dev/null +++ b/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/ValuesAndExpressions/ProhibitImplicitNewlines.run @@ -0,0 +1,65 @@ +## name Basic passing +## failures 0 +## cut + +$x = "foo"; +$x = 'foo'; +$x = q{foo}; +$x = qq{foo}; +$x = "foo\n"; +$x = "foo\r"; + +$x = <<'EOF'; +1 +2 +EOF + +$x = <<"EOF"; +1 +2 +EOF + +#----------------------------------------------------------------------------- + +## name Basic failure +## failures 4 +## cut + +$x = "1 +2"; +$x = '1 +2'; +$x = qq{1 +2}; +$x = q{1 +2}; + +#----------------------------------------------------------------------------- + +## name Bad whitespace usage, but allowed +## failures 0 +## cut + +$x = q +<1>; + +$x = qq +<1>; + +#----------------------------------------------------------------------------- + +############################################################################## +# $URL +# $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $ +# $Author: clonezone $ +# $Revision: 2187 $ +############################################################################## + +# 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 :