t-git-none
t-worktree $v
cd $p
- git branch -m dgit/sid master
- git remote rm dgit
+ if ! git-show-ref --verify --quiet refs/heads/master; then
+ git branch -m dgit/sid master
+ git remote rm dgit
+ fi
cd ..
}
(set -e; cd $tmp/extract; dpkg-source -x ../mirror/pool/main/$dscf)
}
+t-git-dir-time-passes () {
+ touch -d 'last year' $tmp/git/$p.git
+}
+
+t-git-dir-check () {
+ local gitdir=$tmp/git/$p.git
+ case "$1" in
+ enoent)
+ if test -e "$gitdir"; then fail "$gitdir exists"; fi
+ return
+ ;;
+ public) wantstat='7[75]5' ;;
+ secret) wantstat='7[70]0' ;;
+ *) fail "$1 t-git-dir-check ?" ;;
+ esac
+ gotstat=`stat -c%a $gitdir`
+ case "$gotstat" in
+ *$wantstat) return ;;
+ *) fail "$gitdir has mode $gotstat, expected $wantstat" ;;
+ esac
+}
+
t-dgit () {
local dgit=${DGIT_TEST-dgit}
: '
t-policy-admin create-db
}
+t-policy-periodic () {
+ ${DGIT_REPOS_SERVER_TEST-dgit-repos-server} \
+ test-dummy $drs_dispatch '' --cron
+}
+
t-chain-test () {
local ct=$1
local d=${0%/*}