X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=blobdiff_plain;f=tests%2Flib;h=4f6f3078a9d15e099e86e47952670ac5f4f35637;hp=993ec36b647a44953d1a67d59cb536b7ca5a8969;hb=0f68069fd2f4296db83c10fe02e5947bf631c735;hpb=f897c3996411b844e971d66171c1e1aa290a6f24

diff --git a/tests/lib b/tests/lib
index 993ec36b..4f6f3078 100644
--- a/tests/lib
+++ b/tests/lib
@@ -406,7 +406,9 @@ t-dgit () {
 	: '
 {{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{'
 	$dgit --dgit=$dgit --dget:-u --dput:--config=$tmp/dput.cf \
-		-dtest-dummy $DGIT_TEST_OPTS $DGIT_TEST_DEBUG \
+		--config-lookup-explode=dgit-distro.debian.alias-canon \
+		${distro--dtest-dummy} ${distro+${distro:+-d}${distro}} \
+		$DGIT_TEST_OPTS $DGIT_TEST_DEBUG \
 		-k39B13D8A $t_dgit_xopts "$@"
 	: '}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}
 '
@@ -851,7 +853,11 @@ t-incoming-dsc () {
 t-ref-dsc-dgit () {
 	t-incoming-dsc
 	local val; val=`t-822-field $incoming_dsc Dgit`
-	perl -e '$_=shift @ARGV; die "Dgit $_ ?" unless m/^\w+\b/;' "$val"
+	val=$( perl -e '
+		$_=shift @ARGV;
+		die "Dgit $_ ?" unless m/^\w+\b/;
+		print $&,"\n" or die $!;
+	' "$val")
 	t-ref-same-val $incoming_dsc "$val"
 }