2 use warnings FATAL => 'all';
5 use Test::Needs 'HTTP::Request::AsCGI';
6 use HTTP::Request::Common qw(GET POST);
8 my $app = StreamTest->new;
10 ok run_request( $app, GET 'http://localhost/' )->is_success;
11 is run_request( $app, GET 'http://localhost/' )->content, "foo";
14 my ( $app, $request ) = @_;
15 my $c = HTTP::Request::AsCGI->new( $request )->setup;
26 sub dispatch_request {
32 my $writer = $respond->( [ 200, [ "Content-type" => "text/plain" ] ] );
33 $writer->write( 'f' );
34 $writer->write( 'o' );
35 $writer->write( 'o' );