esac
}
+dependencies- () {
+ :
+}
+
test-done- () {
case "$whynots" in
'') echo $t ;;
test-begin-gencontrol () {
restrictions=''
+ dependencies=''
}
restriction-gencontrol () {
restrictions+=" $r"
}
+dependencies-gencontrol () {
+ dependencies+=", $deps"
+}
+
test-done-gencontrol () {
stanza=$(
- sed <debian/tests/control.in ''
+ add_Depends="$dependencies" \
+ perl <debian/tests/control.in -wpe '
+ if (/^(\w+):/) {
+ my $h = $1;
+ s{$}{ $ENV{"add_$h"} // "" }e;
+ }
+ '
case "$restrictions" in
?*) echo "Restrictions:$restrictions" ;;
esac
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
+ for deps in $(seddery 's/^t-dependencies //p'); do
+ dependencies-$mode
+ done
test-done-$mode
done