[Bps-public-commit] r15347 - in Shipwright/trunk: t

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Thu Aug 21 21:59:02 2008
New Revision: 15347

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/t/perlcritic.t

Log:
 r15934 at sunnavys-mb:  sunnavy | 2008-08-22 08:39:08 +0800
 don't run perlcritic.t unless there's inc/.author


Modified: Shipwright/trunk/t/perlcritic.t
==============================================================================
--- Shipwright/trunk/t/perlcritic.t	(original)
+++ Shipwright/trunk/t/perlcritic.t	Thu Aug 21 21:59:02 2008
@@ -2,8 +2,15 @@
 use warnings;
 
 use Test::More;
+
 # we forced use Perl::Critic is for version limit
 eval "use Perl::Critic 1.090; use Test::Perl::Critic 1.01";
-plan skip_all => "Perl::Critic 1.090 and Test::Perl::Critic 1.01 required for testing PBP compliance" if $@;
+if ($@) {
+    plan skip_all =>
+"Perl::Critic 1.090 and Test::Perl::Critic 1.01 required for testing PBP compliance";
+}
+elsif ( !-e 'inc/.author' ) {
+    plan skip_all => 'no inc/.author, will not run this test ;)';
+}
 
 Test::Perl::Critic::all_critic_ok();