Mercurial > pub > Impl

comparison Lib/IMPL/Test/Unit.pm @ 194:4d0e1962161c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Replaced tabs with spaces IMPL::Web::View - fixed document model, new features (control classes, document constructor parameters)
author cin
date Tue, 10 Apr 2012 20:08:29 +0400
parents 7525ea9a071a
children
comparison
equal deleted inserted replaced
193:8e8401c0aea4 194:4d0e1962161c
109 ); 109 );
110 } 110 }
111 } 111 }
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($cwd,@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($cwd,@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;