test suite: Break out t-chain-test-somehow

This will be used for when we want to source tests/lib from
some program run by a test.

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

1 files changed, 7 insertions, 3 deletions

diff --git a/tests/lib b/tests/lib
index 28b08e6..acee15d 100644
--- a/tests/lib
+++ b/tests/lib
@@ -1213,13 +1213,17 @@ t-dependencies () {
 	: "Hopefully installed: $*"
 }
 
+t-chain-test-somehow () {
+	export DGIT_TEST_TESTNAME="$testname"
+	export DGIT_TEST_TMPBASE="$tmpbase"
+	export ADTTMP=$tmp
+}
+
 t-chain-test () {
+	t-chain-test-somehow
 	local ct=$1
 	local d=${0%/*}
 	cd $root
-	export DGIT_TEST_TESTNAME="$testname"
-	export DGIT_TEST_TMPBASE="$tmpbase"
-	export ADTTMP=$tmp
 	exec "$d/$ct"
 }