X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=tests%2Ftartree-edit;h=14eec68e3e63fefbc68362c6264e8a698debee46;hb=a9561076491b74351adbf62c153fb22ea79ba255;hp=2e0c01791b8f6a77352ea257f63c25043cf68c31;hpb=3aaec06aaaaa6a500d99437317c82b316163e397;p=dgit.git diff --git a/tests/tartree-edit b/tests/tartree-edit index 2e0c0179..14eec68e 100755 --- a/tests/tartree-edit +++ b/tests/tartree-edit @@ -4,8 +4,11 @@ fail () { echo >&2 "$0: $*"; exit 1; } case "$#.$1" in 2.edit|2.done) mode="$1"; arg="$2" ;; -2.-*) fail "no options understood" ;; -*) fail "usage: tartree-edit edit|done DIRECTORY" ;; +3.gitfetchinfo) mode="$1"; arg="$2"; remote="$3" ;; +?.-*) fail "no options understood" ;; +*) fail "usage: + tartree-edit edit|done DIRECTORY|TARBALL + tartree-edit gitfetchinfo DIRECTORY|TARBALL REMOTE" ;; esac case "$arg" in @@ -39,6 +42,51 @@ tryat_edit () { fi } +gitfetchinfo_perhaps_commit () { + local m="$1" + set +e + git diff --cached --quiet --exit-code HEAD + local rc=$? + set -e + case "$rc" in + 0) return ;; + 1) git commit --allow-empty --author='tartree-edit <>' -m "$m" ;; + *) fail "git diff failed ($rc)" ;; + esac +} + +tryat_gitfetchinfo () { + local wd=$(pwd) + case "$wd" in + *.edit) fail "bad idea to run gitfetchinfo into a .edit tree!" ;; + esac + local play=.git/tartree-edit-work + rm -rf $play + mkdir $play + if test -d "$b.edit"; then + cp -a "$b.edit"/. "$play"/. + else + exec 3<"$b.tar" + tar -C $play -f - <&3 -x + exec 3<&- + fi + local innerwd=$play/* + git remote remove "$remote" 2>/dev/null ||: + git remote add "$remote" $innerwd + git fetch --no-tags -p "$remote" \ + +"HEAD:refs/remotes/$remote/HEAD" + cd $innerwd + git checkout -b WORKTREE + gitfetchinfo_perhaps_commit INDEX + git add -Af . + gitfetchinfo_perhaps_commit WORKTREE + cd ../../.. + git fetch --no-tags "$remote" --refmap \ + +"refs/*:refs/remotes/$remote/*" \ + +"refs/*:refs/remotes/$remote/*" + exit 0 +} + tryat_done () { local b="$1" if test -d "$b.edit"; then