[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

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

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