From: Brian Cassidy <bricas@cpan.org>
Date: Wed, 7 May 2008 19:23:05 +0000 (+0000)
Subject: fix path tests for win32 compat
X-Git-Tag: 5.7099_04~82
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=69b95ff3efb16d412d4658996fbd722fda411c50

fix path tests for win32 compat
---

diff --git a/t/unit_utils_subdir.t b/t/unit_utils_subdir.t
index 83f9f72..8509bea 100644
--- a/t/unit_utils_subdir.t
+++ b/t/unit_utils_subdir.t
@@ -10,17 +10,23 @@ use warnings;
 BEGIN { use_ok 'Catalyst::Utils' }
 use FindBin;
 
-$INC{'TestApp.pm'} = "$FindBin::Bin/something/script/foo/../../lib/TestApp.pm";
-my $home = Catalyst::Utils::home('TestApp');
-like($home, qr/t\/something/, "has path TestApp/t/something"); 
-unlike($home, qr/\/script\/foo/, "doesn't have path /script/foo");
+{
+    $INC{'TestApp.pm'} = "$FindBin::Bin/something/script/foo/../../lib/TestApp.pm";
+    my $home = Catalyst::Utils::home('TestApp');
+    like($home, qr{t[\/\\]something}, "has path TestApp/t/something"); 
+    unlike($home, qr{[\/\\]script[\/\\]foo}, "doesn't have path /script/foo");
+}
 
-$INC{'TestApp.pm'} = "$FindBin::Bin/something/script/foo/bar/../../../lib/TestApp.pm";
-$home = Catalyst::Utils::home('TestApp');
-like($home, qr/t\/something/, "has path TestApp/t/something"); 
-unlike($home, qr/\/script\/foo\/bar/, "doesn't have path /script/foo");
+{
+    $INC{'TestApp.pm'} = "$FindBin::Bin/something/script/foo/bar/../../../lib/TestApp.pm";
+    my $home = Catalyst::Utils::home('TestApp');
+    like($home, qr{t[\/\\]something}, "has path TestApp/t/something"); 
+    unlike($home, qr{[\/\\]script[\/\\]foo[\/\\]bar}, "doesn't have path /script/foo/bar");
+}
 
-$INC{'TestApp.pm'} = "$FindBin::Bin/something/script/../lib/TestApp.pm";
-$home = Catalyst::Utils::home('TestApp');
-like($home, qr/t\/something/, "has path TestApp/t/something"); 
-unlike($home, qr/\/script\/foo/, "doesn't have path /script/foo");
+{
+    $INC{'TestApp.pm'} = "$FindBin::Bin/something/script/../lib/TestApp.pm";
+    my $home = Catalyst::Utils::home('TestApp');
+    like($home, qr{t[\/\\]something}, "has path TestApp/t/something"); 
+    unlike($home, qr{[\/\\]script[\/\\]foo}, "doesn't have path /script/foo");
+}