[Rt-commit] r19744 - rtir/2.4/trunk/t/lib/RT/IR

[ruz at bestpractical.com]

Author: ruz
Date: Wed May 20 12:06:33 2009
New Revision: 19744

Modified:
   rtir/2.4/trunk/t/lib/RT/IR/Test.pm

Log:
* provide correct RTFM's path if we're in CHIMPS environment

Modified: rtir/2.4/trunk/t/lib/RT/IR/Test.pm
==============================================================================
--- rtir/2.4/trunk/t/lib/RT/IR/Test.pm	(original)
+++ rtir/2.4/trunk/t/lib/RT/IR/Test.pm	Wed May 20 12:06:33 2009
@@ -65,6 +65,10 @@
         my $old_func = \&RT::Plugin::_BasePath;
         *RT::Plugin::_BasePath = sub {
             return $cwd if $_[0]->{name} eq 'RT::IR';
+            if ( $_[0]->{name} eq 'RT::FM' ) {
+                my ($path) = map $ENV{$_}, grep /^CHIMPS_RTFM.*_ROOT$/, keys %ENV;
+                return $path;
+            }
             return $old_func->(@_);
         };
     }
@@ -72,8 +76,6 @@
     RT->InitPluginPaths;
 
     {
-#        require RT::FM::Test;
-#        RT::FM::Test->set_plugin_base_path;
         require RT::Plugin;
         my $rtfm = RT::Plugin->new( name => 'RT::FM' );
         # RTFM's data