X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=blobdiff_plain;f=tests%2Flist-tests;fp=tests%2Flist-tests;h=0000000000000000000000000000000000000000;hp=8578fe60386528f57f3b65495d1b87f94cb5dcb6;hb=470cf3f63b4d284dbaaef8da936e716438063ac1;hpb=173757ec53902ea11825c26bb8245971c157455a

diff --git a/tests/list-tests b/tests/list-tests
deleted file mode 100755
index 8578fe60..00000000
--- a/tests/list-tests
+++ /dev/null
@@ -1,107 +0,0 @@
-#!/bin/bash
-
-set -e
-
-. tests/lib-core
-. tests/lib-restricts
-
-mode=$1
-
-test-begin- () {
-	whynots=''
-}
-
-restriction- () {
-	set +e
-	whynot=$(t-restriction-$r)
-	rc=$?
-	set -e
-	case "$rc.$whynot" in
-	0.)	;;
-	1.?*)	whynots="$whynots${whynots:+; }$whynot" ;;
-	*)	fail "restriction $r for $t gave $rc $whynot !"
-	esac
-}
-
-dependencies- () {
-	:
-}
-
-test-done- () {
-	case "$whynots" in
-	'')	echo $t ;;
-	?*)	echo >&2 "SKIP $t $whynots" ;;
-	esac
-}
-
-finish- () {
-	:
-}
-
-test-begin-gencontrol () {
-	restrictions=''
-	dependencies=''
-}
-
-restriction-gencontrol () {
-	restrictions+=" $r"
-}
-
-dependencies-gencontrol () {
-	dependencies+=", $deps"
-}
-
-test-done-gencontrol () {
-	stanza=$(
-		add_Depends="$dependencies" \
-		perl <debian/tests/control.in -wpe '
-			if (/^(\w+):/) {
-				my $h = $1;
-				s{$}{ $ENV{"add_$h"} // "" }e;
-			}
-		' 
-		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
-}
-
-seddery () {
-	local seddery=$1
-	sed <$t -n '
-		20q;
-		/^: t-list-tests-end$/q;
-		'"$seddery"'
-	'
-}
-
-for t in $(run-parts --list tests/tests); do
-	test-begin-$mode
-	for r in $(seddery 's/^t-restrict //p'); do
-		restriction-$mode
-	done
-	for deps in $(seddery 's/^t-dependencies //p'); do
-		dependencies-$mode
-	done
-	test-done-$mode
-done
-
-finish-$mode