t/t0000-simple-http.sh

   1 #!/bin/sh
   2 . ./test-lib.sh
   3 t_plan 25 "simple HTTP connection keepalive/pipelining tests for $model"
   4
   5 t_begin "checking for config.ru for $model" && {
   6         tbase=simple-http_$model.ru
   7         test -f "$tbase"
   8 }
   9
  10 t_begin "setup and start" && {
  11         rainbows_setup
  12         rainbows -D $tbase -c $unicorn_config
  13         rainbows_wait_start
  14 }
  15
  16 t_begin "pid file exists" && {
  17         test -f $pid
  18 }
  19
  20 t_begin "single request" && {
  21         curl -sSfv http://$listen/
  22 }
  23
  24 t_begin "handles client EOF gracefully" && {
  25         printf 'GET / HTTP/1.1\r\nHost: example.com\r\n\r\n' | \
  26                 socat - TCP4:$listen > $tmp
  27         dbgcat tmp
  28         if grep 'HTTP.* 500' $tmp
  29         then
  30                 die "500 error returned on client shutdown(SHUT_WR)"
  31         fi
  32         check_stderr
  33 }
  34
  35 dbgcat r_err
  36
  37 t_begin "two requests with keepalive" && {
  38         curl -sSfv http://$listen/a http://$listen/b > $tmp 2>&1
  39 }
  40
  41 dbgcat r_err
  42 dbgcat tmp
  43
  44 t_begin "reused existing connection" && {
  45         grep 'Re-using existing connection' < $tmp
  46 }
  47
  48 t_begin "pipelining partial requests" && {
  49         req='GET / HTTP/1.1\r\nHost: example.com\r\n'
  50         (
  51                 cat $fifo > $tmp &
  52                 printf "$req"'\r\n'"$req"
  53                 sleep 1
  54                 printf 'Connection: close\r\n\r\n'
  55                 wait
  56                 echo ok > $ok
  57         ) | socat - TCP:$listen > $fifo
  58 }
  59 dbgcat tmp
  60
  61 t_begin "two HTTP/1.1 responses" && {
  62         test 2 -eq $(grep '^HTTP/1.1' $tmp | wc -l)
  63 }
  64
  65 t_begin "two HTTP/1.1 200 OK responses" && {
  66         test 2 -eq $(grep '^HTTP/1.1 200 OK' $tmp | wc -l)
  67 }
  68
  69 t_begin 'one "Connection: keep-alive" response' && {
  70         test 1 -eq $(grep '^Connection: keep-alive' $tmp | wc -l)
  71 }
  72
  73 t_begin 'one "Connection: close" response' && {
  74         test 1 -eq $(grep '^Connection: close' $tmp | wc -l)
  75 }
  76
  77 t_begin 'check subshell success' && {
  78         test x"$(cat $ok)" = xok
  79 }
  80
  81
  82 t_begin "check stderr" && {
  83         check_stderr
  84 }
  85
  86 t_begin "burst pipelining requests" && {
  87         req='GET / HTTP/1.1\r\nHost: example.com\r\n'
  88         (
  89                 cat $fifo > $tmp &
  90                 printf "$req"'\r\n'"$req"'Connection: close\r\n\r\n'
  91                 wait
  92                 echo ok > $ok
  93         ) | socat - TCP:$listen > $fifo
  94 }
  95
  96 dbgcat tmp
  97 dbgcat r_err
  98
  99 t_begin "got 2 HTTP/1.1 responses from pipelining" && {
 100         test 2 -eq $(grep '^HTTP/1.1' $tmp | wc -l)
 101 }
 102
 103 t_begin "got 2 HTTP/1.1 200 OK responses" && {
 104         test 2 -eq $(grep '^HTTP/1.1 200 OK' $tmp | wc -l)
 105 }
 106
 107 t_begin "one keepalive connection" && {
 108         test 1 -eq $(grep '^Connection: keep-alive' $tmp | wc -l)
 109 }
 110
 111 t_begin "second request closes connection" && {
 112         test 1 -eq $(grep '^Connection: close' $tmp | wc -l)
 113 }
 114
 115 t_begin "subshell exited correctly" && {
 116         test x"$(cat $ok)" = xok
 117 }
 118
 119 t_begin "stderr log has no errors" && {
 120         check_stderr
 121 }
 122
 123 t_begin "HTTP/0.9 request should not return headers" && {
 124         (
 125                 printf 'GET /\r\n'
 126                 cat $fifo > $tmp &
 127                 wait
 128                 echo ok > $ok
 129         ) | socat - TCP:$listen > $fifo
 130 }
 131
 132 dbgcat tmp
 133 dbgcat r_err
 134
 135 t_begin "env.inspect should've put everything on one line" && {
 136         test 1 -eq $(wc -l < $tmp)
 137 }
 138
 139 t_begin "no headers in output" && {
 140         if grep ^Connection: $tmp
 141         then
 142                 die "Connection header found in $tmp"
 143         elif grep ^HTTP/ $tmp
 144         then
 145                 die "HTTP/ found in $tmp"
 146         fi
 147 }
 148
 149 t_begin "killing succeeds" && {
 150         kill $rainbows_pid
 151 }
 152
 153 t_done