#!/bin/sh

setvar test_description = ''test git-http-backend-noserver''
source ./test-lib.sh

setvar HTTPD_DOCUMENT_ROOT_PATH = "$TRASH_DIRECTORY"

if test_have_prereq GREP_STRIPS_CR
{
	setvar GREP_OPTIONS = '-U'
	export GREP_OPTIONS
}

proc run_backend {
	echo $2" |
	QUERY_STRING=${1#*[?]}"" \
	PATH_TRANSLATED="$HTTPD_DOCUMENT_ROOT_PATH/${1%%[?]*}"" \
	git http-backend >act.out 2>act.err
}

proc GET {
	setvar REQUEST_METHOD = ""GET"" && export REQUEST_METHOD &&
	run_backend "/repo.git/$1" &&
	sane_unset REQUEST_METHOD &&
	if ! grep "Status" act.out >act
	{
		printf "Status: 200 OK\r\n" >act
	}
	printf "Status: $2\r\n" >exp &&
	test_cmp exp act
}

proc POST {
	setvar REQUEST_METHOD = ""POST"" && export REQUEST_METHOD &&
	setvar CONTENT_TYPE = ""application/x-$1-request"" && export CONTENT_TYPE &&
	run_backend "/repo.git/$1" $2 &&
	sane_unset REQUEST_METHOD &&
	sane_unset CONTENT_TYPE &&
	if ! grep "Status" act.out >act
	{
		printf "Status: 200 OK\r\n" >act
	}
	printf "Status: $3\r\n" >exp &&
	test_cmp exp act
}

source "$TEST_DIRECTORY"/t556x_common

proc expect_aliased {
	setvar REQUEST_METHOD = ""GET"" && export REQUEST_METHOD &&
	if test $1 = 0 {
		run_backend $2
	} else {
		run_backend $2 &&
		echo "fatal: '$2': aliased" >exp.err &&
		test_cmp exp.err act.err
	}
	unset REQUEST_METHOD
}

test_expect_success 'http-backend blocks bad PATH_INFO' '
	config http.getanyfile true &&

	expect_aliased 0 /repo.git/HEAD &&

	expect_aliased 1 /repo.git/../HEAD &&
	expect_aliased 1 /../etc/passwd &&
	expect_aliased 1 ../etc/passwd &&
	expect_aliased 1 /etc//passwd &&
	expect_aliased 1 /etc/./passwd &&
	expect_aliased 1 //domain/data.txt
'

test_done