[Catalyst-commits] r7715 - Catalyst-Runtime/5.70/trunk/t

[bricas at dev.catalyst.perl.org]

Author: bricas
Date: 2008-05-07 20:23:05 +0100 (Wed, 07 May 2008)
New Revision: 7715

Modified:
   Catalyst-Runtime/5.70/trunk/t/unit_utils_subdir.t
Log:
fix path tests for win32 compat

Modified: Catalyst-Runtime/5.70/trunk/t/unit_utils_subdir.t
===================================================================
--- Catalyst-Runtime/5.70/trunk/t/unit_utils_subdir.t	2008-05-07 17:42:22 UTC (rev 7714)
+++ Catalyst-Runtime/5.70/trunk/t/unit_utils_subdir.t	2008-05-07 19:23:05 UTC (rev 7715)
@@ -10,17 +10,23 @@
 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");
+}