--- Catalyst-Model-File-0.06/t/05cd.t	2007-08-29 15:39:10.000000000 -0500
+++ my_Catalyst-Model-File-0.06/t/05cd.t	2008-02-17 22:49:38.000000000 -0600
@@ -30,7 +30,7 @@
 
 $model->cd('sub', 'dir');
 
-is(Path::Class::dir('/sub/dir'), $model->pwd, "pwd is correct");
+is($model->pwd, Path::Class::dir($ENV{MODEL_FILE_DIR}, 'sub/dir'), "pwd is correct");
 
 is_deeply([
         Path::Class::file('file.txt')
@@ -40,11 +40,11 @@
 
 $model->cd('..', 'foo');
 
-is(Path::Class::dir('/sub/foo'), $model->pwd, "pwd right after cd('..')");
+is($model->pwd, Path::Class::dir($ENV{MODEL_FILE_DIR}, 'sub/foo'), "pwd right after cd('..')");
 
-is(Path::Class::dir('/sub'), $model->parent->pwd, "Parent right");
-is(Path::Class::dir('/'), $model->parent->pwd, "Parent right");
-is(Path::Class::dir('/'), $model->parent->pwd, "Parent doesn't go out of root");
+is($model->parent->pwd, Path::Class::dir($ENV{MODEL_FILE_DIR}, 'sub'), "Second parent right");
+is($model->parent->pwd, Path::Class::dir($ENV{MODEL_FILE_DIR}), "First parent right");
+is($model->parent->pwd, Path::Class::dir($ENV{MODEL_FILE_DIR}), "Parent doesn't go out of root");
 
 is_deeply([
         Path::Class::file('sub/dir/file.txt')