No overall functional change.
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
dgit (2.17~) unstable; urgency=medium
- *
+ Test suite:
+ * Internal improvements.
--
'
}
+t-tstunt--save-real () {
+ local f="$1"
+ case "$f" in
+ */*) return ;;
+ esac
+
+ local rc
+ local real
+ set +e
+ real=$(type -p "$f")
+ rc=$?
+ set -e
+
+ case $rc in
+ 1) return ;;
+ 0) ;;
+ *) fail "did not find $f on PATH $PATH" ;;
+ esac
+
+ local varname=${f//[^_0-9a-zA-Z]/_}
+ varname=DGIT_TEST_REAL_${varname^^}
+
+ eval "
+ : \${$varname:=\$real}
+ export $varname
+ "
+}
+
t-tstunt () {
local tstunt=$tmp/tstunt
t-stunt-envvar PATH $tstunt
t-stunt-envvar PERLLIB $tstunt
local f
for f in "$@"; do
+ t-tstunt--save-real $f
f="./$f"
local d="$tstunt/${f%/*}"
mkdir -p $d
}
t-tstunt-debuild () {
- : ${DGIT_TEST_REAL_DEBUILD:=$(type -p debuild)}
- export DGIT_TEST_REAL_DEBUILD
t-tstunt debuild
}