view release on metacpan or  search on metacpan

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

28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
# stop kernel from griping
${$poe_kernel->[POE::Kernel::KR_RUN]} |=
  POE::Kernel::KR_RUN_CALLED;
 
print STDERR "$$: Sleep 2...";
sleep 2;
print STDERR "continue\n";
 
if(@ARGV) {
    print STDERR "Please connect to http://localhost:$PORT/ with your browser and make sure everything works\n";
    local @ARGV=();
    {} while <>;
}
 
my $UA = LWP::UserAgent->new;
 
##################################### welcome
my $req=HTTP::Request->new(GET => "http://localhost:$PORT/");
my $resp=$UA->request($req);
 
ok(($resp->is_success and $resp->content_type eq 'text/html'),