view release on metacpan or  search on metacpan

t/coro.t  view on Meta::CPAN

97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
$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

82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
    });
    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';