diff Lib/IMPL/Test/Unit.pm @ 184:7525ea9a071a

IMPL::Web::View::TTLoader tests
author sergey
date Thu, 29 Mar 2012 01:54:20 +0400
parents 2184fa28b49e
children 4d0e1962161c
line wrap: on
line diff
--- a/Lib/IMPL/Test/Unit.pm	Wed Mar 28 17:28:51 2012 +0400
+++ b/Lib/IMPL/Test/Unit.pm	Thu Mar 29 01:54:20 2012 +0400
@@ -114,14 +114,14 @@
 	my ($this,@path) = @_;
 	
 	my ($cwd) = map m/(.*)/, File::Spec->rel2abs(File::Spec->curdir());
-	return File::Spec->catfile(@path);
+	return File::Spec->catfile($cwd,@path);
 }
 
 sub GetResourceDir {
 	my ($this,@path) = @_;
 	
 	my ($cwd) = map m/(.*)/, File::Spec->rel2abs(File::Spec->curdir());
-	return File::Spec->catdir(@path);
+	return File::Spec->catdir($cwd,@path);
 }
 
 package IMPL::Test::Unit::TestInfo;