[Catalyst-commits] r8979 - in trunk/Catalyst-Engine-HTTP-POE: . t

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2008-12-29 21:42:27 +0000 (Mon, 29 Dec 2008)
New Revision: 8979

Modified:
   trunk/Catalyst-Engine-HTTP-POE/Changes
   trunk/Catalyst-Engine-HTTP-POE/t/live_component_controller_action_streaming.t
   trunk/Catalyst-Engine-HTTP-POE/t/live_engine_response_cookies.t
   trunk/Catalyst-Engine-HTTP-POE/t/live_plugin_loaded.t
Log:
Sync up tests so that they pass against 5.70

Modified: trunk/Catalyst-Engine-HTTP-POE/Changes
===================================================================
--- trunk/Catalyst-Engine-HTTP-POE/Changes	2008-12-29 21:10:24 UTC (rev 8978)
+++ trunk/Catalyst-Engine-HTTP-POE/Changes	2008-12-29 21:42:27 UTC (rev 8979)
@@ -1,5 +1,8 @@
 This file documents the revision history for Catalyst::Engine::HTTP::POE.
 
+0.09
+        - Sync up tests with 5.70 trunk
+
 0.08    2008-04-05 16:15:00
         - Removed YieldCC module, it was screwing up CPAN indexing.
 

Modified: trunk/Catalyst-Engine-HTTP-POE/t/live_component_controller_action_streaming.t
===================================================================
--- trunk/Catalyst-Engine-HTTP-POE/t/live_component_controller_action_streaming.t	2008-12-29 21:10:24 UTC (rev 8978)
+++ trunk/Catalyst-Engine-HTTP-POE/t/live_component_controller_action_streaming.t	2008-12-29 21:42:27 UTC (rev 8979)
@@ -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-HTTP-POE/t/live_engine_response_cookies.t
===================================================================
--- trunk/Catalyst-Engine-HTTP-POE/t/live_engine_response_cookies.t	2008-12-29 21:10:24 UTC (rev 8978)
+++ trunk/Catalyst-Engine-HTTP-POE/t/live_engine_response_cookies.t	2008-12-29 21:42:27 UTC (rev 8979)
@@ -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 /|]
 };
 
 {

Modified: trunk/Catalyst-Engine-HTTP-POE/t/live_plugin_loaded.t
===================================================================
--- trunk/Catalyst-Engine-HTTP-POE/t/live_plugin_loaded.t	2008-12-29 21:10:24 UTC (rev 8978)
+++ trunk/Catalyst-Engine-HTTP-POE/t/live_plugin_loaded.t	2008-12-29 21:42:27 UTC (rev 8979)
@@ -12,6 +12,7 @@
 my @expected = qw[
   Catalyst::Plugin::Test::Errors
   Catalyst::Plugin::Test::Headers
+  Catalyst::Plugin::Test::Inline
   Catalyst::Plugin::Test::Plugin
   TestApp::Plugin::FullyQualified
 ];