[thirdparty/git.git] / t / lib-httpd.sh

# Shell library to run an HTTP server for use in tests.
# Ends the test early if httpd tests should not be run,
# for example because the user has not enabled them.
#
# Usage:
#
#	. ./test-lib.sh
#	. "$TEST_DIRECTORY"/lib-httpd.sh
#	start_httpd
#
#	test_expect_success '...' '
#		...
#	'
#
#	test_expect_success ...
#
#	test_done
#
# Can be configured using the following variables.
#
#    GIT_TEST_HTTPD              enable HTTPD tests
#    LIB_HTTPD_PATH              web server path
#    LIB_HTTPD_MODULE_PATH       web server modules path
#    LIB_HTTPD_PORT              listening port
#    LIB_HTTPD_DAV               enable DAV
#    LIB_HTTPD_SVN               enable SVN at given location (e.g. "svn")
#    LIB_HTTPD_SSL               enable SSL
#
# Copyright (c) 2008 Clemens Buchacher <drizzd@aon.at>
#

if test -n "$NO_CURL"
then
	skip_all='skipping test, git built without http support'
	test_done
fi

if test -n "$NO_EXPAT" && test -n "$LIB_HTTPD_DAV"
then
	skip_all='skipping test, git built without expat support'
	test_done
fi

if ! test_bool_env GIT_TEST_HTTPD true
then
	skip_all="Network testing disabled (unset GIT_TEST_HTTPD to enable)"
	test_done
fi

if ! test_have_prereq NOT_ROOT; then
	test_skip_or_die GIT_TEST_HTTPD \
		"Cannot run httpd tests as root"
fi

HTTPD_PARA=""

for DEFAULT_HTTPD_PATH in '/usr/sbin/httpd' '/usr/sbin/apache2'
do
	if test -x "$DEFAULT_HTTPD_PATH"
	then
		break
	fi
done

for DEFAULT_HTTPD_MODULE_PATH in '/usr/libexec/apache2' \
				 '/usr/lib/apache2/modules' \
				 '/usr/lib64/httpd/modules' \
				 '/usr/lib/httpd/modules'
do
	if test -d "$DEFAULT_HTTPD_MODULE_PATH"
	then
		break
	fi
done

case $(uname) in
	Darwin)
		HTTPD_PARA="$HTTPD_PARA -DDarwin"
	;;
esac

LIB_HTTPD_PATH=${LIB_HTTPD_PATH-"$DEFAULT_HTTPD_PATH"}
test_set_port LIB_HTTPD_PORT

TEST_PATH="$TEST_DIRECTORY"/lib-httpd
HTTPD_ROOT_PATH="$PWD"/httpd
HTTPD_DOCUMENT_ROOT_PATH=$HTTPD_ROOT_PATH/www

# hack to suppress apache PassEnv warnings
GIT_VALGRIND=$GIT_VALGRIND; export GIT_VALGRIND
GIT_VALGRIND_OPTIONS=$GIT_VALGRIND_OPTIONS; export GIT_VALGRIND_OPTIONS
GIT_TEST_SIDEBAND_ALL=$GIT_TEST_SIDEBAND_ALL; export GIT_TEST_SIDEBAND_ALL
GIT_TRACE=$GIT_TRACE; export GIT_TRACE

if ! test -x "$LIB_HTTPD_PATH"
then
	test_skip_or_die GIT_TEST_HTTPD "no web server found at '$LIB_HTTPD_PATH'"
fi

HTTPD_VERSION=$($LIB_HTTPD_PATH -v | \
	sed -n 's/^Server version: Apache\/\([0-9]*\)\..*$/\1/p; q')

if test -n "$HTTPD_VERSION"
then
	if test -z "$LIB_HTTPD_MODULE_PATH"
	then
		if ! test $HTTPD_VERSION -ge 2
		then
			test_skip_or_die GIT_TEST_HTTPD \
				"at least Apache version 2 is required"
		fi
		if ! test -d "$DEFAULT_HTTPD_MODULE_PATH"
		then
			test_skip_or_die GIT_TEST_HTTPD \
				"Apache module directory not found"
		fi

		LIB_HTTPD_MODULE_PATH="$DEFAULT_HTTPD_MODULE_PATH"
	fi
else
	test_skip_or_die GIT_TEST_HTTPD \
		"Could not identify web server at '$LIB_HTTPD_PATH'"
fi

install_script () {
	write_script "$HTTPD_ROOT_PATH/$1" <"$TEST_PATH/$1"
}

