X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=blobdiff_plain;f=tests%2Flib-gdr;h=a13696d7581b9543628530cdc9fce7abea7076cd;hp=b60ccb8ed2f69b996989fd5c6ef5b2b6bf62d423;hb=e7178a4a4eafad6d816a48c18c2a159f4dd3e40c;hpb=b65b59a3cf27c815676f0363897ac2c924209a15

diff --git a/tests/lib-gdr b/tests/lib-gdr
index b60ccb8e..a13696d7 100644
--- a/tests/lib-gdr
+++ b/tests/lib-gdr
@@ -7,7 +7,8 @@ t-git-debrebase () {
 	local gdr=${DGIT_GITDEBREBASE_TEST-git-debrebase}
 	: '
 {{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{'
-	$gdr	$GDR_TEST_OPTS $GDR_TEST_DEBUG $t_gdr_xopts "$@"
+	$gdr "--dgit=${DGIT_TEST-dgit}" $GDR_TEST_OPTS \
+		$GDR_TEST_DEBUG $t_gdr_xopts "$@"
 	: '}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}
 '
 }
@@ -22,7 +23,7 @@ t-gdr-good () {
 
 	git diff --quiet ${beforetag-t.before} -- ':.' ':!debian/patches'
 
-	local etype netype bwtip
+	local etypes bwtip
 
 	LC_MESSAGES=C t-git-debrebase status >../status.check
 	case $state in
@@ -36,24 +37,30 @@ t-gdr-good () {
 		;;
 	esac
 
+	# etypes is either a type,
+	# or   PseudoMerge-<more etypes>
+	# or   AddPatches-<more etypes>
+
 	case $state in
 	laundered)
-			etype=Upstream
+			etypes=Upstream
 			bwtip=Y:`t-git-debrebase breakwater`
 		;;
-	stitched)	etype=Pseudomerge ;;
-	pushed)		etype=AddPatches; netype=Pseudomerge ;;
+	stitched)	etypes=Pseudomerge-Upstream ;;
+	pushed)		etypes=AddPatches-Pseudomerge-Upstream ;;
+	pushed-interop)	etypes=Pseudomerge-AddPatchesInterop-Upstream ;;
 	esac
 
-	t-git-debrebase analyse >../anal.check
+	anal=../anal
+	t-git-debrebase analyse >$anal.check
 	expect=`git rev-parse HEAD`
-	exec <../anal.check
+	exec <$anal.check
 	local cid ctype info nparents
 	while read cid ctype info; do
 		: ===== $cid $ctype $info =====
 		test $cid = $expect
-		local cetype=$etype
-		if [ "x$ctype" = "x$etype" ]; then cetype=SAME; fi
+		local cetype=${etypes%%-*}
+		if [ "x$ctype" = "x$cetype" ]; then cetype=SAME; fi
 		local parents="`git log -n1 --pretty=format:%P $cid`"
 		expect="$parents"
 		enparents=1
@@ -64,17 +71,18 @@ t-gdr-good () {
 		Packaging/SAME)				;;
 		Packaging/Upstream)			;;
 		AddPatches/SAME)			;;
+		AddPatches/AddPatchesInterop)		;;
 		Changelog/Packaging)			;;
 		Changelog/Upstream)			;;
 		Upstream/SAME)				;;
 		Anchor/Upstream)			;;
 		Anchor/Packaging)			;;
 		*)
-			fail "etype=$etype ctype=$ctype cetype=$cetype $cid"
+			fail "etypes=$etypes ctype=$ctype cetype=$cetype $cid"
 			;;
 		esac
 
-		case "$ctype/$etype" in
+		case "$ctype/$etypes" in
 		Packaging/Upstream|\
 		Changelog/Upstream)
 			if [ "x$bwtip" != x ]; then
