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

diff --git a/tests/list-tests b/tests/list-tests
index d0582f65a93ac86b8eabfde404c1f5b1ec472063..3381dbfa08e581ea9b7242e6f740d03af6c7a945 100755 (executable)
--- 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