prepare_httpd() {
	mkdir -p "$HTTPD_DOCUMENT_ROOT_PATH"
	cp "$TEST_PATH"/passwd "$HTTPD_ROOT_PATH"
	install_script incomplete-length-upload-pack-v2-http.sh
	install_script incomplete-body-upload-pack-v2-http.sh
	install_script broken-smart-http.sh
	install_script error-smart-http.sh
	install_script error.sh
	install_script apply-one-time-perl.sh

	ln -s "$LIB_HTTPD_MODULE_PATH" "$HTTPD_ROOT_PATH/modules"

	if test -n "$LIB_HTTPD_SSL"
	then
		HTTPD_PROTO=https

		RANDFILE_PATH="$HTTPD_ROOT_PATH"/.rnd openssl req \
			-config "$TEST_PATH/ssl.cnf" \
			-new -x509 -nodes \
			-out "$HTTPD_ROOT_PATH/httpd.pem" \
			-keyout "$HTTPD_ROOT_PATH/httpd.pem"
		GIT_SSL_NO_VERIFY=t
		export GIT_SSL_NO_VERIFY
		HTTPD_PARA="$HTTPD_PARA -DSSL"
	else
		HTTPD_PROTO=http
	fi
	HTTPD_DEST=127.0.0.1:$LIB_HTTPD_PORT
	HTTPD_URL=$HTTPD_PROTO://$HTTPD_DEST
	HTTPD_URL_USER=$HTTPD_PROTO://user%40host@$HTTPD_DEST
	HTTPD_URL_USER_PASS=$HTTPD_PROTO://user%40host:pass%40host@$HTTPD_DEST

	if test -n "$LIB_HTTPD_DAV" || test -n "$LIB_HTTPD_SVN"
	then
		HTTPD_PARA="$HTTPD_PARA -DDAV"

		if test -n "$LIB_HTTPD_SVN"
		then
			HTTPD_PARA="$HTTPD_PARA -DSVN"
			LIB_HTTPD_SVNPATH="$rawsvnrepo"
			svnrepo="http://127.0.0.1:$LIB_HTTPD_PORT/"
			svnrepo="$svnrepo$LIB_HTTPD_SVN"
			export LIB_HTTPD_SVN LIB_HTTPD_SVNPATH
		fi
	fi
}

start_httpd() {
	prepare_httpd >&3 2>&4

	test_atexit stop_httpd

	"$LIB_HTTPD_PATH" -d "$HTTPD_ROOT_PATH" \
		-f "$TEST_PATH/apache.conf" $HTTPD_PARA \
		-c "Listen 127.0.0.1:$LIB_HTTPD_PORT" -k start \
		>&3 2>&4
	if test $? -ne 0
	then
		cat "$HTTPD_ROOT_PATH"/error.log >&4 2>/dev/null
		test_skip_or_die GIT_TEST_HTTPD "web server setup failed"
	fi
}

stop_httpd() {
	"$LIB_HTTPD_PATH" -d "$HTTPD_ROOT_PATH" \
		-f "$TEST_PATH/apache.conf" $HTTPD_PARA -k stop
}

test_http_push_nonff () {
	REMOTE_REPO=$1
	LOCAL_REPO=$2
	BRANCH=$3
	EXPECT_CAS_RESULT=${4-failure}

	test_expect_success 'non-fast-forward push fails' '
		cd "$REMOTE_REPO" &&
		HEAD=$(git rev-parse --verify HEAD) &&

		cd "$LOCAL_REPO" &&
		git checkout $BRANCH &&
		echo "changed" > path2 &&
		git commit -a -m path2 --amend &&

		test_must_fail git push -v origin >output 2>&1 &&
		(cd "$REMOTE_REPO" &&
		 test $HEAD = $(git rev-parse --verify HEAD))
	'

	test_expect_success 'non-fast-forward push show ref status' '
		grep "^ ! \[rejected\][ ]*$BRANCH -> $BRANCH (non-fast-forward)$" output
	'

	test_expect_success 'non-fast-forward push shows help message' '
		test_i18ngrep "Updates were rejected because" output
	'

	test_expect_${EXPECT_CAS_RESULT} 'force with lease aka cas' '
		HEAD=$(	cd "$REMOTE_REPO" && git rev-parse --verify HEAD ) &&
		test_when_finished '\''
			(cd "$REMOTE_REPO" && git update-ref HEAD "$HEAD")
		'\'' &&
		(
			cd "$LOCAL_REPO" &&
			git push -v --force-with-lease=$BRANCH:$HEAD origin
		) &&
		git rev-parse --verify "$BRANCH" >expect &&
		(
			cd "$REMOTE_REPO" && git rev-parse --verify HEAD
		) >actual &&
		test_cmp expect actual
	'
}

