[Catalyst-commits] r8949 - in Catalyst-Runtime/5.70/trunk: . t t/lib/TestApp/Controller/Action

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2008-12-27 10:32:56 +0000 (Sat, 27 Dec 2008)
New Revision: 8949

Modified:
   Catalyst-Runtime/5.70/trunk/Changes
   Catalyst-Runtime/5.70/trunk/t/lib/TestApp/Controller/Action/Streaming.pm
   Catalyst-Runtime/5.70/trunk/t/live_component_controller_action_streaming.t
Log:
Change what we stream to make test sync for engines easier.

Modified: Catalyst-Runtime/5.70/trunk/Changes
===================================================================
--- Catalyst-Runtime/5.70/trunk/Changes	2008-12-26 19:44:09 UTC (rev 8948)
+++ Catalyst-Runtime/5.70/trunk/Changes	2008-12-27 10:32:56 UTC (rev 8949)
@@ -1,6 +1,8 @@
 # This file documents the revision history for Perl extension Catalyst.
 
 5.7XXXXXX XXXX
+        - Change streaming test to serve itself rather than 01use.t, making test
+          sync for engines easier (t0m)
         - Workaround change in LWP that broke a cookie test (RT #40037)
         - Back out go() since that feature's been pushed to 5.80
         - Fix some Win32 test failures

Modified: Catalyst-Runtime/5.70/trunk/t/lib/TestApp/Controller/Action/Streaming.pm
===================================================================
--- Catalyst-Runtime/5.70/trunk/t/lib/TestApp/Controller/Action/Streaming.pm	2008-12-26 19:44:09 UTC (rev 8948)
+++ Catalyst-Runtime/5.70/trunk/t/lib/TestApp/Controller/Action/Streaming.pm	2008-12-27 10:32:56 UTC (rev 8949)
@@ -17,7 +17,7 @@
 sub body : Local {
     my ( $self, $c ) = @_;
     
-    my $file = "$FindBin::Bin/01use.t";
+    my $file = "$FindBin::Bin/lib/TestApp/Controller/Action/Streaming.pm";
     my $fh = IO::File->new( $file, 'r' );
     if ( defined $fh ) {
         $c->res->body( $fh );

Modified: Catalyst-Runtime/5.70/trunk/t/live_component_controller_action_streaming.t
===================================================================
--- Catalyst-Runtime/5.70/trunk/t/live_component_controller_action_streaming.t	2008-12-26 19:44:09 UTC (rev 8948)
+++ Catalyst-Runtime/5.70/trunk/t/live_component_controller_action_streaming.t	2008-12-27 10:32:56 UTC (rev 8949)
@@ -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 ) {