Test suite: Honour DGIT_TEST_DEBUG=''.

[dgit.git] / tests / list-tests

diff --git a/tests/list-tests b/tests/list-tests
index 3381dbfa08e581ea9b7242e6f740d03af6c7a945..8578fe60386528f57f3b65495d1b87f94cb5dcb6 100755 (executable)
--- a/tests/list-tests
+++ b/tests/list-tests
@@ -23,6 +23,10 @@ restriction- () {
        esac
 }
 
+dependencies- () {
+       :
+}
+
 test-done- () {
        case "$whynots" in
        '')     echo $t ;;
@@ -36,15 +40,26 @@ finish- () {
 
 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
@@ -83,6 +98,9 @@ for t in $(run-parts --list tests/tests); 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