[Catalyst-commits] r8954 - in trunk/Catalyst-Engine-Apache: . t

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2008-12-27 16:46:08 +0000 (Sat, 27 Dec 2008)
New Revision: 8954

Modified:
   trunk/Catalyst-Engine-Apache/Changes
   trunk/Catalyst-Engine-Apache/t/live_component_controller_action_streaming.t
   trunk/Catalyst-Engine-Apache/t/live_engine_response_cookies.t
Log:
Fix tests to work with latest 5.70 trunk

Modified: trunk/Catalyst-Engine-Apache/Changes
===================================================================
--- trunk/Catalyst-Engine-Apache/Changes	2008-12-27 16:23:25 UTC (rev 8953)
+++ trunk/Catalyst-Engine-Apache/Changes	2008-12-27 16:46:08 UTC (rev 8954)
@@ -1,5 +1,9 @@
 This file documents the revision history for Catalyst::Engine::Apache.
 
+1.13
+        - Workaround change in LWP that broke a cookie test (RT #40037)
+        - Update streaming test to latest 5.70
+
 1.12    2008-02-20 09:00:00
         - Fixed bug where %2b in query parameter is doubly decoded to ' ', instead of '+' 
           (Gavin Henry, Tatsuhiko Miyagawa)

Modified: trunk/Catalyst-Engine-Apache/t/live_component_controller_action_streaming.t
===================================================================
--- trunk/Catalyst-Engine-Apache/t/live_component_controller_action_streaming.t	2008-12-27 16:23:25 UTC (rev 8953)
+++ trunk/Catalyst-Engine-Apache/t/live_component_controller_action_streaming.t	2008-12-27 16:46:08 UTC (rev 8954)
@@ -54,7 +54,7 @@
             skip "Using remote server", 5;
         }
 
-        my $file = "$FindBin::Bin/01use.t";
+        my $file = "$FindBin::Bin/lib/TestApp/Controller/Action/Streaming.pm";
         my $fh = IO::File->new( $file, 'r' );
         my $buffer;
         if ( defined $fh ) {

Modified: trunk/Catalyst-Engine-Apache/t/live_engine_response_cookies.t
===================================================================
--- trunk/Catalyst-Engine-Apache/t/live_engine_response_cookies.t	2008-12-27 16:23:25 UTC (rev 8953)
+++ trunk/Catalyst-Engine-Apache/t/live_engine_response_cookies.t	2008-12-27 16:46:08 UTC (rev 8954)
@@ -11,8 +11,8 @@
 use HTTP::Headers::Util 'split_header_words';
 
 my $expected = {
-    Catalyst => [qw|Catalyst Cool path /bah|],
-    Cool     => [qw|Cool Catalyst path /|]
+    catalyst => [qw|catalyst cool path /bah|],
+    cool     => [qw|cool catalyst path /|]
 };
 
 {