From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Jul 2016 09:23:01 +0000 (+0100)
Subject: Test suite: Provide `tartree-edit gitfetchinfo'
X-Git-Tag: archive/debian/2.0~354
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=commitdiff_plain;h=a9561076491b74351adbf62c153fb22ea79ba255

Test suite: Provide `tartree-edit gitfetchinfo'

Help with comparing different test case git working tree tarballs.
---

diff --git a/debian/changelog b/debian/changelog
index 8d717fd5..baf668a6 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -51,6 +51,8 @@ dgit (1.5~~) unstable; urgency=medium
     zealot is very slow and we need to give the other processes time
     to rollback and release the lock.
   * Test quilt single-debian-patch.
+  * Provide `tartree-edit gitfetchinfo' to help with comparing
+    different test case git working tree tarballs.
 
  --
 
diff --git a/tests/tartree-edit b/tests/tartree-edit
index 2e0c0179..14eec68e 100755
--- a/tests/tartree-edit
+++ b/tests/tartree-edit
@@ -4,8 +4,11 @@ fail () { echo >&2 "$0: $*"; exit 1; }
 
 case "$#.$1" in
 2.edit|2.done)	mode="$1"; arg="$2" ;;
-2.-*)		fail "no options understood"			;;
-*)		fail "usage: tartree-edit edit|done DIRECTORY"	;;
+3.gitfetchinfo)	mode="$1"; arg="$2"; remote="$3" ;;
+?.-*)	fail "no options understood"			;;
+*)	fail "usage:
+    tartree-edit edit|done DIRECTORY|TARBALL
+    tartree-edit gitfetchinfo DIRECTORY|TARBALL REMOTE"	;;
 esac
 
 case "$arg" in
@@ -39,6 +42,51 @@ tryat_edit () {
 	fi
 }
 
+gitfetchinfo_perhaps_commit () {
+	local m="$1"
+	set +e
+	git diff --cached --quiet --exit-code HEAD
+	local rc=$?
+	set -e
+	case "$rc" in
+	0)   return ;;
+	1)   git commit --allow-empty --author='tartree-edit <>' -m "$m" ;;
+	*)   fail "git diff failed ($rc)" ;;
+	esac
+}
+
+tryat_gitfetchinfo () {
+	local wd=$(pwd)
+	case "$wd" in
+	*.edit) fail "bad idea to run gitfetchinfo into a .edit tree!" ;;
+	esac
+	local play=.git/tartree-edit-work
+	rm -rf $play
+	mkdir $play
+	if test -d "$b.edit"; then
+		cp -a "$b.edit"/. "$play"/.
+	else
+		exec 3<"$b.tar"
+		tar -C $play -f - <&3 -x
+		exec 3<&-
+	fi
+	local innerwd=$play/*
+	git remote remove "$remote" 2>/dev/null ||:
+	git remote add "$remote" $innerwd
+	git fetch --no-tags -p "$remote" \
+		+"HEAD:refs/remotes/$remote/HEAD"
+	cd $innerwd
+	git checkout -b WORKTREE
+	gitfetchinfo_perhaps_commit INDEX
+	git add -Af .
+	gitfetchinfo_perhaps_commit WORKTREE
+	cd ../../..
+	git fetch --no-tags "$remote" --refmap \
+		+"refs/*:refs/remotes/$remote/*" \
+		+"refs/*:refs/remotes/$remote/*"
+	exit 0
+}
+
 tryat_done () {
 	local b="$1"
 	if test -d "$b.edit"; then