From 734ef2fc1e84e1a00cf93057a4df4337935e511d Mon Sep 17 00:00:00 2001
From: kenperl <kenperl@webgui-svn>
Date: Wed, 25 Jan 2006 09:03:06 +0000
Subject: [PATCH] construct WEBGUI_LIB through WEBGUI_CONFIG

---
 t/lib/WebGUI/Test.pm | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/t/lib/WebGUI/Test.pm b/t/lib/WebGUI/Test.pm
index 9892868a3..f15c3d2a1 100644
--- a/t/lib/WebGUI/Test.pm
+++ b/t/lib/WebGUI/Test.pm
@@ -13,12 +13,17 @@ BEGIN {
 
     STDERR->autoflush(1);
 
-    ( $CONFIG_FILE, $WEBGUI_LIB ) = @ENV{ qw( WEBGUI_CONFIG WEBGUI_LIB ) };
+    $CONFIG_FILE = $ENV{ WEBGUI_CONFIG };
 
-    unless ( defined $CONFIG_FILE && $CONFIG_FILE ) {
+    unless ( defined $CONFIG_FILE ) {
         warn qq/Enviroment variable WEBGUI_CONFIG must be set.\n/;
         exit(1);
     }
+   
+    unless ( $CONFIG_FILE ) {
+        warn qq/Enviroment variable WEBGUI_CONFIG must not be empty.\n/;
+        exit(1);
+    }
 
     unless ( -e $CONFIG_FILE ) {
         warn qq/WEBGUI_CONFIG path '$CONFIG_FILE' does not exist.\n/;
@@ -36,7 +41,8 @@ BEGIN {
     }
 
     $WEBGUI_ROOT = $CONFIG_FILE;
-
+    
+    # convert to absolute path
     unless ( File::Spec->file_name_is_absolute($WEBGUI_ROOT) ) {
         $WEBGUI_ROOT = File::Spec->rel2abs($WEBGUI_ROOT);
     }
@@ -45,9 +51,8 @@ BEGIN {
     $WEBGUI_ROOT = substr( $WEBGUI_ROOT, 0, index( $WEBGUI_ROOT, File::Spec->catdir( 'etc', $CONFIG_FILE ) ) );
     $WEBGUI_ROOT = File::Spec->canonpath($WEBGUI_ROOT);
 
-    $WEBGUI_LIB  ||= File::Spec->catpath( $WEBGUI_ROOT, 'lib' );
+    $WEBGUI_LIB  ||= File::Spec->catpath( (File::Spec->splitpath($WEBGUI_ROOT))[0], $WEBGUI_ROOT, 'lib' );
 
-    lib->import( $WEBGUI_LIB );
     push (@INC,$WEBGUI_LIB);
 
     # http://thread.gmane.org/gmane.comp.apache.apreq/3378