[Rt-commit] rt branch, 3.9-trunk, updated. rt-3.9.7-840-g839eac4

[? sunnavy]

The branch, 3.9-trunk has been updated
       via  839eac436922dbe1f73c467f3a64416cec8440e7 (commit)
      from  bbb202a0745942ca48cbf70079cf3a1bd179bd99 (commit)

Summary of changes:
 lib/RT/Test.pm |   13 ++++++++++---
 1 files changed, 10 insertions(+), 3 deletions(-)

- Log -----------------------------------------------------------------
commit 839eac436922dbe1f73c467f3a64416cec8440e7
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Mon Dec 13 21:34:52 2010 +0800

    add RT_TEST_DEVEL to enable DevelMode in tests

diff --git a/lib/RT/Test.pm b/lib/RT/Test.pm
index 2f6df95..c8cdfc2 100644
--- a/lib/RT/Test.pm
+++ b/lib/RT/Test.pm
@@ -222,7 +222,6 @@ sub bootstrap_config {
         or die "Couldn't open $tmp{'config'}{'RT'}: $!";
 
     print $config qq{
-Set( \$DevelMode, 0);
 Set( \$WebDomain, "localhost");
 Set( \$WebPort,   $port);
 Set( \$WebPath,   "");
@@ -236,8 +235,16 @@ Set( \$RTAddressRegexp , qr/^bad_re_that_doesnt_match\$/);
         print $config "Set( \$DatabaseName , '$dbname');\n";
         print $config "Set( \$DatabaseUser , 'u${dbname}');\n";
     }
-    print $config "Set( \$DevelMode, 0 );\n"
-        if $INC{'Devel/Cover.pm'};
+
+    if ( $INC{'Devel/Cover.pm'} ) {
+        print $config "Set( \$DevelMode, 0 );\n";
+    }
+    elsif ( $ENV{RT_TEST_DEVEL} ) {
+        print $config "Set( \$DevelMode, 1 );\n";
+    }
+    else {
+        print $config "Set( \$DevelMode, 0 );\n";
+    }
 
     $self->bootstrap_logging( $config );
 

-----------------------------------------------------------------------