setup_askpass_helper() {
	test_expect_success 'setup askpass helper' '
		write_script "$TRASH_DIRECTORY/askpass" <<-\EOF &&
		echo >>"$TRASH_DIRECTORY/askpass-query" "askpass: $*" &&
		case "$*" in
		*Username*)
			what=user
			;;
		*Password*)
			what=pass
			;;
		esac &&
		cat "$TRASH_DIRECTORY/askpass-$what"
		EOF
		GIT_ASKPASS="$TRASH_DIRECTORY/askpass" &&
		export GIT_ASKPASS &&
		export TRASH_DIRECTORY
	'
}

set_askpass() {
	>"$TRASH_DIRECTORY/askpass-query" &&
	echo "$1" >"$TRASH_DIRECTORY/askpass-user" &&
	echo "$2" >"$TRASH_DIRECTORY/askpass-pass"
}

expect_askpass() {
	dest=$HTTPD_DEST${3+/$3}

	{
		case "$1" in
		none)
			;;
		pass)
			echo "askpass: Password for 'http://$2@$dest': "
			;;
		both)
			echo "askpass: Username for 'http://$dest': "
			echo "askpass: Password for 'http://$2@$dest': "
			;;
		*)
			false
			;;
		esac
	} >"$TRASH_DIRECTORY/askpass-expect" &&
	test_cmp "$TRASH_DIRECTORY/askpass-expect" \
		 "$TRASH_DIRECTORY/askpass-query"
}

strip_access_log() {
	sed -e "
		s/^.* \"//
		s/\"//
		s/ [1-9][0-9]*\$//
		s/^GET /GET  /
	" "$HTTPD_ROOT_PATH"/access.log
}

# Requires one argument: the name of a file containing the expected stripped
# access log entries.
check_access_log() {
	sort "$1" >"$1".sorted &&
	strip_access_log >access.log.stripped &&
	sort access.log.stripped >access.log.sorted &&
	if ! test_cmp "$1".sorted access.log.sorted
	then
		test_cmp "$1" access.log.stripped
	fi
}
Commit	Line	Data
c74c7203 JN	1	# Shell library to run an HTTP server for use in tests.
	2	# Ends the test early if httpd tests should not be run,
	3	# for example because the user has not enabled them.
	4	#
	5	# Usage:
	6	#
	7	# . ./test-lib.sh
	8	# . "$TEST_DIRECTORY"/lib-httpd.sh
	9	# start_httpd
	10	#
	11	# test_expect_success '...' '
	12	# ...
	13	# '
	14	#
	15	# test_expect_success ...
	16	#
c74c7203 JN	17	# test_done
	18	#
	19	# Can be configured using the following variables.
	20	#
	21	# GIT_TEST_HTTPD enable HTTPD tests
	22	# LIB_HTTPD_PATH web server path
	23	# LIB_HTTPD_MODULE_PATH web server modules path
	24	# LIB_HTTPD_PORT listening port
	25	# LIB_HTTPD_DAV enable DAV
a8a5d251	26	# LIB_HTTPD_SVN enable SVN at given location (e.g. "svn")
c74c7203	27	# LIB_HTTPD_SSL enable SSL
faa4bc35 CB	28	#
	29	# Copyright (c) 2008 Clemens Buchacher <drizzd@aon.at>
	30	#
	31
c9d441a8 JK	32	if test -n "$NO_CURL"
	33	then
	34	skip_all='skipping test, git built without http support'
	35	test_done
	36	fi
	37
309a9e33 JH	38	if test -n "$NO_EXPAT" && test -n "$LIB_HTTPD_DAV"
	39	then
	40	skip_all='skipping test, git built without expat support'
	41	test_done
	42	fi
	43
43a2afee	44	if ! test_bool_env GIT_TEST_HTTPD true
faa4bc35	45	then
83d842dc	46	skip_all="Network testing disabled (unset GIT_TEST_HTTPD to enable)"
faa4bc35	47	test_done
faa4bc35 CB	48	fi
faa4bc35 CB	49
1767c517	50	if ! test_have_prereq NOT_ROOT; then
3b072c57	51	test_skip_or_die GIT_TEST_HTTPD \
a1a30111 JK	52	"Cannot run httpd tests as root"
	53	fi
	54
