1 5df699d1 2022-08-29 op ran_no=0
  2 5df699d1 2022-08-29 op failed_no=0
  3 176179b2 2021-10-04 op failed=
  4 176179b2 2021-10-04 op 
  5 a5fb2593 2022-09-08 op ge="./../ge"
  6 7a4ae106 2021-12-29 op gg="./../gg"
  7 176179b2 2021-10-04 op gmid="./../gmid"
  8 176179b2 2021-10-04 op current_test=
  9 176179b2 2021-10-04 op 
 10 176179b2 2021-10-04 op run_test() {
 11 176179b2 2021-10-04 op 	ggflags=
 12 176179b2 2021-10-04 op 	port=10965
 13 7b7def0a 2022-01-03 op 	config_common="prefork 1
 14 176179b2 2021-10-04 op ipv6 off
 15 176179b2 2021-10-04 op port $port
 16 176179b2 2021-10-04 op "
 17 176179b2 2021-10-04 op 	hdr=
 18 176179b2 2021-10-04 op 	body=
 19 ae0d3cdb 2021-12-09 op 	dont_check_server_alive=no
 20 176179b2 2021-10-04 op 
 21 5df699d1 2022-08-29 op 	ran_no=$((ran_no + 1))
 22 5df699d1 2022-08-29 op 
 23 176179b2 2021-10-04 op 	current_test=$1
 24 176179b2 2021-10-04 op 	rm -f reg.conf
 25 176179b2 2021-10-04 op 
 26 176179b2 2021-10-04 op 	if ! $1; then
 27 176179b2 2021-10-04 op 		echo "$1 failed"
 28 176179b2 2021-10-04 op 		failed="$failed $1"
 29 5df699d1 2022-08-29 op 		failed_no=$((failed_no + 1))
 30 176179b2 2021-10-04 op 	else
 31 176179b2 2021-10-04 op 		echo "$1 passed"
 32 176179b2 2021-10-04 op 	fi
 33 176179b2 2021-10-04 op 
 34 ae0d3cdb 2021-12-09 op 	if [ "$dont_check_server_alive" != 'no' ]; then
 35 176179b2 2021-10-04 op 		return
 36 176179b2 2021-10-04 op 	fi
 37 176179b2 2021-10-04 op 
 38 176179b2 2021-10-04 op 	if ! check; then
 39 176179b2 2021-10-04 op 		echo "gmid crashed?"
 40 176179b2 2021-10-04 op 		failed="$failed $1"
 41 5df699d1 2022-08-29 op 		failed_no=$((failed_no + 1))
 42 176179b2 2021-10-04 op 	fi
 43 176179b2 2021-10-04 op }
 44 176179b2 2021-10-04 op 
 45 4a2a525d 2021-10-04 op tests_done() {
 46 5df699d1 2022-08-29 op 	ok=$((ran_no - failed_no))
 47 5df699d1 2022-08-29 op 	echo
 48 5df699d1 2022-08-29 op 	echo "tests: $ran_no / passed: $ok / failed: $failed_no"
 49 4a2a525d 2021-10-04 op 	if [ "$failed" != "" ]; then
 50 4a2a525d 2021-10-04 op 		echo
 51 4a2a525d 2021-10-04 op 		echo "failed tests:$failed"
 52 4a2a525d 2021-10-04 op 		exit 1
 53 4a2a525d 2021-10-04 op 	fi
 54 4a2a525d 2021-10-04 op 	exit 0
 55 4a2a525d 2021-10-04 op }
 56 4a2a525d 2021-10-04 op 
 57 176179b2 2021-10-04 op # usage: gen_config <global config> <server config>
 58 176179b2 2021-10-04 op # generates a configuration file reg.conf
 59 176179b2 2021-10-04 op gen_config() {
 60 176179b2 2021-10-04 op 	cat <<EOF > reg.conf
 61 176179b2 2021-10-04 op $config_common
 62 176179b2 2021-10-04 op $1
 63 176179b2 2021-10-04 op server "localhost" {
 64 176179b2 2021-10-04 op 	cert "$PWD/cert.pem"
 65 176179b2 2021-10-04 op 	key  "$PWD/key.pem"
 66 176179b2 2021-10-04 op 	root "$PWD/testdata"
 67 176179b2 2021-10-04 op 	$2
 68 176179b2 2021-10-04 op }
 69 176179b2 2021-10-04 op EOF
 70 176179b2 2021-10-04 op 	if ! checkconf; then
 71 176179b2 2021-10-04 op 		echo "failed to parse the config" >&2
 72 176179b2 2021-10-04 op 		return 1
 73 176179b2 2021-10-04 op 	fi
 74 176179b2 2021-10-04 op }
 75 176179b2 2021-10-04 op 
 76 92a9f41d 2022-01-03 op set_proxy() {
 77 92a9f41d 2022-01-03 op 	cat <<EOF >>reg.conf
 78 92a9f41d 2022-01-03 op server "localhost.local" {
 79 92a9f41d 2022-01-03 op 	cert "$PWD/cert.pem"
 80 92a9f41d 2022-01-03 op 	key "$PWD/key.pem"
 81 92a9f41d 2022-01-03 op 	proxy {
 82 92a9f41d 2022-01-03 op 		relay-to "localhost:$port"
 83 92a9f41d 2022-01-03 op 		$1
 84 92a9f41d 2022-01-03 op 	}
 85 92a9f41d 2022-01-03 op }
 86 92a9f41d 2022-01-03 op EOF
 87 92a9f41d 2022-01-03 op 
 88 92a9f41d 2022-01-03 op 	if ! checkconf; then
 89 92a9f41d 2022-01-03 op 		echo "failed to parse the config" >&2
 90 92a9f41d 2022-01-03 op 		return 1
 91 92a9f41d 2022-01-03 op 	fi
 92 92a9f41d 2022-01-03 op }
 93 92a9f41d 2022-01-03 op 
 94 176179b2 2021-10-04 op checkconf() {
 95 aae8f6bf 2022-09-08 op 	if ! $gmid -n -f reg.conf >/dev/null 2>&1; then
 96 aae8f6bf 2022-09-08 op 		$gmid -n -f reg.conf
 97 dd208aa2 2022-01-03 op 	fi
 98 176179b2 2021-10-04 op }
 99 176179b2 2021-10-04 op 
