16 whynot=$(t-restriction-$r)
23 1.?*) whynots="$whynots${whynots:+; }$whynot" ;;
24 *) fail "restriction $r for $t gave $rc $whynot !"
35 ?*) echo >&2 "SKIP $t $whynots" ;;
43 test-begin-gencontrol () {
48 restriction-gencontrol () {
52 dependencies-gencontrol () {
53 dependencies+=", $deps"
56 test-done-gencontrol () {
58 add_Depends="$dependencies" \
59 perl <debian/tests/control.in -wpe '
62 s{$}{ $ENV{"add_$h"} // "" }e;
65 case "$restrictions" in
66 ?*) echo "Restrictions:$restrictions" ;;
69 key=$(printf "%s" "$stanza" | sha256sum)
72 stanza_$key=\"\$stanza\"
73 tests_$key+=\" \${t#tests/tests/}\"
75 keys=" ${keys/ $key /}"
79 finish-gencontrol () {
85 printf "Tests:%s\n%s\n\n" "$tests" "$stanza"
93 /^: t-enumerate-tests-end$/q;
98 for t in $(run-parts --list tests/tests); do
100 for r in $(seddery 's/^t-restrict //p'); do
103 for deps in $(seddery 's/^t-dependencies //p'); do