about summary refs log tree commit homepage
path: root/t
diff options
context:
space:
mode:
authorEric Wong <normalperson@yhbt.net>2010-10-22 02:50:09 +0000
committerEric Wong <normalperson@yhbt.net>2010-10-22 18:37:45 +0000
commit4a568eeb7d17885579790d0ae004f04aa13479cb (patch)
tree02a4a93997c3393c0be399d5363d6127fa0d6b44 /t
parent6d46978bdc8d2ee4263431ecdcada53389b12597 (diff)
downloadrainbows-4a568eeb7d17885579790d0ae004f04aa13479cb.tar.gz
Applications may use wait_readable-aware methods directly
to work with Rainbows!
Diffstat (limited to 't')
-rw-r--r--t/kgio-pipe-response.ru10
-rwxr-xr-xt/t0035-kgio-pipe-response.sh70
2 files changed, 80 insertions, 0 deletions
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