From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 30 Jun 2019 19:31:20 +0000 (+0100)
Subject: test suite: t-setup-done: Arrange to save all DGIT_TEST_REAL_*
X-Git-Tag: archive/debian/9.0~56
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=e54cf303cef16086dab785aa18e897332b29b0a2;hp=53fb22478f70f7007e9c19cccc8d819c50422c57;p=dgit.git

test suite: t-setup-done: Arrange to save all DGIT_TEST_REAL_*

Otherwise the importer may end up with our stunt versions on their
PATH, but without the necessary DGIT_TEST_REAL_* variables which stop
infinite recursion.

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

diff --git a/tests/lib b/tests/lib
index 00ef4170..28b08e61 100644
--- a/tests/lib
+++ b/tests/lib
@@ -520,6 +520,14 @@ t-setup-done () {
 		' $vn "$(eval "printf '%s\n' \"\$$vn\"")"
 	done
 
+	perl >&4 -"I$root" -MDebian::Dgit -we '
+		foreach my $vn (grep m/^DGIT_TEST_REAL_/, keys %ENV) {
+			print STDERR "saving-exporting $vn\n";
+			printf "export %s=%s\n", $vn, shellquote $ENV{$vn}
+				or die $!;
+		}
+	'
+
 	(set -e; cd $tmp; tar cf $import.tar $savedirs)
 
 	printf >&4 "\n%s\n" "$importeval"