69707d61 JS	55	HTTPD_PARA=""
69707d61 JS	56
0d344738 TC	57	for DEFAULT_HTTPD_PATH in '/usr/sbin/httpd' '/usr/sbin/apache2'
	58	do
	59	if test -x "$DEFAULT_HTTPD_PATH"
	60	then
	61	break
	62	fi
	63	done
	64
	65	for DEFAULT_HTTPD_MODULE_PATH in '/usr/libexec/apache2' \
	66	'/usr/lib/apache2/modules' \
	67	'/usr/lib64/httpd/modules' \
	68	'/usr/lib/httpd/modules'
	69	do
	70	if test -d "$DEFAULT_HTTPD_MODULE_PATH"
	71	then
	72	break
	73	fi
	74	done
	75
69707d61 JS	76	case $(uname) in
69707d61 JS	77	Darwin)
69707d61 JS	78	HTTPD_PARA="$HTTPD_PARA -DDarwin"
69707d61 JS	79	;;
69707d61 JS	80	esac
	81
	82	LIB_HTTPD_PATH=${LIB_HTTPD_PATH-"$DEFAULT_HTTPD_PATH"}
fa840581	83	test_set_port LIB_HTTPD_PORT
faa4bc35	84
bfdbee98	85	TEST_PATH="$TEST_DIRECTORY"/lib-httpd
faa4bc35 CB	86	HTTPD_ROOT_PATH="$PWD"/httpd
	87	HTTPD_DOCUMENT_ROOT_PATH=$HTTPD_ROOT_PATH/www
	88
f6288254 JK	89	# hack to suppress apache PassEnv warnings
	90	GIT_VALGRIND=$GIT_VALGRIND; export GIT_VALGRIND
	91	GIT_VALGRIND_OPTIONS=$GIT_VALGRIND_OPTIONS; export GIT_VALGRIND_OPTIONS
e18edc76	92	GIT_TEST_SIDEBAND_ALL=$GIT_TEST_SIDEBAND_ALL; export GIT_TEST_SIDEBAND_ALL
89c57ab3	93	GIT_TRACE=$GIT_TRACE; export GIT_TRACE
f6288254	94
faa4bc35 CB	95	if ! test -x "$LIB_HTTPD_PATH"
faa4bc35 CB	96	then
3b072c57	97	test_skip_or_die GIT_TEST_HTTPD "no web server found at '$LIB_HTTPD_PATH'"
faa4bc35 CB	98	fi
faa4bc35 CB	99
e429dfd5 EP	100	HTTPD_VERSION=$($LIB_HTTPD_PATH -v \| \
e429dfd5 EP	101	sed -n 's/^Server version: Apache\/\([0-9]\)\..$/\1/p; q')
faa4bc35 CB	102
	103	if test -n "$HTTPD_VERSION"
	104	then
	105	if test -z "$LIB_HTTPD_MODULE_PATH"
	106	then
	107	if ! test $HTTPD_VERSION -ge 2
	108	then
3b072c57	109	test_skip_or_die GIT_TEST_HTTPD \
83d842dc	110	"at least Apache version 2 is required"
faa4bc35	111	fi
0d344738 TC	112	if ! test -d "$DEFAULT_HTTPD_MODULE_PATH"
0d344738 TC	113	then
3b072c57	114	test_skip_or_die GIT_TEST_HTTPD \
83d842dc	115	"Apache module directory not found"
0d344738	116	fi
faa4bc35	117
69707d61	118	LIB_HTTPD_MODULE_PATH="$DEFAULT_HTTPD_MODULE_PATH"
faa4bc35 CB	119	fi
faa4bc35 CB	120	else
3b072c57	121	test_skip_or_die GIT_TEST_HTTPD \
83d842dc	122	"Could not identify web server at '$LIB_HTTPD_PATH'"
faa4bc35 CB	123	fi
faa4bc35 CB	124
c7db2d16 JK	125	install_script () {
	126	write_script "$HTTPD_ROOT_PATH/$1" <"$TEST_PATH/$1"
	127	}
	128
