: ${DGIT_TEST_DEBUG=-D}
export DGIT_TEST_DEBUG
+: ${DGIT_TEST_DISTRO+ ${distro=${DGIT_TEST_DISTRO}}}
+
export GIT_COMMITTER_DATE='1440253867 +0100'
export GIT_AUTHOR_DATE='1440253867 +0100'
t-set-using-tmp
+test -f $tmp/.save-env || \
env -0 >$tmp/.save-env
ln -f $troot/ssh ssh
}
t-ok () {
+ : '========================================'
t-fscks
echo ok.
}
: '
{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{'
$dgit --dgit=$dgit --dget:-u --dput:--config=$tmp/dput.cf \
- -dtest-dummy $DGIT_TEST_OPTS $DGIT_TEST_DEBUG \
+ ${dgit_config_debian_alias-"--config-lookup-explode=dgit-distro.debian.alias-canon"} \
+ ${distro--dtest-dummy} ${distro+${distro:+-d}${distro}} \
+ $DGIT_TEST_OPTS $DGIT_TEST_DEBUG \
-k39B13D8A $t_dgit_xopts "$@"
: '}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}
'
' <$file
}
+t-defdistro () {
+ export DGIT_TEST_DISTRO=''
+ t-git-config dgit-suite.unstable.distro test-dummy
+}
+
t-stunt-envvar () {
local var=$1
local tstunt=$2
'
}
+t-tstunt--save-real () {
+ local f="$1"
+ case "$f" in
+ */*) return ;;
+ esac
+
+ local rc
+ local real
+ set +e
+ real=$(
+ p=":$PATH:"
+ p="${p/:"$tmp/tstunt":/:}"
+ p="${p%:}"
+ p="${p#:}"
+ PATH="$p"
+ 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
}
t-ref-dsc-dgit () {
t-incoming-dsc
local val; val=`t-822-field $incoming_dsc Dgit`
- perl -e '$_=shift @ARGV; die "Dgit $_ ?" unless m/^\w+\b/;' "$val"
+ val=$( perl -e '
+ $_=shift @ARGV;
+ die "Dgit $_ ?" unless m/^\w+\b/;
+ print $&,"\n" or die $!;
+ ' "$val")
t-ref-same-val $incoming_dsc "$val"
}