Mercurial > pub > Impl

comparison Lib/IMPL/Test/Unit.pm @ 183:2184fa28b49e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
IMPL::Web::View::TTLoader tests
author cin
date Wed, 28 Mar 2012 17:28:51 +0400
parents 4267a2ac3d46
children 7525ea9a071a
comparison
equal deleted inserted replaced
182:adc7669172c4 183:2184fa28b49e
7 7
8 use Time::HiRes qw(gettimeofday tv_interval); 8 use Time::HiRes qw(gettimeofday tv_interval);
9 9
10 use Error qw(:try); 10 use Error qw(:try);
11 use Carp qw(carp); 11 use Carp qw(carp);
12 use IMPL::Test::Result; 12 use File::Spec();
13 use IMPL::Test::FailException; 13 use IMPL::Test::Result();
14 use IMPL::Exception; 14 use IMPL::Test::FailException();
15 use IMPL::Exception();
15 16
16 BEGIN { 17 BEGIN {
17 public property Name => prop_all; 18 public property Name => prop_all;
18 public property Code => prop_all; 19 public property Code => prop_all;
19 } 20 }
107 TimeInclusive => tv_interval ( $t ) 108 TimeInclusive => tv_interval ( $t )
108 ); 109 );
109 } 110 }
110 } 111 }
111 112
113 sub GetResourceFile {
114 my ($this,@path) = @_;
115
116 my ($cwd) = map m/(.*)/, File::Spec->rel2abs(File::Spec->curdir());
117 return File::Spec->catfile(@path);
118 }
119
120 sub GetResourceDir {
121 my ($this,@path) = @_;
122
123 my ($cwd) = map m/(.*)/, File::Spec->rel2abs(File::Spec->curdir());
124 return File::Spec->catdir(@path);
125 }
126
112 package IMPL::Test::Unit::TestInfo; 127 package IMPL::Test::Unit::TestInfo;
113 use parent qw(IMPL::Object::Meta); 128 use parent qw(IMPL::Object::Meta);
114 use IMPL::Class::Property; 129 use IMPL::Class::Property;
115 130
116 require IMPL::Exception; 131 require IMPL::Exception;