[svn:parrot] r18555 - trunk/t

[particle]

Author: particle
Date: Tue May 15 12:26:41 2007
New Revision: 18555

Modified:
   trunk/t/harness

Log:
[t]: do not run coding standard tests in a release version

Modified: trunk/t/harness
==============================================================================
--- trunk/t/harness     (original)
+++ trunk/t/harness     Tue May 15 12:26:41 2007
@@ -92,7 +92,7 @@
 use Getopt::Std;
 use Test::Harness();
 use Parrot::Config qw/%PConfig/;
-
+use FindBin qw/$Bin/;
 
 # handle the long options
 
@@ -165,8 +165,8 @@
 );
 push @default_tests, @distro_tests;
 
-# collect the coding standard tests (that we want to run) together and
-# append them to the list of default tests
+# collect the coding standard tests (that we want to run) together
+# append them to the list of default tests *only* if this is not a release
 my @coding_std_tests = map { "t/codingstd/$_" } qw(
     c_code_coda.t 
     c_header_guards.t
@@ -179,7 +179,8 @@
     tabs.t 
     trailing_space.t
 );
-push @default_tests, @coding_std_tests;
+push @default_tests, @coding_std_tests
+    if -e "$Bin/../DEVELOPING";
 
 my @tests = @ARGV ? map { glob( $_ ) } @ARGV : @default_tests;