chiark / gitweb /
Test suite: tartree-edit: gitfetchinfo generates remote/TT-HEAD
[dgit.git] / tests / tartree-edit
index cdaade35b5e0a7daf2e332ea98c9d5d90c7f7084..f4717faed18a60f37270efb906eaa572d97745d2 100755 (executable)
@@ -129,6 +129,7 @@ tryat_gitfetchinfo () {
 
        git for-each-ref --format='%(refname)' refs/remotes >$play/l
        perl -w -ne '
+           our %remerge;
            use strict;
            chomp;
            next unless m#^refs/remotes/([^/]+)/#;
@@ -141,13 +142,18 @@ tryat_gitfetchinfo () {
            $remerge{"@ab"} = 1;
            print "update refs/remotes/$_/$rhs $old\n" or die $! foreach @ab;
            print "delete $old\n" or die $!;
-       ' <$play/l >$play/unmerge
+           END {
+               open REMERGE, ">&3" or die $!;
+               print REMERGE "$_\n" or die $! foreach sort keys %remerge;
+               close REMERGE or die $!;
+           }
+       ' <$play/l >$play/unmerge 3>$play/remerge
        git update-ref --stdin <$play/unmerge
 
        git remote remove "$remote" 2>/dev/null ||:
        git remote add "$remote" $innerwd
        git fetch --no-tags -p "$remote" \
-               +"HEAD:refs/remotes/$remote/HEAD"
+               +"HEAD:refs/remotes/$remote/TT-HEAD"
        cd $innerwd
        GIT_AUTHOR_DATE=$(git log -n1 --pretty=format:'%ai')
        GIT_COMMITTER_DATE=$GIT_AUTHOR_DATE
@@ -160,6 +166,15 @@ tryat_gitfetchinfo () {
        git fetch --no-tags "$remote" --refmap \
                +"refs/*:refs/remotes/$remote/*" \
                +"refs/*:refs/remotes/$remote/*"
+
+       exec 3<$play/remerge
+       # $play will be destroyed by what follows, but we have
+       # an fd open onto remerge, so this will work
+       while read <&3 a b; do
+             echo "Updating gitfetchinfo-merge $a $b"
+             "$0" gitfetchinfo-merge $a $b
+       done
+
        exit 0
 }