rc=$1
cat <<END >&2
TEST FAILED
+cwd: $PWD
funcs: ${FUNCNAME[*]}
lines: ${BASH_LINENO[*]}
files: ${BASH_SOURCE[*]}
: ${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-expect-push-fail () {
local mpat="$1"; shift
- local triedpush=`git rev-parse HEAD`
+ local triedpush; triedpush=`git rev-parse HEAD`
t-reporefs pre-push
t-expect-fail "$mpat" "$@"
t-has-ancestor () {
# t-has-ancestor ANCESTOR
# (CHILD is implicit, HEAD)
- local now=`git rev-parse HEAD`
- local ancestor=`git rev-parse $1^{}`
- local mbase=`t-git-merge-base $ancestor $now`
+ local now; now=`git rev-parse HEAD`
+ local ancestor; ancestor=`git rev-parse $1^{}`
+ local mbase; mbase=`t-git-merge-base $ancestor $now`
if [ x$mbase != x$ancestor ]; then
fail "not ff $ancestor..$now, $mbase != $ancestor"
fi
# t-has-parent-or-is CHILD PARENT
local child=$1
local parent=$2
- local parents=$(git show --pretty=format:' %P %H ' "$child")
+ local parents
+ parents=$(git show --pretty=format:' %P %H ' "$child")
parent=$(git rev-parse "$parent~0")
case "$parents" in
*" $parent "*) ;;
local p=$2
local v=$3
local dscf=$4
- local sha=`sha256sum <$tmp/mirror/pool/$dscf`
+ local sha; sha=`sha256sum <$tmp/mirror/pool/$dscf`
echo "${v} ${sha% -} $dscf" >>$tmp/aq/package.$suite.${p}
t-aq-archive-updated $suite $p
}
esac
}
+t-expect-fsck-fail () {
+ echo >>$tmp/fsck.expected-errors "$1"
+}
+
+t-git-fsck () {
+ set +e
+ LC_MESSAGES=C git fsck --no-dangling --strict 2>&1 \
+ | tee dgit-test-fsck.errs
+ ps="${PIPESTATUS[*]}"
+ set -e
+
+ local pats
+ if [ -f $tmp/fsck.expected-errors ]; then
+ pats=(-w -f $tmp/fsck.expected-errors)
+ else
+ test "$ps" = "0 0"
+ fi
+ pats+=(-e 'notice: HEAD points to an unborn branch')
+ pats+=(-e 'notice: No default references')
+
+ set +e
+ grep -v "${pats[@]}" dgit-test-fsck.errs
+ rc=$?
+ set -e
+ case $rc in
+ 1) ;; # no unexpected errors
+ 0) fail "unexpected messages from git-fsck" ;;
+ *) fail "grep of git-fsck failed" ;;
+ esac
+}
+
+t-fscks () {
+ (
+ shopt -s nullglob
+ for d in $tmp/*/.git $tmp/git/*.git; do
+ cd "${d%/.git}"
+ t-git-fsck
+ done
+ )
+}
+
+t-ok () {
+ : '========================================'
+ t-fscks
+ echo ok.
+}
+
t-rm-dput-dropping () {
rm -f $tmp/${p}_${v}_*.upload
}
t-dgit () {
local dgit=${DGIT_TEST-dgit}
- pwd
+ pwd >&2
: '
{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{'
$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+${distro:+-d}}${distro--dtest-dummy} \
+ $DGIT_TEST_OPTS $DGIT_TEST_DEBUG \
-k39B13D8A $t_dgit_xopts "$@"
: '}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}
'
}
+t-dgit-manpage () {
+ local section=$1
+ local page=$2
+ (export LC_ALL=C.UTF-8
+ if [ "$DGIT_TEST_INTREE" ]; then
+ make -C $DGIT_TEST_INTREE $page.$section.view
+ else
+ man $section $page
+ fi)
+}
+
t-diff-nogit () {
diff --exclude=.git --exclude=.pc -ruN $*
}
t-ref-same-exact () {
local name="$1"
- local val=`t-git-get-ref-exact $name`
+ local val; val=`t-git-get-ref-exact $name`
t-ref-same-val "$name" $val
}
t-ref-same () {
local name="$1"
- local val=`t-git-get-ref $name`
+ local val; val=`t-git-get-ref $name`
t-ref-same-val "$name" $val
}
t-ref-head () {
- local val=`git rev-parse HEAD`
+ local val; val=`git rev-parse HEAD`
t-ref-same-val HEAD $val
}
t-sametree-parent () {
local ref=$1
local parent
- local ctree=$(t-format-ref '%T' "$ref")
+ local ctree; ctree=$(t-format-ref '%T' "$ref")
while :; do
local psame=''
for parent in $(t-format-ref '%P' "$ref"); do
- local ptree=$(t-format-ref '%T' "$parent")
+ local ptree; ptree=$(t-format-ref '%T' "$parent")
if [ "x$ptree" = "x$ctree" ]; then
psame+=" $parent"
fi
}
t-check-pushed-master () {
- local master=`t-git-get-ref refs/heads/master`
+ local master; master=`t-git-get-ref refs/heads/master`
if [ x$master = x$t_ref_val ]; then return; fi
if [ x$master = x ]; then fail "failed to push master"; fi
# didn't update master, it must be not FF
- local mbase=`t-git-merge-base $master $t_ref_val`
+ local mbase; mbase=`t-git-merge-base $master $t_ref_val`
if [ x$mbase = x$master ]; then fail "failed to ff master"; fi
}
' <$file
}
+t-defdistro () {
+ export DGIT_TEST_DISTRO=''
+ 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=`t-822-field $incoming_dsc Dgit`
- perl -e '$_=shift @ARGV; die "Dgit $_ ?" unless m/^\w+\b/;' "$val"
+ local val; val=`t-822-field $incoming_dsc Dgit`
+ val=$( perl -e '
+ $_=shift @ARGV;
+ die "Dgit $_ ?" unless m/^\w+\b/;
+ print $&,"\n" or die $!;
+ ' "$val")
t-ref-same-val $incoming_dsc "$val"
}
remotes/dgit/dgit/sid
}
+t-make-badcommit () {
+ badcommit=$(
+ git cat-file commit HEAD | \
+ perl -pe 's/^committer /commiter /' | \
+ git hash-object -w -t commit --stdin
+ )
+ t-expect-fsck-fail $badcommit
+}
+
t-commit () {
local msg=$1
v=${2:-${majorv:-1}.$revision}
}
t-policy-admin () {
+ : '(((((((((((((((((((((((((((((((((((((((('
${DGIT_INFRA_PFX}dgit-repos-admin-debian --repos $tmp/git "$@"
+ : '))))))))))))))))))))))))))))))))))))))))'
}
t-policy-nonexist () {
}
t-policy-periodic () {
+ : '(((((((((((((((((((((((((((((((((((((((('
${DGIT_REPOS_SERVER_TEST-dgit-repos-server} \
test-dummy $drs_dispatch '' --cron
+ : '))))))))))))))))))))))))))))))))))))))))'
}
t-restrict () {
t-chain-test "${t#*-}"
}
+t-git-config dgit.default.old-dsc-distro test-dummy
+
case "$0" in
*/gnupg) ;;
*) t-setup-import gnupg ;;
~ianmdlvl / dgit.git / blobdiff