mirror of https://github.com/omar-polo/gmid.git
202 lines
3.1 KiB
Bash
202 lines
3.1 KiB
Bash
ran_no=0
|
|
failed_no=0
|
|
failed=
|
|
|
|
ge="./../ge"
|
|
gg="./../gg"
|
|
gmid="./../gmid"
|
|
current_test=
|
|
|
|
run_test() {
|
|
ggflags=
|
|
port=10965
|
|
config_common="prefork 1
|
|
ipv6 off
|
|
port $port
|
|
"
|
|
hdr=
|
|
body=
|
|
dont_check_server_alive=no
|
|
|
|
ran_no=$((ran_no + 1))
|
|
|
|
current_test=$1
|
|
rm -f reg.conf
|
|
|
|
if ! $1; then
|
|
echo "$1 failed"
|
|
failed="$failed $1"
|
|
failed_no=$((failed_no + 1))
|
|
else
|
|
echo "$1 passed"
|
|
fi
|
|
|
|
if [ "$dont_check_server_alive" != 'no' ]; then
|
|
return
|
|
fi
|
|
|
|
if ! check; then
|
|
echo "gmid crashed?"
|
|
failed="$failed $1"
|
|
failed_no=$((failed_no + 1))
|
|
fi
|
|
}
|
|
|
|
tests_done() {
|
|
ok=$((ran_no - failed_no))
|
|
echo
|
|
echo "tests: $ran_no / passed: $ok / failed: $failed_no"
|
|
if [ "$failed" != "" ]; then
|
|
echo
|
|
echo "failed tests:$failed"
|
|
exit 1
|
|
fi
|
|
exit 0
|
|
}
|
|
|
|
# usage: gen_config <global config> <server config>
|
|
# generates a configuration file reg.conf
|
|
gen_config() {
|
|
cat <<EOF > reg.conf
|
|
$config_common
|
|
$1
|
|
server "localhost" {
|
|
cert "$PWD/cert.pem"
|
|
key "$PWD/key.pem"
|
|
root "$PWD/testdata"
|
|
$2
|
|
}
|
|
EOF
|
|
if ! checkconf; then
|
|
echo "failed to parse the config" >&2
|
|
return 1
|
|
fi
|
|
}
|
|
|
|
set_proxy() {
|
|
cat <<EOF >>reg.conf
|
|
server "localhost.local" {
|
|
cert "$PWD/cert.pem"
|
|
key "$PWD/key.pem"
|
|
proxy {
|
|
relay-to "localhost:$port"
|
|
$1
|
|
}
|
|
}
|
|
EOF
|
|
|
|
if ! checkconf; then
|
|
echo "failed to parse the config" >&2
|
|
return 1
|
|
fi
|
|
}
|
|
|
|
checkconf() {
|
|
if ! $gmid -n -f reg.conf >/dev/null 2>&1; then
|
|
$gmid -n -f reg.conf
|
|
fi
|
|
}
|
|
|
|
# usage: setup_simple_test <global config> <server config>
|
|
# generates a configuration file with `gen_config', validates it and
|
|
# launches the daemon
|
|
setup_simple_test() {
|
|
gen_config "$1" "$2"
|
|
run
|
|
}
|
|
|
|
# usage: get <path>
|
|
# return the body of the request on stdout
|
|
get() {
|
|
$gg -T10 $ggflags "gemini://localhost:10965/$1" || true
|
|
}
|
|
|
|
# usage: head <path>
|
|
# return the meta response line on stdout
|
|
head() {
|
|
$gg -T10 -d header $ggflags "gemini://localhost:10965/$1" || true
|
|
}
|
|
|
|
# usage: fetch <path>
|
|
# fetches the header and the body. They're returned in $hdr and
|
|
# $body.
|
|
fetch() {
|
|
if ! hdr="$(head $1)" || ! body="$(get $1)"; then
|
|
return 1
|
|
fi
|
|
}
|
|
|
|
# usage: fetch_hdr <path>
|
|
# fetches the header into $hdr
|
|
fetch_hdr() {
|
|
hdr="$(head $1)"
|
|
body=""
|
|
}
|
|
|
|
# usage: check_reply header body
|
|
# checks that $hdr and $body are equal to the given strings
|
|
check_reply() {
|
|
if [ "$hdr" != "$1" ]; then
|
|
echo "Header mismatch" >&2
|
|
echo "wants : $1" >&2
|
|
echo "got : $hdr" >&2
|
|
return 1
|
|
fi
|
|
|
|
if [ "$body" != "$2" ]; then
|
|
echo "Body mismatch" >&2
|
|
echo "wants : $2" >&2
|
|
echo "got : $body" >&2
|
|
return 1
|
|
fi
|
|
}
|
|
|
|
run() {
|
|
if check; then
|
|
kill -HUP "$(cat gmid.pid)"
|
|
sleep 1
|
|
return
|
|
fi
|
|
|
|
$gmid -P gmid.pid -f reg.conf
|
|
|
|
# give gmid time to bind the port, otherwise we end up
|
|
# executing gg when gmid isn't ready yet.
|
|
sleep 1
|
|
}
|
|
|
|
check() {
|
|
if [ ! -f gmid.pid ]; then
|
|
return 1
|
|
fi
|
|
|
|
pid="$(cat gmid.pid || true)"
|
|
if [ "$pid" = "" ]; then
|
|
return 1
|
|
fi
|
|
|
|
# remember: we're running under ``set -e''
|
|
if ps $pid >/dev/null; then
|
|
return 0
|
|
fi
|
|
|
|
return 1
|
|
}
|
|
|
|
count() {
|
|
wc -l | xargs
|
|
}
|
|
|
|
quit() {
|
|
pid="$(cat gmid.pid || true)"
|
|
if [ "$pid" != "" ]; then
|
|
kill $pid || true
|
|
wait || true
|
|
fi
|
|
}
|
|
|
|
onexit() {
|
|
rm -f bigfile bigfile.sha
|
|
quit
|
|
}
|