X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=blobdiff_plain;f=tests%2Flist-tests;h=d0582f65a93ac86b8eabfde404c1f5b1ec472063;hp=21f96b47b0ccf3efa396aff69f30be822f7c459d;hb=493c7cbb41990703f365d809f1af5a0555b919f7;hpb=ada48ca013e77d7e821d326db40bc1a59ba639ea

diff --git a/tests/list-tests b/tests/list-tests
index 21f96b47..d0582f65 100755
--- a/tests/list-tests
+++ b/tests/list-tests
@@ -30,6 +30,45 @@ test-done- () {
 	esac
 }
 
+finish- () {
+	:
+}
+
+test-begin-gencontrol () {
+	restrictions=''
+}
+
+restriction-gencontrol () {
+	restrictions+=" $r"
+}
+
+test-done-gencontrol () {
+	stanza=$(
+		sed <debian/tests/control.in ''
+		case "$restrictions" in
+		?*) echo "Restrictions:$restrictions" ;;
+		esac
+		)
+	key=$(printf "%s" "$stanza" | sha256sum)
+	key=${key%% *}
+	eval "
+		stanza_$key=\"\$stanza\"
+		tests_$key+=\" \${t#tests/tests/}\"
+	"
+	keys=" ${keys/ $key /}"
+	keys+=" $key "
+}
+
+finish-gencontrol () {
+	for key in $keys; do
+		eval "
+			stanza=\$stanza_$key
+			tests=\$tests_$key
+		"
+		printf "Tests:%s\n%s\n\n" "$tests" "$stanza"
+	done
+}
+
 for t in $(run-parts --list tests/tests); do
 	test-begin-$mode
 	for r in $(sed <$t -n '
@@ -41,3 +80,5 @@ for t in $(run-parts --list tests/tests); do
 	done
 	test-done-$mode
 done
+
+finish-$mode