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