view release on metacpan or  search on metacpan

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

    # 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'),