1 files changed, 95 insertions, 0 deletions
diff --git a/t/lib-simple-http.sh b/t/lib-simple-http.sh
new file mode 100644
index 0000000..8d09082
--- /dev/null
+++ b/t/lib-simple-http.sh
@@ -0,0 +1,95 @@
+#!/bin/sh
+. ./test-lib.sh
+
+echo "simple HTTP connection keepalive/pipelining tests for $model"
+
+tbase=$(expr "$T" : '^\(t....\)-').ru
+test -f "$tbase" || die "$tbase missing for $T"
+
+eval $(unused_listen)
+rtmpfiles unicorn_config pid r_err r_out tmp fifo ok
+rm -f $fifo
+mkfifo $fifo
+
+cat > $unicorn_config <<EOF
+listen "$listen"
+pid "$pid"
+stderr_path "$r_err"
+stdout_path "$r_out"
+EOF
+if test x$model != xany
+then
+        echo "Rainbows! { use :$model }" >> $unicorn_config
+fi
+
+rainbows -D $tbase -c $unicorn_config
+wait_for_pid $pid
+
+echo "single request"
+curl -sSfv http://$listen/
+dbgcat r_err
+
+echo "two requests with keepalive"
+curl -sSfv http://$listen/a http://$listen/b > $tmp 2>&1
+dbgcat r_err
+dbgcat tmp
+grep 'Re-using existing connection' < $tmp
+
+echo "pipelining partial requests"
+req='GET / HTTP/1.1\r\nHost: example.com\r\n'
+(
+        printf "$req"'\r\n'"$req"
+        cat $fifo > $tmp &
+        sleep 1
+        printf 'Connection: close\r\n\r\n'
+        wait
+        echo ok > $ok
+) | socat - TCP:$listen > $fifo
+
+dbgcat tmp
+
+test 2 -eq $(grep '^HTTP/1.1' $tmp | wc -l)
+test 2 -eq $(grep '^HTTP/1.1 200 OK' $tmp | wc -l)
+test 1 -eq $(grep '^Connection: keep-alive' $tmp | wc -l)
+test 1 -eq $(grep '^Connection: close' $tmp | wc -l)
+test x"$(cat $ok)" = xok
+! grep Error $r_err
+
+
+echo "burst pipelining"
+req='GET / HTTP/1.1\r\nHost: example.com\r\n'
+(
+        printf "$req"'\r\n'"$req"'Connection: close\r\n\r\n'
+        cat $fifo > $tmp &
+        wait
+        echo ok > $ok
+) | socat - TCP:$listen > $fifo
+
+dbgcat tmp
+dbgcat r_err
+
+test 2 -eq $(grep '^HTTP/1.1' $tmp | wc -l)
+test 2 -eq $(grep '^HTTP/1.1 200 OK' $tmp | wc -l)
+test 1 -eq $(grep '^Connection: keep-alive' $tmp | wc -l)
+test 1 -eq $(grep '^Connection: close' $tmp | wc -l)
+test x"$(cat $ok)" = xok
+
+! grep Error $r_err
+
+
+echo "HTTP/0.9 request should not return headers"
+(
+        printf 'GET /\r\n\r\n'
+        cat $fifo > $tmp &
+        wait
+        echo ok > $ok
+) | socat - TCP:$listen > $fifo
+
+dbgcat tmp
+dbgcat r_err
+echo "env.inspect should've put everything on one line"
+test 1 -eq $(wc -l < $tmp)
+! grep ^Connection: $tmp
+! grep ^HTTP/ $tmp
+
+kill $(cat $pid)