100 176179b2 2021-10-04 op # usage: setup_simple_test <global config> <server config>
101 176179b2 2021-10-04 op # generates a configuration file with `gen_config', validates it and
102 176179b2 2021-10-04 op # launches the daemon
103 176179b2 2021-10-04 op setup_simple_test() {
104 176179b2 2021-10-04 op 	gen_config "$1" "$2"
105 176179b2 2021-10-04 op 	run
106 176179b2 2021-10-04 op }
107 176179b2 2021-10-04 op 
108 176179b2 2021-10-04 op # usage: get <path>
109 176179b2 2021-10-04 op # return the body of the request on stdout
110 176179b2 2021-10-04 op get() {
111 7a4ae106 2021-12-29 op 	$gg -T10 $ggflags "gemini://localhost:10965/$1" || true
112 176179b2 2021-10-04 op }
113 176179b2 2021-10-04 op 
114 176179b2 2021-10-04 op # usage: head <path>
115 176179b2 2021-10-04 op # return the meta response line on stdout
116 176179b2 2021-10-04 op head() {
117 7a4ae106 2021-12-29 op 	$gg -T10 -d header $ggflags "gemini://localhost:10965/$1" || true
118 176179b2 2021-10-04 op }
119 176179b2 2021-10-04 op 
120 176179b2 2021-10-04 op # usage: fetch <path>
121 176179b2 2021-10-04 op # fetches the header and the body.  They're returned in $hdr and
122 176179b2 2021-10-04 op # $body.
123 176179b2 2021-10-04 op fetch() {
124 176179b2 2021-10-04 op 	if ! hdr="$(head $1)" || ! body="$(get $1)"; then
125 176179b2 2021-10-04 op 		return 1
126 176179b2 2021-10-04 op 	fi
127 176179b2 2021-10-04 op }
128 176179b2 2021-10-04 op 
129 176179b2 2021-10-04 op # usage: fetch_hdr <path>
130 176179b2 2021-10-04 op # fetches the header into $hdr
131 176179b2 2021-10-04 op fetch_hdr() {
132 176179b2 2021-10-04 op 	hdr="$(head $1)"
133 176179b2 2021-10-04 op 	body=""
134 176179b2 2021-10-04 op }
135 176179b2 2021-10-04 op 
136 176179b2 2021-10-04 op # usage: check_reply header body
137 176179b2 2021-10-04 op # checks that $hdr and $body are equal to the given strings
138 176179b2 2021-10-04 op check_reply() {
139 176179b2 2021-10-04 op 	if [ "$hdr" != "$1" ]; then
140 176179b2 2021-10-04 op 		echo "Header mismatch" >&2
141 176179b2 2021-10-04 op 		echo "wants : $1"      >&2
142 176179b2 2021-10-04 op 		echo "got   : $hdr"    >&2
143 176179b2 2021-10-04 op 		return 1
144 176179b2 2021-10-04 op 	fi
145 176179b2 2021-10-04 op 
146 176179b2 2021-10-04 op 	if [ "$body" != "$2" ]; then
147 176179b2 2021-10-04 op 		echo "Body mismatch" >&2
148 ce09569f 2021-12-29 op 		echo "wants : $2"    >&2
149 176179b2 2021-10-04 op 		echo "got   : $body" >&2
150 176179b2 2021-10-04 op 		return 1
151 176179b2 2021-10-04 op 	fi
152 176179b2 2021-10-04 op }
153 176179b2 2021-10-04 op 
154 176179b2 2021-10-04 op run() {
155 176179b2 2021-10-04 op 	if check; then
156 176179b2 2021-10-04 op 		kill -HUP "$(cat gmid.pid)"
157 176179b2 2021-10-04 op 		sleep 1
158 176179b2 2021-10-04 op 		return
159 176179b2 2021-10-04 op 	fi
160 176179b2 2021-10-04 op 
161 aae8f6bf 2022-09-08 op 	$gmid -P gmid.pid -f reg.conf
162 176179b2 2021-10-04 op 
163 176179b2 2021-10-04 op 	# give gmid time to bind the port, otherwise we end up
164 176179b2 2021-10-04 op 	# executing gg when gmid isn't ready yet.
165 176179b2 2021-10-04 op 	sleep 1
166 176179b2 2021-10-04 op }
167 176179b2 2021-10-04 op 
168 176179b2 2021-10-04 op check() {
169 176179b2 2021-10-04 op 	if [ ! -f gmid.pid ]; then
170 176179b2 2021-10-04 op 		return 1
171 176179b2 2021-10-04 op 	fi
172 176179b2 2021-10-04 op 
173 176179b2 2021-10-04 op 	pid="$(cat gmid.pid || true)"
174 5266f500 2022-01-30 op 	if [ "$pid" = "" ]; then
175 176179b2 2021-10-04 op 		return 1
176 176179b2 2021-10-04 op 	fi
177 176179b2 2021-10-04 op 
178 176179b2 2021-10-04 op 	# remember: we're running under ``set -e''
179 176179b2 2021-10-04 op 	if ps $pid >/dev/null; then
180 176179b2 2021-10-04 op 		return 0
181 176179b2 2021-10-04 op 	fi
182 176179b2 2021-10-04 op 
183 176179b2 2021-10-04 op 	return 1
184 176179b2 2021-10-04 op }
185 176179b2 2021-10-04 op 
186 176179b2 2021-10-04 op count() {
187 176179b2 2021-10-04 op 	wc -l | xargs
188 176179b2 2021-10-04 op }
189 176179b2 2021-10-04 op 
190 176179b2 2021-10-04 op quit() {
191 176179b2 2021-10-04 op 	pid="$(cat gmid.pid || true)"
192 176179b2 2021-10-04 op 	if [ "$pid" != "" ]; then
193 176179b2 2021-10-04 op 		kill $pid || true
194 176179b2 2021-10-04 op 		wait || true
195 176179b2 2021-10-04 op 	fi
196 176179b2 2021-10-04 op }
197 176179b2 2021-10-04 op 
198 176179b2 2021-10-04 op onexit() {
199 176179b2 2021-10-04 op 	rm -f bigfile bigfile.sha
200 176179b2 2021-10-04 op 	quit
201 176179b2 2021-10-04 op }