X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=blobdiff_plain;f=tests%2Flib-core;fp=tests%2Flib-core;h=98ae85f5e8d1026ec5c6180fe47e8fabf8425588;hp=0000000000000000000000000000000000000000;hb=6913c854ca0f3eb901c39c74b74d7f0344318f72;hpb=f6cd040652129d18f3d7fe53b6bb62e5d0c79ec1

diff --git a/tests/lib-core b/tests/lib-core
new file mode 100644
index 00000000..98ae85f5
--- /dev/null
+++ b/tests/lib-core
@@ -0,0 +1,16 @@
+#
+
+fail () {
+	echo >&2 "failed: $*"
+	exit 1
+}
+
+t-set-intree () {
+	if [ "x$DGIT_TEST_INTREE" = x ]; then return; fi
+	: ${DGIT_TEST:=$DGIT_TEST_INTREE/dgit}
+	: ${DGIT_REPOS_SERVER_TEST:=$DGIT_TEST_INTREE/infra/dgit-repos-server}
+	: ${DGIT_SSH_DISPATCH_TEST:=$DGIT_TEST_INTREE/infra/dgit-ssh-dispatch}
+	: ${DGIT_INFRA_PFX:=$DGIT_TEST_INTREE${DGIT_TEST_INTREE:+/infra/}}
+	export DGIT_TEST DGIT_REPOS_SERVER_TEST DGIT_SSH_DISPATCH_TEST
+	export PERLLIB="$DGIT_TEST_INTREE${PERLLIB:+:}${PERLLIB}"
+}