Merge 'trunk' into 'compres'

[catagits/Catalyst-Runtime.git] / t / unit_utils_subdir.t

diff --git a/t/unit_utils_subdir.t b/t/unit_utils_subdir.t
index 8509bea..d35cac0 100644 (file)
--- a/t/unit_utils_subdir.t
+++ b/t/unit_utils_subdir.t
@@ -1,4 +1,4 @@
-use Test::More tests=>7;
+use Test::More tests => 8;
 
 use strict;
 use warnings;
@@ -30,3 +30,13 @@ use FindBin;
     like($home, qr{t[\/\\]something}, "has path TestApp/t/something"); 
     unlike($home, qr{[\/\\]script[\/\\]foo}, "doesn't have path /script/foo");
 }
+
+{
+    $INC{'TestApp.pm'} = "TestApp.pm";
+    my $dir = "$FindBin::Bin/something";
+    chdir( $dir );
+  
+    my $home = Catalyst::Utils::home('TestApp');
+
+    is( $home, $dir, 'same dir loading' );
+}