[WIP] Implement a test for git-fetch-pack

@@ -0,0 +1,142 @@
+#!/bin/sh
+#
+# Copyright (c) 2005 Johannes Schindelin
+#
+
+test_description='Testing multi_ack pack fetching
+
+'
+. ./test-lib.sh
+
+# Test fetching for an empty, a partial, a full copy, and for a repository,
+# which is not empty but has no common commits (think coolest merge ever).
+
+function add () {
+	local name=$1
+	local branch=$(expr $name : '\(.\)')
+	local text="$@"
+	local parents=""
+
+	shift
+	while test $1; do
+		local sha1=$(eval echo \$$1)
+		test -z "$sha1" && sha1=$1
+		parents="$parents -p $sha1"
+		shift
+	done
+
+	echo "$text" > test.txt
+	git-update-index --add test.txt
+	tree=$(git-write-tree)
+	commit=$(echo "$text" | git-commit-tree $tree $parents 2>/dev/null)
+	export $name=$commit
+	echo $commit > .git/refs/heads/$branch
+	git-symbolic-ref HEAD refs/heads/$branch 2>/dev/null
+}
+
+function tag () {
+	local name=$1
+	local commit=$(eval echo \$$2)
+	local text="$@"
+
+	git-tag -m "$text" $name $commit
+}
+
+function count_objects () {
+	local line="$(git-count-objects)"
+	expr "$line" : '\([^ ]*\)'
+}
+
+function test_expect_object_count () {
+	local repository=$1
+	local count=$2
+
+	expect="$count objects, $count kilobytes"
+	output="$(git-count-objects)"
+	test_expect_success "$repository repository is valid" \
+		"test \"$output\" = \"$expect\""
+}
+
+function check_rep () {
+	local rep=$1
+	local count=$2
+
+	cd $rep
+	test_expect_success "fetch from upstream into $rep" \
+		'git-fetch-pack -v .. A B C 2> log.txt'
+	git-update-ref HEAD $A46
+	test_expect_success "fsck $rep" 'git-fsck-objects --full'
+	test_expect_object_count $rep $count
+	cd ..
+}
+
+# A1 - A2 - A3 - A4 - A5 - .. - A47
+#    \    \     /   /
+# B1 - B2 ------ B3 - B4 - B5
+#         \   /     \
+#           C1 - C2 - C3
+
+# the partial copy is cloned at A1-B3-C2 time.
+
+(
+	mkdir empty &&
+	cd empty &&
+	git-init-db 2>/dev/null
+)
+
+add B1
+
+pre_tag_count=$(count_objects)
+
+i=1; while [ $i -le 40 ]; do
+	tag T$i B1
+	i=$(expr $i + 1)
+done
+
+post_tag_count=$(count_objects)
+
+add A1
+add B2 B1 A1
+add B3 B2
+add C1 B2
+add C2 C1
+
+# clone
+git-clone . partial 2>/dev/null
+
+partial_count=$(count_objects)
+
+add A2 A1
+add A3 A2
+add A4 A3 C1
+add C3 C2 B3
+add A5 A4 B3
+add B4 B3
+add B5 B4
+i=5
+while [ $i -le 46 ]; do
+	next=$(expr $i + 1)
+	add A$next A$i
+	i=$next
+done
+
+total_count=$(count_objects)
+
+git-clone . full 2>/dev/null
+
+# let the testing begin
+
+test_expect_success 'precalculated counts' \
+	"test $post_tag_count:$partial_count:$total_count = 43:58:205"
+
+tag_count=$(expr $post_tag_count - $pre_tag_count)
+empty_diff=$(expr $total_count - $tag_count)
+partial_diff=$(expr $total_count - $partial_count)
+
+check_rep empty $empty_diff
+check_rep partial $partial_diff
+check_rep full 0
+
+#gitk --all
+
+test_done