@@ -83,20 +91,27 @@ t-gdr-good () {
 			fi
 		esac
 
+		case "$cetype" in
+		AddPatchesInterop)
+			git log -n1 --pretty=format:%B \
+			| grep '^\[git-debrebase[ :]'
+			;;
+		esac
+
 		case "$ctype" in
 		Pseudomerge)
 			expect=${info#Contributor=}
 			expect=${expect%% *}
 			enparents=2
 			git diff --quiet $expect..$cid
-			etype=Upstream
+			etypes=${etypes#*-}
 
 			: 'reject pointless pseudomerges'
 			local overwritten=${parents/$expect/}
 			overwritten=${overwritten// /}
-			t-git-debrebase analyse $overwritten >../anal.overwr
+			t-git-debrebase analyse $overwritten >$anal.overwr
 			local ocid otype oinfo
-			read <../anal.overwr ocid otype oinfo
+			read <$anal.overwr ocid otype oinfo
 			case "$otype" in
 			Pseudomerge) test "x$info" != "x$oinfo" ;;
 			esac
@@ -104,18 +119,17 @@ t-gdr-good () {
 		Packaging)
 			git diff --quiet $expect..$cid -- ':.' ':!debian' 
 			git diff --quiet $expect..$cid -- ':debian/patches'
-			etype=Packaging
+			etypes=Packaging
 			;;
 		AddPatches)
 			git diff --quiet $expect..$cid -- \
 				':.' ':!debian/patches'
-			etype=$netype
-			netype=Upstream
+			etypes=${etypes#*-}
 			;;
 		Changelog)
 			git diff --quiet $expect..$cid -- \
 				':.' ':!debian/changelog'
-			etype=Packaging
+			etypes=Packaging
 			;;
 		Upstream/SAME)
 			git diff --quiet $expect..$cid -- ':debian'
@@ -129,7 +143,7 @@ t-gdr-good () {
 		test $cnparents = $enparents
 
 		local cndparents=`
-	for f in $parents; do echo $f; done | sort -u | wc -w
+	for f in $parents; do echo $f; done | t-sort -u | wc -w
 				`
 		test $cndparents = $cnparents
 
@@ -143,21 +157,36 @@ t-gdr-good () {
 
 t-some-changes () {
 	local token=$1
+	local which=${2:-dum}
+	local fsuffix=$3
 
 	t-git-next-date
 
-	echo >>debian/zorkmid "// debian $token"
-	git add debian/zorkmid
-	git commit -m "DEBIAN add zorkmid ($token)"
+	case "$which" in
+	*d*)
+		echo >>debian/zorkmid$fsuffix "// debian $token"
+		git add debian/zorkmid$fsuffix
+		git commit -m "DEBIAN add zorkmid$fsuffix ($token)"
+		;;
+	esac
 
-	echo >>src.c "// upstream $token"
-	git commit -a -m "UPSTREAM edit src.c ($token)"
+	case "$which" in
+	*u*)
+		echo >>src$fsuffix.c "// upstream $token"
+		git add src$fsuffix.c
+		git commit -m "UPSTREAM edit src$fsuffix.c ($token)"
+		;;
+	esac
 
-	for f in debian/zorkmid src.c; do
-		echo "// both! $token" >>$f
-		git add $f
-	done
-	git commit -m "MIXED add both ($token)"
+	case "$which" in
+	*m*)
+		for f in debian/zorkmid$fsuffix src$fsuffix.c; do
+			echo "// both! $token" >>$f
+			git add $f
+		done
+		git commit -m "MIXED add both($fsuffix) ($token)"
+		;;
+	esac
 
 	t-git-next-date
 }
@@ -197,7 +226,7 @@ t-nmu-upload-2 () {
 }
 
 t-nmu-upload-3 () {
-	t-dch-commit -r sid
+	t-dch-commit-r
 
 	t-dgit -wgf build-source
 
@@ -263,3 +292,14 @@ t-nmu-reconciled-good () {
 	git checkout master
 	t-dgit -wgf quilt-fixup
 }
+
+t-gdr-prep-new-upstream () {
+	uv=$1
+	t-git-next-date
+	git checkout make-upstream
+	git reset --hard upstream
+	t-make-new-upstream-tarball $uv
+	git push . make-upstream:upstream
+	git checkout master
+	t-git-next-date
+}