[Catalyst-commits] r8196 - in Catalyst-Runtime/5.70/trunk: . t

[bricas at dev.catalyst.perl.org]

Author: bricas
Date: 2008-08-07 17:31:31 +0100 (Thu, 07 Aug 2008)
New Revision: 8196

Modified:
   Catalyst-Runtime/5.70/trunk/Changes
   Catalyst-Runtime/5.70/trunk/t/live_engine_request_uploads.t
   Catalyst-Runtime/5.70/trunk/t/unit_utils_subdir.t
Log:
Fix some Win32 test failures

Modified: Catalyst-Runtime/5.70/trunk/Changes
===================================================================
--- Catalyst-Runtime/5.70/trunk/Changes	2008-08-07 11:51:10 UTC (rev 8195)
+++ Catalyst-Runtime/5.70/trunk/Changes	2008-08-07 16:31:31 UTC (rev 8196)
@@ -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()

Modified: Catalyst-Runtime/5.70/trunk/t/live_engine_request_uploads.t
===================================================================
--- Catalyst-Runtime/5.70/trunk/t/live_engine_request_uploads.t	2008-08-07 11:51:10 UTC (rev 8195)
+++ Catalyst-Runtime/5.70/trunk/t/live_engine_request_uploads.t	2008-08-07 16:31:31 UTC (rev 8196)
@@ -14,6 +14,7 @@
 use HTTP::Headers;
 use HTTP::Headers::Util 'split_header_words';
 use HTTP::Request::Common;
+use Path::Class::Dir;
 
 {
     my $creq;
@@ -250,6 +251,7 @@
 
     my $dir = "$FindBin::Bin/";
     local TestApp->config->{ uploadtmp } = $dir;
+    $dir = Path::Class::Dir->new( $dir );
 
     my $request = POST(
         'http://localhost/dump/request/',

Modified: Catalyst-Runtime/5.70/trunk/t/unit_utils_subdir.t
===================================================================
--- Catalyst-Runtime/5.70/trunk/t/unit_utils_subdir.t	2008-08-07 11:51:10 UTC (rev 8195)
+++ Catalyst-Runtime/5.70/trunk/t/unit_utils_subdir.t	2008-08-07 16:31:31 UTC (rev 8196)
@@ -9,6 +9,7 @@
 
 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 @@
   
     my $home = Catalyst::Utils::home('TestApp');
 
-    is( $home, $dir, 'same dir loading' );
+    $dir = Path::Class::Dir->new( $dir );
+    is( $home, "$dir", 'same dir loading' );
 }