diff --git a/t/c/file1 b/t/c/file1 new file mode 100755 index 0000000..e69de29 diff --git a/t/search.t b/t/search.t index 939e734..c2dc896 100644 --- a/t/search.t +++ b/t/search.t @@ -58,7 +58,7 @@ is($full[0], $compat[0], "backcompat matches normal file2"); is($full[1], $compat[1], "backcompat matches normal file2"); # Search for a directory -setpath( "MYPATH", File::Spec->curdir ); +setpath( "MYPATH", File::Spec->catdir(File::Spec->curdir, "blib"), File::Spec->curdir ); $fullpath = File::SearchPath::searchpath( "t", dir => 1, env => "MYPATH"); is( $fullpath, File::Spec->catdir(File::Spec->curdir, "t"), "Found directory");