t/t0005-large-file-response.sh

   1 #!/bin/sh
   2 . ./test-lib.sh
   3 test -r random_blob || die "random_blob required, run with 'make $0'"
   4
   5 if ! grep -v ^VmRSS: /proc/self/status >/dev/null 2>&1
   6 then
   7         t_info "skipping, can't read RSS from /proc/self/status"
   8         exit 0
   9 fi
  10
  11 t_plan 10 "large file response slurp avoidance for $model"
  12
  13 t_begin "setup and startup" && {
  14         rtmpfiles curl_out
  15         zbatery_setup $model
  16         # can't load Rack::Lint here since it'll cause Rev to slurp
  17         zbatery -E none -D large-file-response.ru -c $unicorn_config
  18         zbatery_wait_start
  19 }
  20
  21 t_begin "read random blob size" && {
  22         random_blob_size=$(wc -c < random_blob)
  23 }
  24
  25 t_begin "read current RSS" && {
  26         curl -v http://$listen/rss
  27         dbgcat r_err
  28         rss_before=$(curl -sSfv http://$listen/rss)
  29         t_info "rss_before=$rss_before"
  30 }
  31
  32 t_begin "send a series HTTP/1.1 requests sequentially" && {
  33         for i in a b c
  34         do
  35                 size=$( (curl -sSfv http://$listen/random_blob &&
  36                          echo ok >$ok) |wc -c)
  37                 test $size -eq $random_blob_size
  38                 test xok = x$(cat $ok)
  39         done
  40 }
  41
  42 # this was a problem during development
  43 t_begin "HTTP/1.0 test" && {
  44         size=$( (curl -0 -sSfv http://$listen/random_blob &&
  45                  echo ok >$ok) |wc -c)
  46         test $size -eq $random_blob_size
  47         test xok = x$(cat $ok)
  48 }
  49
  50 t_begin "HTTP/0.9 test" && {
  51         (
  52                 printf 'GET /random_blob\r\n'
  53                 cat $fifo > $tmp &
  54                 wait
  55                 echo ok > $ok
  56         ) | socat - TCP:$listen > $fifo
  57         cmp $tmp random_blob
  58         test xok = x$(cat $ok)
  59 }
  60
  61 dbgcat r_err
  62
  63 t_begin "read RSS again" && {
  64         curl -v http://$listen/rss
  65         rss_after=$(curl -sSfv http://$listen/rss)
  66         t_info "rss_after=$rss_after"
  67 }
  68
  69 t_begin "shutdown server" && {
  70         kill -QUIT $zbatery_pid
  71 }
  72
  73 t_begin "compare RSS before and after" && {
  74         diff=$(( $rss_after - $rss_before ))
  75         t_info "test diff=$diff < orig=$random_blob_size"
  76         test $diff -le $random_blob_size
  77 }
  78
  79 dbgcat r_err
  80
  81 t_begin "check stderr" && check_stderr
  82
  83 t_done