From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 25 Jul 2015 17:17:55 +0000 (+0100)
Subject: Test suite: Implement list-tests gencontrol
X-Git-Tag: debian/1.1~52
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=commitdiff_plain;h=493c7cbb41990703f365d809f1af5a0555b919f7;hp=ada48ca013e77d7e821d326db40bc1a59ba639ea

Test suite: Implement list-tests gencontrol
---

diff --git a/debian/tests/control.in b/debian/tests/control.in
new file mode 100644
index 00000000..62ff3ee3
--- /dev/null
+++ b/debian/tests/control.in
@@ -0,0 +1,2 @@
+Tests-Directory: tests/tests
+Depends: dgit, dgit-infrastructure, devscripts, rsync
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