view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

Build.PL
Changes
LICENSE
MANIFEST
META.yml
README
lib/Plack/Middleware/Delay.pm
t/00-compile.t
t/01-basic.t
t/02-anyevent.t
t/03-streaming.t
xt/author/critic.t
xt/release/dist-manifest.t
xt/release/kwalitee.t
xt/release/pod-coverage.t
xt/release/pod-syntax.t

t/03-streaming.t  view on Meta::CPAN

            $cond->send;
        };

        my $start = time;
        $cond->recv;
        my $end = time;

        my $diff = $end - $start;

        ok $diff >= 10, "Waiting for a streaming response should take over ten seconds";

        $cond = AnyEvent->condvar;

        http_get "http://localhost:$port", want_body_handle => 1, sub {
            my ( $h, $headers ) = @_;

            $end = time; ## seems kind of backwards here...

            my $buffer = '';