--- a/Lib/IMPL/Test/Unit.pm	Mon Mar 26 02:01:05 2012 +0400
+++ b/Lib/IMPL/Test/Unit.pm	Wed Mar 28 17:28:51 2012 +0400
@@ -9,9 +9,10 @@
 
 use Error qw(:try);
 use Carp qw(carp);
-use IMPL::Test::Result;
-use IMPL::Test::FailException;
-use IMPL::Exception;
+use File::Spec();
+use IMPL::Test::Result();
+use IMPL::Test::FailException();
+use IMPL::Exception();
 
 BEGIN {
     public property Name => prop_all;
@@ -109,6 +110,20 @@
     }
 }
 
+sub GetResourceFile {
+	my ($this,@path) = @_;
+	
+	my ($cwd) = map m/(.*)/, File::Spec->rel2abs(File::Spec->curdir());
+	return File::Spec->catfile(@path);
+}
+
+sub GetResourceDir {
+	my ($this,@path) = @_;
+	
+	my ($cwd) = map m/(.*)/, File::Spec->rel2abs(File::Spec->curdir());
+	return File::Spec->catdir(@path);
+}
+
 package IMPL::Test::Unit::TestInfo;
 use parent qw(IMPL::Object::Meta);
 use IMPL::Class::Property;