[svn:parrot] r44630 - trunk/t/codingstd

[coke at svn.parrot.org]

Author: coke
Date: Thu Mar  4 20:39:13 2010
New Revision: 44630
URL: https://trac.parrot.org/parrot/changeset/44630

Log:
Sometimes you really don't want to wait for this test.

Modified:
   trunk/t/codingstd/perlcritic.t

Modified: trunk/t/codingstd/perlcritic.t
==============================================================================
--- trunk/t/codingstd/perlcritic.t	Thu Mar  4 20:03:33 2010	(r44629)
+++ trunk/t/codingstd/perlcritic.t	Thu Mar  4 20:39:13 2010	(r44630)
@@ -40,7 +40,13 @@
 use Parrot::Distribution;
 use Test::More;
 
-# There's no point in continuing if we're missing some certain modules.
+# There's no point in continuing if we're missing some certain modules, or
+# if the developer doesn't want to.
+
+if (exists $ENV{'PARROT_TEST_NO_PERLCRITIC'}) {
+  give_up('absence of PARROT_TEST_NO_PERLCRITIC environment variable');
+}
+
 eval { require Test::Perl::Critic };
 if ($@) {
   give_up('Test::Perl::Critic');