view release on metacpan or  search on metacpan

t/31_stream.t  view on Meta::CPAN

#  use_ok('CGI::Application::Plugin::Stream');

#  unshift @INC, 't/lib';
#}

use strict;
#use TieOut;



# Useless here, since the point is to test streaming directly.
#$ENV{CGI_APP_RETURN_ONLY} = 1;

#####


my $stdout = tie *STDOUT, 'TieOut' or die;
my ($content_sent, $test_name);

##############