view release on metacpan or  search on metacpan

t/coro.t  view on Meta::CPAN

    $done->begin;
    async {
        AnyEvent::SCGI::handle_scgi($scgi_fh, "foo", "666", sub {
            my ($h, $env, $content_ref, $fatal, $error) = @_;
            isa_ok $h => 'AnyEvent::Handle', 'handler got a handle,';

            ok (!$error, 'no handler error') or diag "handler got error '$error'";

            async {
                is_deeply $env, $expected_env, 'correctly decoded env';
                is $$content_ref, $content, 'correct content';

                $h->push_write("any old response\r\n");
                $h->push_shutdown();
                $h->on_drain(sub { $done->end });
                $check++;
                pass 'async done';
            };
            pass 'handler done';
        });

t/simple.t  view on Meta::CPAN

        });
        pass 'set up server read';
    }

    {
        AnyEvent::SCGI::handle_scgi($scgi_fh, "foo", "666", sub {
            my ($h, $env, $content_ref, $fatal, $error) = @_;

            ok (!$error, 'no error') or diag "server got error '$error'";

            is_deeply $env, $expected_env, 'correctly decoded env';
            is $$content_ref, $content, 'correct content';

            $h->push_write("any old response\r\n");
            $h->push_shutdown;
        });
        pass 'set up callback';
    }

    $server_done->recv;
    pass 'all finished';