[Catalyst-commits] r8954 - in trunk/Catalyst-Engine-Apache: . t
t0m at dev.catalyst.perl.org
t0m at dev.catalyst.perl.org
Sat Dec 27 16:46:08 GMT 2008
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 /|]
};
{
More information about the Catalyst-commits
mailing list