From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 25 Jul 2015 17:53:32 +0000 (+0100)
Subject: Test suite: list-tests: Break out seddery()
X-Git-Tag: debian/1.1~48
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=commitdiff_plain;h=f8b5f0c45e4b6b8c90cf6097d7d7d11a55852510

Test suite: list-tests: Break out seddery()
---

diff --git a/tests/list-tests b/tests/list-tests
index d0582f65..3381dbfa 100755
--- a/tests/list-tests
+++ b/tests/list-tests
@@ -69,13 +69,18 @@ finish-gencontrol () {
 	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 $(sed <$t -n '
-		20q;
-		/^: t-list-tests-end$/q;		
-		s/^t-restrict //p
-	'); do
+	for r in $(seddery 's/^t-restrict //p'); do
 		restriction-$mode
 	done
 	test-done-$mode