From 4a568eeb7d17885579790d0ae004f04aa13479cb Mon Sep 17 00:00:00 2001
From: Eric Wong <normalperson@yhbt.net>
Date: Fri, 22 Oct 2010 02:50:09 +0000
Subject: dev_fd_response: do not wrap for Fiber-aware IOs

Applications may use wait_readable-aware methods directly
to work with Rainbows!
---
 t/kgio-pipe-response.ru       | 10 +++++++
 t/t0035-kgio-pipe-response.sh | 70 +++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 80 insertions(+)
 create mode 100644 t/kgio-pipe-response.ru
 create mode 100755 t/t0035-kgio-pipe-response.sh

(limited to 't')

diff --git a/t/kgio-pipe-response.ru b/t/kgio-pipe-response.ru
new file mode 100644
index 0000000..edd2aac
--- /dev/null
+++ b/t/kgio-pipe-response.ru
@@ -0,0 +1,10 @@
+# must be run without Rack::Lint since that clobbers to_path
+use Rainbows::DevFdResponse
+run(lambda { |env|
+  [ 200,
+    {
+      'Content-Length' => ::File.stat('random_blob').size.to_s,
+      'Content-Type' => 'application/octet-stream',
+    },
+    Rainbows::Fiber::IO::Pipe.popen('cat random_blob', 'rb') ]
+})
diff --git a/t/t0035-kgio-pipe-response.sh b/t/t0035-kgio-pipe-response.sh
new file mode 100755
index 0000000..97c3f2a
--- /dev/null
+++ b/t/t0035-kgio-pipe-response.sh
@@ -0,0 +1,70 @@
+#!/bin/sh
+. ./test-lib.sh
+test -r random_blob || die "random_blob required, run with 'make $0'"
+case $model in
+*Fiber* ) ;;
+*)
+	t_info "skipping $T since it's not compatible with $model"
+	exit 0
+	;;
+esac
+
+t_plan 10 "fast Kgio pipe response for $model"
+
+t_begin "setup and startup" && {
+	rtmpfiles err out
+	rainbows_setup $model
+	rainbows -E none -D kgio-pipe-response.ru -c $unicorn_config
+	rainbows_wait_start
+}
+
+t_begin "read random blob sha1" && {
+	random_blob_sha1=$(rsha1 < random_blob)
+	three_sha1=$(cat random_blob random_blob random_blob | rsha1)
+}
+
+t_begin "single request matches" && {
+	sha1=$(curl -sSfv 2> $err http://$listen/ | rsha1)
+	test -n "$sha1"
+	test x"$sha1" = x"$random_blob_sha1"
+}
+
+t_begin "Content-Length header preserved in response" && {
+	grep "^< Content-Length:" $err
+}
+
+t_begin "send three keep-alive requests" && {
+	sha1=$(curl -vsSf 2> $err \
+	       http://$listen/ http://$listen/ http://$listen/ | rsha1)
+	test -n "$sha1"
+	test x"$sha1" = x"$three_sha1"
+}
+
+t_begin "ensure responses were all keep-alive" && {
+	test 3 -eq $(grep '< Connection: keep-alive' < $err | wc -l)
+}
+
+t_begin "HTTP/1.0 test" && {
+	sha1=$(curl -0 -v 2> $err -sSf http://$listen/ | rsha1)
+	test $sha1 = $random_blob_sha1
+	grep '< Connection: close' < $err
+}
+
+t_begin "HTTP/0.9 test" && {
+	(
+		printf 'GET /\r\n'
+		rsha1 < $fifo > $tmp &
+		wait
+		echo ok > $ok
+	) | socat - TCP:$listen > $fifo
+	test $(cat $tmp) = $random_blob_sha1
+	test xok = x$(cat $ok)
+}
+
+t_begin "shutdown server" && {
+	kill -QUIT $rainbows_pid
+}
+
+t_begin "check stderr" && check_stderr
+
+t_done
-- 
cgit v1.2.3-24-ge0c7