t/04iostring.t

   1 #!perl
   2
   3 use Test::More tests => 3;
   4
   5 {
   6     eval "use IO::String 1.07";
   7     plan skip_all => 'IO::String 1.07 required' if $@;
   8 }
   9
  10 use strict;
  11 use warnings;
  12
  13 use HTTP::Request;
  14 use HTTP::Request::AsCGI;
  15
  16 my $r = HTTP::Request->new( POST => 'http://www.host.com/');
  17 $r->content('STDIN');
  18 $r->content_length(5);
  19 $r->content_type('text/plain');
  20
  21 my $c = HTTP::Request::AsCGI->new(
  22     request => $r,
  23     dup     => 0,
  24     stdin   => IO::String->new,
  25     stdout  => IO::String->new,
  26     stderr  => IO::String->new
  27 );
  28
  29 $c->setup;
  30
  31 print STDOUT 'STDOUT';
  32 print STDERR 'STDERR';
  33
  34 $c->restore;
  35
  36 is( $c->stdin->getline,  'STDIN',  'STDIN' );
  37 is( $c->stdout->getline, 'STDOUT', 'STDOUT' );
  38 is( $c->stderr->getline, 'STDERR', 'STDERR' );