2 use warnings FATAL => 'all';
5 eval { require HTTP::Request::AsCGI }
7 : (skip_all => 'No HTTP::Request::AsCGI')
10 use HTTP::Request::Common qw(GET POST);
12 my $app = StreamTest->new;
14 ok run_request( $app, GET 'http://localhost/' )->is_success;
15 is run_request( $app, GET 'http://localhost/' )->content, "foo";
18 my ( $app, $request ) = @_;
19 my $c = HTTP::Request::AsCGI->new( $request )->setup;
30 sub dispatch_request {
36 my $writer = $respond->( [ 200, [ "Content-type" => "text/plain" ] ] );
37 $writer->write( 'f' );
38 $writer->write( 'o' );
39 $writer->write( 'o' );