X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=tests%2Ftstunt%2Fgpg-locked;fp=tests%2Ftstunt%2Fgpg-locked;h=892b9c8cf446b255a221276463553c88fc83a0f7;hb=640602b53ec3a387aef776d6a727118e1784f6d7;hp=0000000000000000000000000000000000000000;hpb=edbc2fc23a2df787cc7c0d998df9724dcaceaaf7;p=dgit.git

diff --git a/tests/tstunt/gpg-locked b/tests/tstunt/gpg-locked
new file mode 100755
index 00000000..892b9c8c
--- /dev/null
+++ b/tests/tstunt/gpg-locked
@@ -0,0 +1,32 @@
+#!/bin/sh
+set -e
+
+for attempt in '' ' ' exec; do
+
+set +e
+$attempt						\
+$DGIT_TEST_REAL_GPG					\
+	--agent-program=$DGIT_STUNT_AGENT		\
+	"$@"
+rc=$?
+set -e
+
+if [ $rc != 2 ]; then exit $rc; fi
+
+echo >&2 "WARNING - GNUPG FAILED $rc - STUNT GNUPG $attempt $*"
+
+sh -ec '
+	if [ "x$DGIT_GNUPG_STUNT_ERRLOG" != x ]; then
+		exec >"$DGIT_GNUPG_STUNT_ERRLOG"
+	else
+		exec 2>/dev/null
+	fi
+	exec >/dev/tty
+	printf "%s\n" "$*"
+' x "GNUPG WRAPPER - TROUBLE - $HOME $GNUPGHOME - FAILED $rc $attempt $*"
+
+sleep 10
+
+done
+
+exit 127