3 use Test::More tests => 3;
6 eval "use IO::String 1.07";
7 plan skip_all => 'IO::String 1.07 required' if $@;
14 use HTTP::Request::AsCGI;
16 my $r = HTTP::Request->new( POST => 'http://www.host.com/');
18 $r->content_length(5);
19 $r->content_type('text/plain');
21 my $c = HTTP::Request::AsCGI->new(
24 stdin => IO::String->new,
25 stdout => IO::String->new,
26 stderr => IO::String->new
31 print STDOUT 'STDOUT';
32 print STDERR 'STDERR';
36 is( $c->stdin->getline, 'STDIN', 'STDIN' );
37 is( $c->stdout->getline, 'STDOUT', 'STDOUT' );
38 is( $c->stderr->getline, 'STDERR', 'STDERR' );