16 whynot=$(t-restriction-$r)
21 1.?*) whynots="$whynots${whynots:+; }$whynot" ;;
22 *) fail "restriction $r for $t gave $rc $whynot !"
33 ?*) echo >&2 "SKIP $t $whynots" ;;
41 test-begin-gencontrol () {
46 restriction-gencontrol () {
50 dependencies-gencontrol () {
51 dependencies+=", $deps"
54 test-done-gencontrol () {
56 add_Depends="$dependencies" \
57 perl <debian/tests/control.in -wpe '
60 s{$}{ $ENV{"add_$h"} // "" }e;
63 case "$restrictions" in
64 ?*) echo "Restrictions:$restrictions" ;;
67 key=$(printf "%s" "$stanza" | sha256sum)
70 stanza_$key=\"\$stanza\"
71 tests_$key+=\" \${t#tests/tests/}\"
73 keys=" ${keys/ $key /}"
77 finish-gencontrol () {
83 printf "Tests:%s\n%s\n\n" "$tests" "$stanza"
91 /^: t-enumerate-tests-end$/q;
96 for t in $(run-parts --list tests/tests); do
98 for r in $(seddery 's/^t-restrict //p'); do
101 for deps in $(seddery 's/^t-dependencies //p'); do