faa4bc35	129	prepare_httpd() {
13b5481e	130	mkdir -p "$HTTPD_DOCUMENT_ROOT_PATH"
3cf8fe1d	131	cp "$TEST_PATH"/passwd "$HTTPD_ROOT_PATH"
74b082ad DL	132	install_script incomplete-length-upload-pack-v2-http.sh
74b082ad DL	133	install_script incomplete-body-upload-pack-v2-http.sh
c7db2d16	134	install_script broken-smart-http.sh
30dea565	135	install_script error-smart-http.sh
dbcf2bd3	136	install_script error.sh
eafff6e4	137	install_script apply-one-time-perl.sh
faa4bc35	138
13b5481e	139	ln -s "$LIB_HTTPD_MODULE_PATH" "$HTTPD_ROOT_PATH/modules"
faa4bc35 CB	140
	141	if test -n "$LIB_HTTPD_SSL"
	142	then
5232586c	143	HTTPD_PROTO=https
faa4bc35 CB	144
faa4bc35 CB	145	RANDFILE_PATH="$HTTPD_ROOT_PATH"/.rnd openssl req \
13b5481e	146	-config "$TEST_PATH/ssl.cnf" \
faa4bc35	147	-new -x509 -nodes \
13b5481e MH	148	-out "$HTTPD_ROOT_PATH/httpd.pem" \
13b5481e MH	149	-keyout "$HTTPD_ROOT_PATH/httpd.pem"
0e46e704 BD	150	GIT_SSL_NO_VERIFY=t
0e46e704 BD	151	export GIT_SSL_NO_VERIFY
faa4bc35 CB	152	HTTPD_PARA="$HTTPD_PARA -DSSL"
faa4bc35 CB	153	else
5232586c	154	HTTPD_PROTO=http
faa4bc35	155	fi
5232586c JK	156	HTTPD_DEST=127.0.0.1:$LIB_HTTPD_PORT
	157	HTTPD_URL=$HTTPD_PROTO://$HTTPD_DEST
	158	HTTPD_URL_USER=$HTTPD_PROTO://user%40host@$HTTPD_DEST
afbf5ca5	159	HTTPD_URL_USER_PASS=$HTTPD_PROTO://user%40host:pass%40host@$HTTPD_DEST
faa4bc35	160
ce5dadb6	161	if test -n "$LIB_HTTPD_DAV" \|\| test -n "$LIB_HTTPD_SVN"
faa4bc35 CB	162	then
	163	HTTPD_PARA="$HTTPD_PARA -DDAV"
	164
	165	if test -n "$LIB_HTTPD_SVN"
	166	then
	167	HTTPD_PARA="$HTTPD_PARA -DSVN"
a8a5d251 EW	168	LIB_HTTPD_SVNPATH="$rawsvnrepo"
	169	svnrepo="http://127.0.0.1:$LIB_HTTPD_PORT/"
	170	svnrepo="$svnrepo$LIB_HTTPD_SVN"
	171	export LIB_HTTPD_SVN LIB_HTTPD_SVNPATH
faa4bc35 CB	172	fi
	173	fi
	174	}
	175
	176	start_httpd() {
75318a3b	177	prepare_httpd >&3 2>&4
faa4bc35	178
8c3b9f7f	179	test_atexit stop_httpd
faa4bc35	180
13b5481e MH	181	"$LIB_HTTPD_PATH" -d "$HTTPD_ROOT_PATH" \
13b5481e MH	182	-f "$TEST_PATH/apache.conf" $HTTPD_PARA \
75318a3b JK	183	-c "Listen 127.0.0.1:$LIB_HTTPD_PORT" -k start \
75318a3b JK	184	>&3 2>&4
a5adcbe3 CB	185	if test $? -ne 0
a5adcbe3 CB	186	then
44f243d3	187	cat "$HTTPD_ROOT_PATH"/error.log >&4 2>/dev/null
3b072c57	188	test_skip_or_die GIT_TEST_HTTPD "web server setup failed"
75318a3b	189	fi
faa4bc35 CB	190	}
	191
	192	stop_httpd() {
13b5481e	193	"$LIB_HTTPD_PATH" -d "$HTTPD_ROOT_PATH" \
69707d61	194	-f "$TEST_PATH/apache.conf" $HTTPD_PARA -k stop
faa4bc35	195	}
6cbd6e92	196
05c1eb10	197	test_http_push_nonff () {
6cbd6e92 TRC	198	REMOTE_REPO=$1
	199	LOCAL_REPO=$2
	200	BRANCH=$3
05c1eb10	201	EXPECT_CAS_RESULT=${4-failure}
6cbd6e92 TRC	202
	203	test_expect_success 'non-fast-forward push fails' '
	204	cd "$REMOTE_REPO" &&
	205	HEAD=$(git rev-parse --verify HEAD) &&
	206
	207	cd "$LOCAL_REPO" &&
	208	git checkout $BRANCH &&
	209	echo "changed" > path2 &&
	210	git commit -a -m path2 --amend &&
	211
77b5be2a	212	test_must_fail git push -v origin >output 2>&1 &&
6cbd6e92 TRC	213	(cd "$REMOTE_REPO" &&
	214	test $HEAD = $(git rev-parse --verify HEAD))
	215	'
	216
	217	test_expect_success 'non-fast-forward push show ref status' '
	218	grep "^ ! \[rejected\][ ]*$BRANCH -> $BRANCH (non-fast-forward)$" output
	219	'
	220
d3bd0425	221	test_expect_success 'non-fast-forward push shows help message' '
0aff719f	222	test_i18ngrep "Updates were rejected because" output
6cbd6e92	223	'
e69fa70f	224
42aa29ee	225	test_expect_${EXPECT_CAS_RESULT} 'force with lease aka cas' '
e69fa70f JH	226	HEAD=$( cd "$REMOTE_REPO" && git rev-parse --verify HEAD ) &&
	227	test_when_finished '\''
	228	(cd "$REMOTE_REPO" && git update-ref HEAD "$HEAD")
	229	'\'' &&
	230	(
	231	cd "$LOCAL_REPO" &&
	232	git push -v --force-with-lease=$BRANCH:$HEAD origin
	233	) &&
	234	git rev-parse --verify "$BRANCH" >expect &&
	235	(
	236	cd "$REMOTE_REPO" && git rev-parse --verify HEAD
	237	) >actual &&
	238	test_cmp expect actual
	239	'
6cbd6e92	240	}
e837936c JK	241
	242	setup_askpass_helper() {
	243	test_expect_success 'setup askpass helper' '
	244	write_script "$TRASH_DIRECTORY/askpass" <<-\EOF &&
	245	echo >>"$TRASH_DIRECTORY/askpass-query" "askpass: $*" &&
afbf5ca5 JK	246	case "$*" in
	247	Username)
	248	what=user
	249	;;
	250	Password)
	251	what=pass
	252	;;
	253	esac &&
	254	cat "$TRASH_DIRECTORY/askpass-$what"
