view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

Revision history for Perl extension Coro::Twiggy.

0.01  Wed Jul 11 21:34:09 2012
	- original version; created by h2xs 1.23 with options
		-X -n Coro::Twiggy

0.02  Thu Jul 12 11:41:29 MSK 2012
	- add debian infrastructure

0.03  Fri Jul 13 22:14:06 MSK 2012
        - user could throw exceptions in decoded utf8

t/02-requests.t  view on Meta::CPAN

cmp_ok $delay, '>=', 0.5, 'async process took more that 0.5 seconds';


$server->register_service(sub { die "привет" });
tcp_connect 'unix/', $socket, Coro::rouse_cb;
$cs = unblock +(Coro::rouse_wait)[0];
ok $cs, 'connected to server';
print $cs "GET / HTTP/1.0\015\012\015\12";
{ local $/; $resp = <$cs> }
ok $resp, "response";
ok eval { utf8::decode $resp }, 'response was decoded';
like $resp, qr{^HTTP/1\.[01]\s+500}, 'code';
like $resp, qr{привет at}, 'message';
ok $env, 'PSGI application was called';

}

Coro::AnyEvent::sleep 0.5;

my ($resp, $env);
tcp_connect 'unix/', $socket, Coro::rouse_cb;