X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Fbody_fh.t;h=3b7f61608b8400560b5bf699c966da77640fa1dc;hp=cc000209629f214d6241baa517aee578b2afbb10;hb=62864794a5688676c4aa0cf0a3bbc9258731fe77;hpb=46fff667a1229a59422010500311e48a6f9da824

diff --git a/t/body_fh.t b/t/body_fh.t
index cc00020..3b7f616 100644
--- a/t/body_fh.t
+++ b/t/body_fh.t
@@ -4,7 +4,10 @@ use Test::More;
 use HTTP::Request::Common;
 use HTTP::Message::PSGI;
 use Plack::Util;
-use Devel::Dwarn;
+
+# Test case to check that we now send scalar and filehandle like
+# bodys directly to the PSGI engine, rather than call $writer->write
+# or unroll the filehandle ourselves.
 
 {
   package MyApp::Controller::Root;
@@ -37,12 +40,14 @@ use Devel::Dwarn;
     $c->res->body('manual_write');
   }
 
+  $INC{'MyApp/Controller/Root.pm'} = __FILE__; # sorry...
+
   package MyApp;
   use Catalyst;
 
 }
 
-$INC{'MyApp/Controller/Root.pm'} = '1'; # sorry...
+
 
 ok(MyApp->setup);
 ok(my $psgi = MyApp->psgi_app);