Test suite: Break out t-incoming-dsc (nfc)

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

diff --git a/tests/lib b/tests/lib
index d717283..216ec81 100644 (file)
--- a/tests/lib
+++ b/tests/lib
@@ -618,11 +618,16 @@ t-tstunt-parsechangelog () {
        t-tstunt dpkg-parsechangelog Dpkg/Changelog/Parse.pm
 }
 
        t-tstunt dpkg-parsechangelog Dpkg/Changelog/Parse.pm
 }
 

-t-ref-dsc-dgit () {
+t-incoming-dsc () {

        local dsc=${p}_${v}.dsc
        local dsc=${p}_${v}.dsc

-       local val=`t-822-field $tmp/incoming/$dsc Dgit`
-       perl -e '$_=shift @ARGV; die "$dsc Dgit $_ ?" unless m/^\w+\b/;' "$val"
-       t-ref-same-val $dsc "$val"
+       incoming_dsc=$tmp/incoming/$dsc
+}
+
+t-ref-dsc-dgit () {
+       t-incoming-dsc
+       local val=`t-822-field $incoming_dsc Dgit`
+       perl -e '$_=shift @ARGV; die "Dgit $_ ?" unless m/^\w+\b/;' "$val"
+       t-ref-same-val $incoming_dsc "$val"

 }
 
 t-apply-diff () {
 }
 
 t-apply-diff () {