[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 ...
#
#	stop_httpd
#	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

test_tristate GIT_TEST_HTTPD
if test "$GIT_TEST_HTTPD" = false
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 broken-smart-http.sh
	install_script error-smart-http.sh
	install_script error.sh
	install_script apply-one-time-sed.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

	trap 'code=$?; stop_httpd; (exit $code); die' EXIT

	"$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
		trap 'die' EXIT
		cat "$HTTPD_ROOT_PATH"/error.log >&4 2>/dev/null
		test_skip_or_die $GIT_TEST_HTTPD "web server setup failed"
	fi
}

stop_httpd() {
	trap 'die' EXIT

	"$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	#
	17	# stop_httpd
	18	# test_done
	19	#
	20	# Can be configured using the following variables.
	21	#
	22	# GIT_TEST_HTTPD enable HTTPD tests
	23	# LIB_HTTPD_PATH web server path
	24	# LIB_HTTPD_MODULE_PATH web server modules path
	25	# LIB_HTTPD_PORT listening port
	26	# LIB_HTTPD_DAV enable DAV
a8a5d251	27	# LIB_HTTPD_SVN enable SVN at given location (e.g. "svn")
c74c7203	28	# LIB_HTTPD_SSL enable SSL
faa4bc35 CB	29	#
	30	# Copyright (c) 2008 Clemens Buchacher <drizzd@aon.at>
	31	#
	32
c9d441a8 JK	33	if test -n "$NO_CURL"
	34	then
	35	skip_all='skipping test, git built without http support'
	36	test_done
	37	fi
	38
309a9e33 JH	39	if test -n "$NO_EXPAT" && test -n "$LIB_HTTPD_DAV"
	40	then
	41	skip_all='skipping test, git built without expat support'
	42	test_done
	43	fi
	44
83d842dc JK	45	test_tristate GIT_TEST_HTTPD
83d842dc JK	46	if test "$GIT_TEST_HTTPD" = false
faa4bc35	47	then
83d842dc	48	skip_all="Network testing disabled (unset GIT_TEST_HTTPD to enable)"
faa4bc35	49	test_done
faa4bc35 CB	50	fi
faa4bc35 CB	51
1767c517	52	if ! test_have_prereq NOT_ROOT; then
a1a30111 JK	53	test_skip_or_die $GIT_TEST_HTTPD \
	54	"Cannot run httpd tests as root"
	55	fi
	56
69707d61 JS	57	HTTPD_PARA=""
69707d61 JS	58
0d344738 TC	59	for DEFAULT_HTTPD_PATH in '/usr/sbin/httpd' '/usr/sbin/apache2'
	60	do
	61	if test -x "$DEFAULT_HTTPD_PATH"
	62	then
	63	break
	64	fi
	65	done
	66
	67	for DEFAULT_HTTPD_MODULE_PATH in '/usr/libexec/apache2' \
	68	'/usr/lib/apache2/modules' \
	69	'/usr/lib64/httpd/modules' \
	70	'/usr/lib/httpd/modules'
	71	do
	72	if test -d "$DEFAULT_HTTPD_MODULE_PATH"
	73	then
	74	break
	75	fi
	76	done
	77
69707d61 JS	78	case $(uname) in
69707d61 JS	79	Darwin)
69707d61 JS	80	HTTPD_PARA="$HTTPD_PARA -DDarwin"
69707d61 JS	81	;;
69707d61 JS	82	esac
	83
	84	LIB_HTTPD_PATH=${LIB_HTTPD_PATH-"$DEFAULT_HTTPD_PATH"}
fa840581	85	test_set_port LIB_HTTPD_PORT
faa4bc35	86
bfdbee98	87	TEST_PATH="$TEST_DIRECTORY"/lib-httpd
faa4bc35 CB	88	HTTPD_ROOT_PATH="$PWD"/httpd
	89	HTTPD_DOCUMENT_ROOT_PATH=$HTTPD_ROOT_PATH/www
	90
f6288254 JK	91	# hack to suppress apache PassEnv warnings
	92	GIT_VALGRIND=$GIT_VALGRIND; export GIT_VALGRIND
	93	GIT_VALGRIND_OPTIONS=$GIT_VALGRIND_OPTIONS; export GIT_VALGRIND_OPTIONS
