2 test -r random_blob || die
"random_blob required, run with 'make $0'"
4 if ! grep -v ^VmRSS
: /proc
/self
/status
>/dev
/null
2>&1
6 t_info
"skipping, can't read RSS from /proc/self/status"
10 t_plan
10 "large file response slurp avoidance for $model"
12 t_begin
"setup and startup" && {
15 # can't load Rack::Lint here since it'll cause Rev to slurp
16 rainbows
-E none
-D large-file-response.ru
-c $unicorn_config
20 t_begin
"read random blob size" && {
21 random_blob_size
=$
(wc -c < random_blob
)
24 t_begin
"read current RSS" && {
25 curl
-v http
://$listen/rss
27 rss_before
=$
(curl
-sSfv http
://$listen/rss
)
28 t_info
"rss_before=$rss_before"
31 t_begin
"send a series HTTP/1.1 requests sequentially" && {
34 size
=$
( (curl
-sSfv http
://$listen/random_blob
&&
36 test $size -eq $random_blob_size
37 test xok
= x$
(cat $ok)
41 # this was a problem during development
42 t_begin
"HTTP/1.0 test" && {
43 size
=$
( (curl
-0 -sSfv http
://$listen/random_blob
&&
45 test $size -eq $random_blob_size
46 test xok
= x$
(cat $ok)
49 t_begin
"HTTP/0.9 test" && {
51 printf 'GET /random_blob\r\n'
55 ) | socat
- TCP
:$listen > $fifo
57 test xok
= x$
(cat $ok)
62 t_begin
"read RSS again" && {
63 curl
-v http
://$listen/rss
64 rss_after
=$
(curl
-sSfv http
://$listen/rss
)
65 t_info
"rss_after=$rss_after"
68 t_begin
"shutdown server" && {
69 kill -QUIT $rainbows_pid
72 t_begin
"compare RSS before and after" && {
73 diff=$
(( $rss_after - $rss_before ))
74 t_info
"test diff=$diff < orig=$random_blob_size"
75 test $diff -le $random_blob_size
80 t_begin
"check stderr" && check_stderr