blob: bc0f0eee574a4bd360e659e3c4c26ed9164098ed (
plain)
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
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
|
#!/bin/sh
set -e
# usage: config <global config> <stuff for localhost>
# generates a configuration file reg.conf
config() {
cat <<EOF > reg.conf
ipv6 off
port 10965
$1
server "localhost" {
cert "cert.pem"
key "key.pem"
root "testdata"
$2
}
EOF
}
checkconf() {
./../gmid -n -c reg.conf
}
# usage: get <path>
# return the body of the request on stdout
get() {
./../gg -b "gemini://localhost:10965/$1"
}
# usage: head <path>
# return the meta response line on stdout
head() {
./../gg -h "gemini://localhost:10965/$1"
}
# usage: raw <path>
# return both header and body
raw() {
./../gg "gemini://localhost:10965/$1"
}
run() {
# filter out logs for GET requests
(./../gmid -f -c reg.conf 2>&1 | grep -v GET) >&2 &
pid=$!
# give gmid time to bind the port, otherwise we end up
# executing gg when gmid isn't ready yet.
sleep 1
}
# usage: check [exit-message]
# check if gmid is still running
check() {
if ! ps $pid >/dev/null; then
echo ${1:-"gmid crashed?"}
exit 1
fi
}
# quit gmid
quit() {
pkill gmid || true
wait || true
}
# usage: eq a b errmsg
# if a and b aren't equal strings, exit with errmsg
eq() {
if ! [ "$1" = "$2" ]; then
echo "$3: \"$1\" not equal \"$2\""
exit 1
fi
}
onexit() {
rm -f bigfile bigfile.sha
quit
}
# tests
trap 'onexit' INT TERM EXIT
endl=`printf "\r\n"`
lf=`echo`
config "" ""
checkconf
run
eq "$(head /)" "20 text/gemini" "Unexpected head for /"
eq "$(get /)" "# hello world$ln" "Unexpected body for /"
echo OK GET /
eq "$(head /foo)" "51 not found" "Unexpected head /foo"
eq "$(get /foo)" "" "Unexpected body /foo"
echo OK GET /foo
# should redirect if asked for a directory but without the trailing /
eq "$(head /dir)" "30 /dir/" "Unexpected redirect for /dir"
eq "$(get /dir)" "" "Unexpected body for redirect"
echo OK GET /dir
# 51 for a directory without index.gmi
eq "$(head /dir/)" "51 not found" "Unexpected head for /"
eq "$(get /dir/)" "" "Unexpected body for error"
echo OK GET /dir/
eq "$(head /dir/foo.gmi)" "20 text/gemini" "Unexpected head for /dir/foo.gmi"
eq "$(get /dir/foo.gmi)" "# hello world$ln" "Unexpected body for /dir/foo.gmi"
echo OK GET /dir/foo.gmi
# try a big file
eq "$(head /bigfile)" "20 application/octet-stream" "Unexpected head for /bigfile"
get /bigfile > bigfile
./sha bigfile bigfile.sha
eq "$(cat bigfile.sha)" "$(cat testdata/bigfile.sha)" "Unexpected sha for /bigfile"
echo OK GET /bigfile
# shouldn't be executing cgi scripts
eq "$(head /hello)" "20 application/octet-stream" "Unexpected head for /hello"
echo OK GET /hello
check "should be running"
quit
# try with custom mime
config 'mime "text/x-funny-text" "gmi"' 'default type "application/x-trash"'
checkconf
run
eq "$(head /)" "20 text/x-funny-text" "Unexpected head for /"
echo OK GET / with custom mime
eq "$(head /hello)" "20 application/x-trash" "Unexpected head for /hello"
echo OK GET /hello with custom mime
check "should be running"
quit
# try with custom lang
config '' 'lang "it"'
checkconf
run
eq "$(head /)" "20 text/gemini; lang=it" "Unexpected head for /"
echo OK GET / with custom lang
check "should be running"
quit
# finally try with CGI scripts
config '' 'cgi ""'
checkconf
run
eq "$(head /hello)" "20 text/gemini" "Unexpected head for /hello"
eq "$(get /hello)" "# hello world$ln" "Unexpected body for /hello"
echo OK GET /hello with cgi
eq "$(head /slow)" "20 text/gemini" "Unexpected head for /slow"
eq "$(get /slow)" "# hello world$ln" "Unexpected body for /slow"
echo OK GET /slow with cgi
eq "$(head /err)" "" "Unexpected head for /err"
eq "$(get /err)" "" "Unexpected body for /err"
echo OK GET /err with cgi
eq "$(raw /invalid | wc -c | xargs)" 2048 "Unexpected body for /invalid"
echo OK GET /invalid with cgi
# try a big file
eq "$(head /serve-bigfile)" "20 application/octet-stream" "Unexpected head for /serve-bigfile"
get /bigfile > bigfile
./sha bigfile bigfile.sha
eq "$(cat bigfile.sha)" "$(cat testdata/bigfile.sha)" "Unexpected sha for /serve-bigfile"
echo OK GET /serve-bigfile with cgi
check "should be running"
quit
config '' 'index "foo.gmi"'
checkconf
run
eq "$(head /dir/)" "20 text/gemini" "Unexpected head for /"
eq "$(get /dir/)" "# hello world$ln" "Unexpected body for error"
echo OK GET /dir/ with custom index
check "should be running"
quit
config '' 'location "/dir/" { default type "text/plain" index "hello" }'
checkconf
run
eq "$(head /dir/hello)" "20 text/plain" "Unexpected head for /"
echo OK GET /dir/hello with location and default type
eq "$(head /dir/)" "20 text/plain" "Unexpected head for /dir/"
eq "$(get /dir/|tail -1)" 'echo "# hello world"' "Unexpected body for /dir/"
echo OK GET /dir/ with location and custom index
check "should be running"
quit
config '' 'location "/dir/" { auto index on }'
checkconf
run
eq "$(head /)" "20 text/gemini" "Unexpected head for /"
eq "$(get /)" "# hello world$ln" "Unexpected body for /"
echo OK GET / with auto index
eq "$(head /dir)" "30 /dir/" "Unexpected head for /dir"
eq "$(head /dir/)" "20 text/gemini" "Unexpected head for /dir/"
eq "$(get /dir/|wc -l|xargs)" "3" "Unexpected body for /dir/"
echo OK GET /dir/ with auto index on
check "should be running"
quit
|
