X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=blobdiff_plain;f=tests%2Fadhoc;fp=tests%2Fadhoc;h=f252602bc0e8fe26551226c76f7f1997642ba6a9;hp=0000000000000000000000000000000000000000;hb=e270c55f02ce8839a6a2f4fbc316b213e4eaa9d1;hpb=6913c854ca0f3eb901c39c74b74d7f0344318f72

diff --git a/tests/adhoc b/tests/adhoc
new file mode 100755
index 00000000..f252602b
--- /dev/null
+++ b/tests/adhoc
@@ -0,0 +1,49 @@
+#!/bin/bash
+#
+# usage:
+#  after tests/tests/some-test has been run (and maybe failed)
+#   cd tests/tmp/some-test/blah
+#   ../../adhoc ../../../dgit some options
+# or
+#  after tests/tests/some-test has been run (and maybe failed)
+#   cd tests/tmp/some-test/blah
+#   ../../adhoc some rune run by some piece of infrastructure
+#
+# effects:
+#   directly sets the env variables which arrange to use
+#   progrmas etc. from the working tree
+
+ourname=adhoc
+
+case $0 in
+*/$ourname)
+	: ${DGIT_TEST_INTREE:=$(realpath "${0%/$ourname}/..")}
+	;;
+*)
+	echo >&2 "$ourname must be invoked as .../$ourname not $0"
+	exit 127
+	;;
+esac
+
+export DGIT_TEST_INTREE
+
+. $DGIT_TEST_INTREE/tests/lib-core
+
+t-set-intree
+
+pwd=$(realpath "$(pwd)")
+basis=$DGIT_TEST_INTREE/tests/tmp
+case "$pwd" in
+"$basis" | "$basis"/*)
+	testname=${pwd/"$basis/"/}
+	testname=${testname%%/*}
+	tmp="$basis/$testname"
+	;;
+*)
+	fail "$ourname pwd must be inside some test (in $basis), not $pwd"
+	;;
+esac
+
+export ADTTMP=$tmp HOME=$tmp DGIT_TEST_DUMMY_DIR=$tmp DGIT_TEST_TMP=$tmp
+
+exec "$@"