4 use HTTP::Request::Common;
5 use HTTP::Message::PSGI;
10 package MyApp::Controller::Root;
12 use base 'Catalyst::Controller';
14 sub flat_response :Local {
15 my $response = 'Hello flat_response';
16 pop->res->body($response);
19 sub memory_stream :Local {
20 my $response = 'Hello memory_stream';
21 open my $fh, '<', \$response || die "$!";
26 sub manual_write_fh :Local {
28 my $response = 'Hello manual_write_fh';
29 my $writer = $c->res->write_fh;
30 $writer->write($response);
34 sub manual_write :Local {
36 $c->res->write('Hello');
37 $c->res->body('manual_write');
45 $INC{'MyApp/Controller/Root.pm'} = '1'; # sorry...
48 ok(my $psgi = MyApp->psgi_app);
51 ok(my $env = req_to_psgi(GET '/root/flat_response'));
52 ok(my $psgi_response = $psgi->($env));
54 $psgi_response->(sub {
55 my $response_tuple = shift;
56 my ($status, $headers, $body) = @$response_tuple;
60 is $body->[0], 'Hello flat_response';
66 ok(my $env = req_to_psgi(GET '/root/memory_stream'));
67 ok(my $psgi_response = $psgi->($env));
69 $psgi_response->(sub {
70 my $response_tuple = shift;
71 my ($status, $headers, $body) = @$response_tuple;
75 is ref($body), 'GLOB';
81 ok(my $env = req_to_psgi(GET '/root/manual_write_fh'));
82 ok(my $psgi_response = $psgi->($env));
84 $psgi_response->(sub {
85 my $response_tuple = shift;
86 my ($status, $headers, $body) = @$response_tuple;
92 return Plack::Util::inline_object(
93 write => sub { is shift, 'Hello manual_write_fh' },
94 close => sub { ok 1, 'closed' },
100 ok(my $env = req_to_psgi(GET '/root/manual_write'));
101 ok(my $psgi_response = $psgi->($env));
103 $psgi_response->(sub {
104 my $response_tuple = shift;
105 my ($status, $headers, $body) = @$response_tuple;
111 my @expected = (qw/Hello manual_write/);
112 return Plack::Util::inline_object(
113 close => sub { ok 1, 'closed'; is scalar(@expected), 0; },
114 write => sub { is shift, shift(@expected) },
119 ## We need to specify the number of expected tests because tests that live
120 ## in the callbacks might never get run (thus all ran tests pass but not all
121 ## required tests run).