oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

WebGUI::Test->lib working

Browse source
This commit is contained in:
Graham Knop 2010-03-11 07:41:42 -06:00
parent 7afda00d9b
commit 5a4e083d85
1 changed files with 11 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

19
t/lib/WebGUI/Test.pm
View file

@ -41,13 +41,14 @@ use JSON qw( from_json to_json );
use Scope::Guard;
use WebGUI::Paths -inc;
our $WEBGUI_TEST_COLLATERAL = File::Spec->catdir( $file_root, (File::Spec->updir) x 3, 'supporting_collateral');
BEGIN {
our $WEBGUI_ROOT = Cwd::realpath( File::Spec->catdir( $file_root, (File::Spec->updir) x 3 ));
our $WEBGUI_TEST_COLLATERAL = File::Spec->catdir($WEBGUI_ROOT, 't', 'supporting_collateral');
our $WEBGUI_LIB = File::Spec->catdir( $WEBGUI_ROOT, 'lib' );
}
our $WEBGUI_TEST_ROOT = File::Spec->catdir(
File::Spec->catpath((File::Spec->splitpath(__FILE__))[0,1], ''),
(File::Spec->updir) x 2, 'supporting_collateral'
);
our $WEBGUI_TEST_COLLATERAL = File::Spec->catdir(
$WEBGUI_TEST_ROOT,
'supporting_collateral'
);
use WebGUI::Asset;
use WebGUI::Session;
@ -72,7 +73,7 @@ sub import {
die "WEBGUI_CONFIG path '$CONFIG_FILE' is not readable by effective uid '$>'.\n"
unless -r _;
$CONFIG_FILE = File::Spec->abs2rel($CONFIG_FILE, File::Spec->catdir($CLASS->root, 'etc'));
$CONFIG_FILE = File::Spec->abs2rel($CONFIG_FILE, WebGUI::Paths->configBase);
my $session = our $SESSION = $CLASS->newSession(1);
my $originalSetting = clone $session->setting->get;
@ -434,6 +435,8 @@ Returns the full path to the WebGUI lib directory, usually /data/WebGUI/lib.
=cut
our $WEBGUI_LIB = File::Spec->catdir( $WEBGUI_TEST_ROOT, File::Spec->updir );
sub lib {
return our $WEBGUI_LIB;
}