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 / Modules / RequireNoMatchVarsWithUseEnglish.run

diff --git a/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/Modules/RequireNoMatchVarsWithUseEnglish.run b/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/Modules/RequireNoMatchVarsWithUseEnglish.run
new file mode 100644 (file)
index 0000000..f7b79b5
--- /dev/null
+++ b/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/Modules/RequireNoMatchVarsWithUseEnglish.run
@@ -0,0 +1,232 @@
+## name Passing with no "use English".
+## failures 0
+## cut
+
+use strict;
+use warnings;
+
+my $doodle_doodle_dee = 'wubba wubba wubba';
+
+#-----------------------------------------------------------------------------
+
+## name Passing single quotes.
+## failures 0
+## cut
+
+use English '-no_match_vars';
+
+#-----------------------------------------------------------------------------
+
+## name Passing double quotes
+## failures 0
+## cut
+
+use English "-no_match_vars";
+
+#-----------------------------------------------------------------------------
+
+## name Passing literal quotes.
+## failures 0
+## cut
+
+use English q/-no_match_vars/;
+use English q{-no_match_vars};
+use English q(-no_match_vars);
+use English q[-no_match_vars];
+use English q<-no_match_vars>;
+use English q!-no_match_vars!;
+use English q#-no_match_vars#;
+use English q'-no_match_vars';
+use English q"-no_match_vars";
+
+#-----------------------------------------------------------------------------
+
+## name Passing literal quotes with whitespace before delimiter.
+## failures 0
+## cut
+
+use English q              /-no_match_vars/;
+use English q              {-no_match_vars};
+use English q              (-no_match_vars);
+use English q              [-no_match_vars];
+use English q              <-no_match_vars>;
+use English q              !-no_match_vars!;
+use English q              '-no_match_vars';
+use English q              "-no_match_vars";
+
+#-----------------------------------------------------------------------------
+
+## name Passing interpolating quotes.
+## failures 0
+## cut
+
+use English qq/-no_match_vars/;
+use English qq{-no_match_vars};
+use English qq(-no_match_vars);
+use English qq[-no_match_vars];
+use English qq<-no_match_vars>;
+use English qq!-no_match_vars!;
+use English qq#-no_match_vars#;
+use English qq'-no_match_vars';
+use English qq"-no_match_vars";
+
+#-----------------------------------------------------------------------------
+
+## name Passing interpolating quotes with whitespace before delimiter.
+## failures 0
+## cut
+
+use English qq             /-no_match_vars/;
+use English qq             {-no_match_vars};
+use English qq             (-no_match_vars);
+use English qq             [-no_match_vars];
+use English qq             <-no_match_vars>;
+use English qq             !-no_match_vars!;
+use English qq             '-no_match_vars';
+use English qq             "-no_match_vars";
+
+#-----------------------------------------------------------------------------
+
+## name Passing quotelike words.
+## failures 0
+## cut
+
+use English qw/  -no_match_vars  /;
+use English qw{  -no_match_vars  };
+use English qw(  -no_match_vars  );
+use English qw[  -no_match_vars  ];
+use English qw<  -no_match_vars  >;
+use English qw!  -no_match_vars  !;
+use English qw#  -no_match_vars  #;
+use English qw'  -no_match_vars  ';
+use English qw"  -no_match_vars  ";
+
+#-----------------------------------------------------------------------------
+
+## name Passing quotelike words with whitespace before delimiter.
+## failures 0
+## cut
+
+use English qw            /  -no_match_vars  /;
+use English qw            {  -no_match_vars  };
+use English qw            (  -no_match_vars  );
+use English qw            [  -no_match_vars  ];
+use English qw            <  -no_match_vars  >;
+use English qw            !  -no_match_vars  !;
+use English qw            '  -no_match_vars  ';
+use English qw            "  -no_match_vars  ";
+
+#-----------------------------------------------------------------------------
+
+## name Passing quotelike words with things in addition to -no_match_vars.
+## failures 0
+## cut
+
+use English qw/ $ERRNO -no_match_vars $EVAL_ERROR /;
+
+#-----------------------------------------------------------------------------
+
+## name Passing parenthesized list.
+## failures 0
+## cut
+
+use English ( '-no_match_vars' );
+
+#-----------------------------------------------------------------------------
+
+## name Passing parenthesized list with things in addition to -no_match_vars.
+## failures 0
+## cut
+
+use English ( '$ERRNO', "-no_match_vars", "$EVAL_ERROR" );
+
+#-----------------------------------------------------------------------------
+
+## name Passing unparenthesized list with things in addition to -no_match_vars.
+## failures 0
+## cut
+
+use English '$ERRNO', "-no_match_vars", "$EVAL_ERROR";
+
+#-----------------------------------------------------------------------------
+
+## name Passing version.
+## failures 0
+## cut
+
+use English 1.02 '-no_match_vars';
+
+#-----------------------------------------------------------------------------
+
+## name Passing v-string version.
+## failures 0
+## cut
+
+use English v1.02 '-no_match_vars';
+
+#-----------------------------------------------------------------------------
+
+## name Passing parenthesized list and version.
+## failures 0
+## cut
+
+use English 1.02 ('-no_match_vars');
+
+#-----------------------------------------------------------------------------
+
+## name Basic failure.
+## failures 1
+## cut
+
+use English;
+
+#-----------------------------------------------------------------------------
+
+## name Failure with version.
+## failures 1
+## cut
+
+use English 1.02;
+
+#-----------------------------------------------------------------------------
+
+## name Failure with v-string.
+## failures 1
+## cut
+
+use English v1.02;
+
+#-----------------------------------------------------------------------------
+
+## name Failure with random garbage.
+## failures 2
+## cut
+
+use English 'oink oink';
+use English qw< blah blah blah >;
+
+#-----------------------------------------------------------------------------
+
+## name Failure with typo that Ovid noticed.
+## failures 1
+## cut
+
+use English qw(-no_mactch_vars);
+
+#-----------------------------------------------------------------------------
+
+##############################################################################
+#      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/Modules/RequireNoMatchVarsWithUseEnglish.run $
+#     $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 :