po4a: pairwise-pocheck: Force it to be run sometimes

[dgit.git] / tests / lib-core

diff --git a/tests/lib-core b/tests/lib-core
index 98ae85f5e8d1026ec5c6180fe47e8fabf8425588..4550b9ec9d091b3b8d798c24b62576da521745ef 100644 (file)
--- a/tests/lib-core
+++ b/tests/lib-core
@@ -8,9 +8,40 @@ fail () {
 t-set-intree () {
        if [ "x$DGIT_TEST_INTREE" = x ]; then return; fi
        : ${DGIT_TEST:=$DGIT_TEST_INTREE/dgit}
 t-set-intree () {
        if [ "x$DGIT_TEST_INTREE" = x ]; then return; fi
        : ${DGIT_TEST:=$DGIT_TEST_INTREE/dgit}

+       : ${DGIT_BADCOMMIT_FIXUP:=$DGIT_TEST_INTREE/dgit-badcommit-fixup}

        : ${DGIT_REPOS_SERVER_TEST:=$DGIT_TEST_INTREE/infra/dgit-repos-server}
        : ${DGIT_SSH_DISPATCH_TEST:=$DGIT_TEST_INTREE/infra/dgit-ssh-dispatch}
        : ${DGIT_INFRA_PFX:=$DGIT_TEST_INTREE${DGIT_TEST_INTREE:+/infra/}}
        : ${DGIT_REPOS_SERVER_TEST:=$DGIT_TEST_INTREE/infra/dgit-repos-server}
        : ${DGIT_SSH_DISPATCH_TEST:=$DGIT_TEST_INTREE/infra/dgit-ssh-dispatch}
        : ${DGIT_INFRA_PFX:=$DGIT_TEST_INTREE${DGIT_TEST_INTREE:+/infra/}}

-       export DGIT_TEST DGIT_REPOS_SERVER_TEST DGIT_SSH_DISPATCH_TEST
+       : ${DGIT_GITDEBREBASE_TEST:=$DGIT_TEST_INTREE/git-debrebase}
+       : ${DGIT_MANPAGES_SOURCE_DIR:=$DGIT_TEST_INTREE}
+       export DGIT_TEST DGIT_BADCOMMIT_FIXUP
+       export DGIT_REPOS_SERVER_TEST DGIT_SSH_DISPATCH_TEST
+       export DGIT_MANPAGES_SOURCE_DIR

        export PERLLIB="$DGIT_TEST_INTREE${PERLLIB:+:}${PERLLIB}"
 }
        export PERLLIB="$DGIT_TEST_INTREE${PERLLIB:+:}${PERLLIB}"
 }

+
+t-set-using-tmp () {
+       export HOME=$tmp
+       export DGIT_TEST_DUMMY_DIR=$tmp
+       export DGIT_TEST_TMP=$tmp
+       export GNUPGHOME=$tmp/nonexistent
+       export DEBFULLNAME='dgit test git user'
+       git config --global user.email 'dgit-test@debian.example.net'
+       git config --global user.name "$DEBFULLNAME"
+       git config --global protocol.ext.allow always
+}
+
+t-filter-out-git-hyphen-dir () {
+       local pathent; pathent=$(type -p git-rev-parse ||:)
+       case "$pathent" in '') return ;; esac
+       pathent=${pathent%/*}
+       local path=":$PATH:"
+       path="${path//:$pathent:/}"
+       path="${path#:}"
+       path="${path%:}"
+       PATH="$path"
+}
+
+t-sort () {
+       LC_COLLATE=C sort "$@"
+}