e18edc76	94	GIT_TEST_SIDEBAND_ALL=$GIT_TEST_SIDEBAND_ALL; export GIT_TEST_SIDEBAND_ALL
89c57ab3	95	GIT_TRACE=$GIT_TRACE; export GIT_TRACE
f6288254	96
faa4bc35 CB	97	if ! test -x "$LIB_HTTPD_PATH"
faa4bc35 CB	98	then
83d842dc	99	test_skip_or_die $GIT_TEST_HTTPD "no web server found at '$LIB_HTTPD_PATH'"
faa4bc35 CB	100	fi
faa4bc35 CB	101
e429dfd5 EP	102	HTTPD_VERSION=$($LIB_HTTPD_PATH -v \| \
e429dfd5 EP	103	sed -n 's/^Server version: Apache\/\([0-9]\)\..$/\1/p; q')
faa4bc35 CB	104
	105	if test -n "$HTTPD_VERSION"
	106	then
	107	if test -z "$LIB_HTTPD_MODULE_PATH"
	108	then
	109	if ! test $HTTPD_VERSION -ge 2
	110	then
83d842dc JK	111	test_skip_or_die $GIT_TEST_HTTPD \
83d842dc JK	112	"at least Apache version 2 is required"
faa4bc35	113	fi
0d344738 TC	114	if ! test -d "$DEFAULT_HTTPD_MODULE_PATH"
0d344738 TC	115	then
83d842dc JK	116	test_skip_or_die $GIT_TEST_HTTPD \
83d842dc JK	117	"Apache module directory not found"
0d344738	118	fi
faa4bc35	119
69707d61	120	LIB_HTTPD_MODULE_PATH="$DEFAULT_HTTPD_MODULE_PATH"
faa4bc35 CB	121	fi
faa4bc35 CB	122	else
83d842dc JK	123	test_skip_or_die $GIT_TEST_HTTPD \
83d842dc JK	124	"Could not identify web server at '$LIB_HTTPD_PATH'"
faa4bc35 CB	125	fi
faa4bc35 CB	126
c7db2d16 JK	127	install_script () {
	128	write_script "$HTTPD_ROOT_PATH/$1" <"$TEST_PATH/$1"
	129	}
	130
