diff options
Diffstat (limited to 't/httpd-corner.t')
-rw-r--r-- | t/httpd-corner.t | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/t/httpd-corner.t b/t/httpd-corner.t index 19564074..a6238e48 100644 --- a/t/httpd-corner.t +++ b/t/httpd-corner.t @@ -76,6 +76,15 @@ my $spawn_httpd = sub { $spawn_httpd->('-W0'); } +{ + my $conn = conn_for($sock, 'streaming callback'); + $conn->write("GET /callback HTTP/1.0\r\n\r\n"); + ok($conn->read(my $buf, 8192), 'read response'); + my ($head, $body) = split(/\r\n\r\n/, $buf); + is($body, "hello world\n", 'callback body matches expected'); +} + + # Unix domain sockets { my $u = IO::Socket::UNIX->new(Type => SOCK_STREAM, Peer => $upath); |