local dscf=${p}_$2.dsc
rm -f $tmp/mirror/pool/main/${p}_*
ln $troot/pkg-srcs/${p}_${2%-*}* $tmp/mirror/pool/main/
- t-archive-query
+ t-archive-query $suite
rm -rf $tmp/extract
mkdir $tmp/extract
(set -e; cd $tmp/extract; dpkg-source -x ../mirror/pool/main/$dscf)
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"
+ t-git-fsck
+ done
+ )
+}
+
+t-ok () {
+ t-fscks
+ echo ok.
+}
+
t-rm-dput-dropping () {
rm -f $tmp/${p}_${v}_*.upload
}
t-tstunt dpkg-parsechangelog Dpkg/Changelog/Parse.pm
}
+t-tstunt-lintian () {
+ t-tstunt lintian
+}
+
+t-tstunt-debuild () {
+ : ${DGIT_TEST_REAL_DEBUILD:=$(type -p debuild)}
+ export DGIT_TEST_REAL_DEBUILD
+ t-tstunt debuild
+}
+
t-incoming-dsc () {
local dsc=${p}_${v}.dsc
incoming_dsc=$tmp/incoming/$dsc
t-commit () {
local msg=$1
v=${2:-${majorv:-1}.$revision}
- dch -v$v --distribution ${3:-unstable} "$1"
+ dch --force-distribution -v$v --distribution ${3:-unstable} "$1"
git add debian/changelog
debcommit
revision=$(( ${revision-0} + 1 ))