Mercurial > pub > Impl

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
IMPL::Web::View::TTLoader tests
author sergey
date Thu, 29 Mar 2012 01:54:20 +0400
parents 2184fa28b49e
children 4d0e1962161c
comparison
equal deleted inserted replaced
183:2184fa28b49e 184:7525ea9a071a
112 112
113 sub GetResourceFile { 113 sub GetResourceFile {
114 my ($this,@path) = @_; 114 my ($this,@path) = @_;
115 115
116 my ($cwd) = map m/(.*)/, File::Spec->rel2abs(File::Spec->curdir()); 116 my ($cwd) = map m/(.*)/, File::Spec->rel2abs(File::Spec->curdir());
117 return File::Spec->catfile(@path); 117 return File::Spec->catfile($cwd,@path);
118 } 118 }
119 119
120 sub GetResourceDir { 120 sub GetResourceDir {
121 my ($this,@path) = @_; 121 my ($this,@path) = @_;
122 122
123 my ($cwd) = map m/(.*)/, File::Spec->rel2abs(File::Spec->curdir()); 123 my ($cwd) = map m/(.*)/, File::Spec->rel2abs(File::Spec->curdir());
124 return File::Spec->catdir(@path); 124 return File::Spec->catdir($cwd,@path);
125 } 125 }
126 126
127 package IMPL::Test::Unit::TestInfo; 127 package IMPL::Test::Unit::TestInfo;
128 use parent qw(IMPL::Object::Meta); 128 use parent qw(IMPL::Object::Meta);
129 use IMPL::Class::Property; 129 use IMPL::Class::Property;