Fix some Win32 test failures

diff --git a/Changes b/Changes
index 2313141..c25f2c9 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,6 +1,8 @@
 # This file documents the revision history for Perl extension Catalyst.
 
-        - Add pt translation of error message <wreis>
+5.7XXXXXX XXXX
+        - Fix some Win32 test failures
+        - Add pt translation of error message (wreis)
         
 5.7099_03 2008-07-20 10:10:00
         - Fix regressions for regexp fallback in model(), view() and controller()

diff --git a/t/live_engine_request_uploads.t b/t/live_engine_request_uploads.t
index 3bf9fe9..a044b5f 100644 (file)
--- a/t/live_engine_request_uploads.t
+++ b/t/live_engine_request_uploads.t
@@ -14,6 +14,7 @@ use Catalyst::Request::Upload;
 use HTTP::Headers;
 use HTTP::Headers::Util 'split_header_words';
 use HTTP::Request::Common;
+use Path::Class::Dir;
 
 {
     my $creq;
@@ -250,6 +251,7 @@ use HTTP::Request::Common;
 
     my $dir = "$FindBin::Bin/";
     local TestApp->config->{ uploadtmp } = $dir;
+    $dir = Path::Class::Dir->new( $dir );
 
     my $request = POST(
         'http://localhost/dump/request/',

diff --git a/t/unit_utils_subdir.t b/t/unit_utils_subdir.t
index d35cac0..852d2d4 100644 (file)
--- a/t/unit_utils_subdir.t
+++ b/t/unit_utils_subdir.t
@@ -9,6 +9,7 @@ use warnings;
 
 BEGIN { use_ok 'Catalyst::Utils' }
 use FindBin;
+use Path::Class::Dir;
 
 {
     $INC{'TestApp.pm'} = "$FindBin::Bin/something/script/foo/../../lib/TestApp.pm";
@@ -38,5 +39,6 @@ use FindBin;
   
     my $home = Catalyst::Utils::home('TestApp');
 
-    is( $home, $dir, 'same dir loading' );
+    $dir = Path::Class::Dir->new( $dir );
+    is( $home, "$dir", 'same dir loading' );
 }