Test suite: Provide new t-stunt facility

1 files changed, 14 insertions, 0 deletions

diff --git a/tests/lib b/tests/lib
index 357bb86..1a9b042 100644
--- a/tests/lib
+++ b/tests/lib
@@ -323,6 +323,20 @@ t-822-field () {
 	' <$file
 }
 
+t-tstunt () {
+	local tstunt=$tmp/tstunt
+	mkdir -p $tstunt
+	case "$PATH" in
+	"$tstunt:"*)	;;
+	*":$tstunt:"*)	;;
+	*)		PATH="$tstunt:$PATH" ;;
+	esac
+	local f
+	for f in "$@"; do
+		ln -sf "$troot/tstunt/$f" "$tstunt"/.
+	done
+}
+
 t-ref-dsc-dgit () {
 	local dsc=${p}_${v}.dsc
 	local val=`t-822-field $tmp/incoming/$dsc Dgit`