test suite: t-tagupl-run-drs: New source parameter

Change all callers.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/tests/lib b/tests/lib
index 39f13825fc32bdc6bfb2d29ed0c66b2baf2f3f20..c37c512d74eaedb591bcecba6a7990b85cac3a2f 100644 (file)
--- a/tests/lib
+++ b/tests/lib
@@ -1212,11 +1212,12 @@ t-tagupl-settings () {
 }
 
 t-tagupl-run-drs () {
+       local source=$1
        cd ..
        cd tagupl
 
        DGIT_DRS_ANY_URL=1 \
-       DGIT_DRS_MODE="tag2upload $tmp/$p $tagname" \
+       DGIT_DRS_MODE="tag2upload $source $tagname" \
         $troot/drs-git-ext 
 
        cd $tmp/$p
@@ -1227,7 +1228,7 @@ t-tagupl-test () {
                --distro=test-dummy -u Senatus "$@"
 
        mkdir ../tagupl
-       t-tagupl-run-drs
+       t-tagupl-run-drs $tmp/$p
 
        t-dgit fetch
        t-pushed-good master

diff --git a/tests/tests/tagupl b/tests/tests/tagupl
index cfbdb6e853dfbc5d638ef600fb699f8562af252b..c9c47b3af68574ac50d73ed20d80ff0fe13cf350 100755 (executable)
--- a/tests/tests/tagupl
+++ b/tests/tests/tagupl
@@ -62,7 +62,7 @@ with-mangled () {
        perl <../basetag >../badtag-$ident -pe "$perl"
        git tag -u Senatus -f -s -m "$(cat ../badtag-$ident)" "$tagname"
 
-       t-tagupl-run-drs
+       t-tagupl-run-drs $tmp/$p
 }
 
 expect-quit () {
@@ -86,12 +86,12 @@ expect-email () {
 raw-mangled () {
        git update-ref refs/tags/$tagname \
                $(git hash-object -w -t tag ../tagobj-$ident)
-       t-tagupl-run-drs
+       t-tagupl-run-drs $tmp/$p
 }
 
 tagname=test-dummy/1.2
 t-expect-fail E:'failed command: git fetch' \
-t-tagupl-run-drs
+t-tagupl-run-drs $tmp/$p
 
 tagname=splorf/$v     ; expect-quit baddistro '' 'tag name not for us'
 tagname=test-dummy/1,2; expect-quit badver    '' 'tag name not for us'