faa4bc35	131	prepare_httpd() {
13b5481e	132	mkdir -p "$HTTPD_DOCUMENT_ROOT_PATH"
3cf8fe1d	133	cp "$TEST_PATH"/passwd "$HTTPD_ROOT_PATH"
c7db2d16	134	install_script broken-smart-http.sh
30dea565	135	install_script error-smart-http.sh
dbcf2bd3	136	install_script error.sh
3374292e	137	install_script apply-one-time-sed.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
a5adcbe3	179	trap 'code=$?; stop_httpd; (exit $code); die' EXIT
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
a5adcbe3	187	trap 'die' EXIT
44f243d3	188	cat "$HTTPD_ROOT_PATH"/error.log >&4 2>/dev/null
83d842dc	189	test_skip_or_die $GIT_TEST_HTTPD "web server setup failed"
75318a3b	190	fi
faa4bc35 CB	191	}
	192
	193	stop_httpd() {
35641310	194	trap 'die' EXIT
faa4bc35	195
13b5481e	196	"$LIB_HTTPD_PATH" -d "$HTTPD_ROOT_PATH" \
69707d61	197	-f "$TEST_PATH/apache.conf" $HTTPD_PARA -k stop
faa4bc35	198	}
6cbd6e92	199
05c1eb10	200	test_http_push_nonff () {
6cbd6e92 TRC	201	REMOTE_REPO=$1
	202	LOCAL_REPO=$2
	203	BRANCH=$3
05c1eb10	204	EXPECT_CAS_RESULT=${4-failure}
6cbd6e92 TRC	205
	206	test_expect_success 'non-fast-forward push fails' '
	207	cd "$REMOTE_REPO" &&
	208	HEAD=$(git rev-parse --verify HEAD) &&
	209
	210	cd "$LOCAL_REPO" &&
	211	git checkout $BRANCH &&
	212	echo "changed" > path2 &&
	213	git commit -a -m path2 --amend &&
	214
77b5be2a	215	test_must_fail git push -v origin >output 2>&1 &&
6cbd6e92 TRC	216	(cd "$REMOTE_REPO" &&
	217	test $HEAD = $(git rev-parse --verify HEAD))
	218	'
	219
	220	test_expect_success 'non-fast-forward push show ref status' '
	221	grep "^ ! \[rejected\][ ]*$BRANCH -> $BRANCH (non-fast-forward)$" output
	222	'
	223
d3bd0425	224	test_expect_success 'non-fast-forward push shows help message' '
0aff719f	225	test_i18ngrep "Updates were rejected because" output
6cbd6e92	226	'
e69fa70f	227
42aa29ee	228	test_expect_${EXPECT_CAS_RESULT} 'force with lease aka cas' '
e69fa70f JH	229	HEAD=$( cd "$REMOTE_REPO" && git rev-parse --verify HEAD ) &&
	230	test_when_finished '\''
	231	(cd "$REMOTE_REPO" && git update-ref HEAD "$HEAD")
	232	'\'' &&
	233	(
	234	cd "$LOCAL_REPO" &&
	235	git push -v --force-with-lease=$BRANCH:$HEAD origin
	236	) &&
	237	git rev-parse --verify "$BRANCH" >expect &&
	238	(
	239	cd "$REMOTE_REPO" && git rev-parse --verify HEAD
	240	) >actual &&
	241	test_cmp expect actual
	242	'
6cbd6e92	243	}
e837936c JK	244
	245	setup_askpass_helper() {
	246	test_expect_success 'setup askpass helper' '
	247	write_script "$TRASH_DIRECTORY/askpass" <<-\EOF &&
	248	echo >>"$TRASH_DIRECTORY/askpass-query" "askpass: $*" &&
afbf5ca5 JK	249	case "$*" in
	250	Username)
	251	what=user
	252	;;
	253	Password)
	254	what=pass
	255	;;
	256	esac &&
	257	cat "$TRASH_DIRECTORY/askpass-$what"
e837936c JK	258	EOF
	259	GIT_ASKPASS="$TRASH_DIRECTORY/askpass" &&
	260	export GIT_ASKPASS &&
	261	export TRASH_DIRECTORY
	262	'
	263	}
	264
	265	set_askpass() {
	266	>"$TRASH_DIRECTORY/askpass-query" &&
afbf5ca5 JK	267	echo "$1" >"$TRASH_DIRECTORY/askpass-user" &&
afbf5ca5 JK	268	echo "$2" >"$TRASH_DIRECTORY/askpass-pass"
e837936c JK	269	}
	270
	271	expect_askpass() {
050ef365 JK	272	dest=$HTTPD_DEST${3+/$3}
050ef365 JK	273
e837936c JK	274	{
	275	case "$1" in
	276	none)
	277	;;
	278	pass)
	279	echo "askpass: Password for 'http://$2@$dest': "
	280	;;
	281	both)
	282	echo "askpass: Username for 'http://$dest': "
	283	echo "askpass: Password for 'http://$2@$dest': "
	284	;;
	285	*)
	286	false
	287	;;
	288	esac
	289	} >"$TRASH_DIRECTORY/askpass-expect" &&
	290	test_cmp "$TRASH_DIRECTORY/askpass-expect" \
	291	"$TRASH_DIRECTORY/askpass-query"
	292	}
6940a060 SG	293
	294	strip_access_log() {
	295	sed -e "
	296	s/^.* \"//
	297	s/\"//
	298	s/ [1-9][0-9]*\$//
	299	s/^GET /GET /
	300	" "$HTTPD_ROOT_PATH"/access.log
	301	}
e8b3b2e2 SG	302
	303	# Requires one argument: the name of a file containing the expected stripped
	304	# access log entries.
	305	check_access_log() {
	306	sort "$1" >"$1".sorted &&
	307	strip_access_log >access.log.stripped &&
	308	sort access.log.stripped >access.log.sorted &&
	309	if ! test_cmp "$1".sorted access.log.sorted
	310	then
	311	test_cmp "$1" access.log.stripped
	312	fi
	313	}