e837936c JK	255	EOF
	256	GIT_ASKPASS="$TRASH_DIRECTORY/askpass" &&
	257	export GIT_ASKPASS &&
	258	export TRASH_DIRECTORY
	259	'
	260	}
	261
	262	set_askpass() {
	263	>"$TRASH_DIRECTORY/askpass-query" &&
afbf5ca5 JK	264	echo "$1" >"$TRASH_DIRECTORY/askpass-user" &&
afbf5ca5 JK	265	echo "$2" >"$TRASH_DIRECTORY/askpass-pass"
e837936c JK	266	}
	267
	268	expect_askpass() {
050ef365 JK	269	dest=$HTTPD_DEST${3+/$3}
050ef365 JK	270
e837936c JK	271	{
	272	case "$1" in
	273	none)
	274	;;
	275	pass)
	276	echo "askpass: Password for 'http://$2@$dest': "
	277	;;
	278	both)
	279	echo "askpass: Username for 'http://$dest': "
	280	echo "askpass: Password for 'http://$2@$dest': "
	281	;;
	282	*)
	283	false
	284	;;
	285	esac
	286	} >"$TRASH_DIRECTORY/askpass-expect" &&
	287	test_cmp "$TRASH_DIRECTORY/askpass-expect" \
	288	"$TRASH_DIRECTORY/askpass-query"
	289	}
6940a060 SG	290
	291	strip_access_log() {
	292	sed -e "
	293	s/^.* \"//
	294	s/\"//
	295	s/ [1-9][0-9]*\$//
	296	s/^GET /GET /
	297	" "$HTTPD_ROOT_PATH"/access.log
	298	}
e8b3b2e2 SG	299
	300	# Requires one argument: the name of a file containing the expected stripped
	301	# access log entries.
	302	check_access_log() {
	303	sort "$1" >"$1".sorted &&
	304	strip_access_log >access.log.stripped &&
	305	sort access.log.stripped >access.log.sorted &&
	306	if ! test_cmp "$1".sorted access.log.sorted
	307	then
	308	test_cmp "$1" access.log.stripped
	309	fi
	310	}