From ada48ca013e77d7e821d326db40bc1a59ba639ea Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 25 Jul 2015 17:36:18 +0100
Subject: Test suite: Introduce tests/list-tests

---
 tests/list-tests | 43 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100755 tests/list-tests

(limited to 'tests/list-tests')

diff --git a/tests/list-tests b/tests/list-tests
new file mode 100755
index 0000000..21f96b4
--- /dev/null
+++ b/tests/list-tests
@@ -0,0 +1,43 @@
+#!/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
+}
+
+test-done- () {
+	case "$whynots" in
+	'')	echo $t ;;
+	?*)	echo >&2 "SKIP $t $whynots" ;;
+	esac
+}
+
+for t in $(run-parts --list tests/tests); do
+	test-begin-$mode
+	for r in $(sed <$t -n '
+		20q;
+		/^: t-list-tests-end$/q;		
+		s/^t-restrict //p
+	'); do
+		restriction-$mode
+	done
+	test-done-$mode
+done
-- 
cgit v1.2.3