(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "See why rewinding head breaks send-pack\n"> <LIT_CHARS "\n">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('cnt', {[LIT_CHARS 64]})])
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS setup]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tmkdir mozart mozart/is &&\n"> <LIT_CHARS "\techo \"Commit #0\" >mozart/is/pink &&\n"> <LIT_CHARS "\tgit update-index --add mozart/is/pink &&\n"> <LIT_CHARS "\ttree=$(git write-tree) &&\n"> <LIT_CHARS "\tcommit=$(echo \"Commit #0\" | git commit-tree $tree) &&\n"> <LIT_CHARS "\tzero=$commit &&\n"> <LIT_CHARS "\tparent=$zero &&\n"> <LIT_CHARS "\ti=0 &&\n"> <LIT_CHARS "\twhile test $i -le $cnt\n"> <LIT_CHARS "\tdo\n"> <LIT_CHARS "\t    i=$(($i+1)) &&\n"> <LIT_CHARS "\t    test_tick &&\n"> <LIT_CHARS "\t    echo \"Commit #$i\" >mozart/is/pink &&\n"> <LIT_CHARS "\t    git update-index --add mozart/is/pink &&\n"> <LIT_CHARS "\t    tree=$(git write-tree) &&\n"> <LIT_CHARS "\t    commit=$(echo \"Commit #$i\" | git commit-tree $tree -p $parent) &&\n"> <LIT_CHARS "\t    git update-ref refs/tags/commit$i $commit &&\n"> <LIT_CHARS "\t    parent=$commit || return 1\n"> <LIT_CHARS "\tdone &&\n"> <LIT_CHARS "\tgit update-ref HEAD \"$commit\" &&\n"> <LIT_CHARS "\tgit clone ./. victim &&\n"> <LIT_CHARS "\t( cd victim && git config receive.denyCurrentBranch warn && git log ) &&\n"> <LIT_CHARS "\tgit update-ref HEAD \"$zero\" &&\n"> <LIT_CHARS "\tparent=$zero &&\n"> <LIT_CHARS "\ti=0 &&\n"> <LIT_CHARS "\twhile test $i -le $cnt\n"> <LIT_CHARS "\tdo\n"> <LIT_CHARS "\t    i=$(($i+1)) &&\n"> <LIT_CHARS "\t    test_tick &&\n"> <LIT_CHARS "\t    echo \"Rebase #$i\" >mozart/is/pink &&\n"> <LIT_CHARS "\t    git update-index --add mozart/is/pink &&\n"> <LIT_CHARS "\t    tree=$(git write-tree) &&\n"> <LIT_CHARS "\t    commit=$(echo \"Rebase #$i\" | git commit-tree $tree -p $parent) &&\n"> <LIT_CHARS "\t    git update-ref refs/tags/rebase$i $commit &&\n"> <LIT_CHARS "\t    parent=$commit || return 1\n"> <LIT_CHARS "\tdone &&\n"> <LIT_CHARS "\tgit update-ref HEAD \"$commit\" &&\n"> <LIT_CHARS "\techo Rebase &&\n"> <LIT_CHARS "\tgit log">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pack the source repository">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit repack -a -d &&\n"> <LIT_CHARS "\tgit prune\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pack the destination repository">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "    (\n"> <LIT_CHARS "\tcd victim &&\n"> <LIT_CHARS "\tgit repack -a -d &&\n"> <LIT_CHARS "\tgit prune\n"> <LIT_CHARS "    )\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "refuse pushing rewound head without --force">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tpushed_head=$(git rev-parse --verify master) &&\n"> <LIT_CHARS "\tvictim_orig=$(cd victim && git rev-parse --verify master) &&\n"> <LIT_CHARS "\ttest_must_fail git send-pack ./victim master &&\n"> <LIT_CHARS "\tvictim_head=$(cd victim && git rev-parse --verify master) &&\n"> <LIT_CHARS "\ttest \"$victim_head\" = \"$victim_orig\" &&\n"> <LIT_CHARS "\t# this should update\n"> <LIT_CHARS "\tgit send-pack --force ./victim master &&\n"> <LIT_CHARS "\tvictim_head=$(cd victim && git rev-parse --verify master) &&\n"> <LIT_CHARS "\ttest \"$victim_head\" = \"$pushed_head\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "push can be used to delete a ref">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t( cd victim && git branch extra master ) &&\n"> <LIT_CHARS "\tgit send-pack ./victim :extra master &&\n"> <LIT_CHARS "\t( cd victim &&\n"> <LIT_CHARS "\t  test_must_fail git rev-parse --verify extra )\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "refuse deleting push with denyDeletes">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t    cd victim &&\n"> <LIT_CHARS "\t    ( git branch -D extra || : ) &&\n"> <LIT_CHARS "\t    git config receive.denyDeletes true &&\n"> <LIT_CHARS "\t    git branch extra master\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\ttest_must_fail git send-pack ./victim :extra master\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cannot override denyDeletes with git -c send-pack">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd victim &&\n"> <LIT_CHARS "\t\ttest_might_fail git branch -D extra &&\n"> <LIT_CHARS "\t\tgit config receive.denyDeletes true &&\n"> <LIT_CHARS "\t\tgit branch extra master\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\ttest_must_fail git -c receive.denyDeletes=false \\\n"> <LIT_CHARS "\t\t\t\t\tsend-pack ./victim :extra master\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "override denyDeletes with git -c receive-pack">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd victim &&\n"> <LIT_CHARS "\t\ttest_might_fail git branch -D extra &&\n"> <LIT_CHARS "\t\tgit config receive.denyDeletes true &&\n"> <LIT_CHARS "\t\tgit branch extra master\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgit send-pack \\\n"> <LIT_CHARS "\t\t--receive-pack=\"git -c receive.denyDeletes=false receive-pack\" \\\n"> <LIT_CHARS "\t\t./victim :extra master\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "denyNonFastforwards trumps --force">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t    cd victim &&\n"> <LIT_CHARS "\t    ( git branch -D extra || : ) &&\n"> <LIT_CHARS "\t    git config receive.denyNonFastforwards true\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tvictim_orig=$(cd victim && git rev-parse --verify master) &&\n"> <LIT_CHARS "\ttest_must_fail git send-pack --force ./victim master^:master &&\n"> <LIT_CHARS "\tvictim_head=$(cd victim && git rev-parse --verify master) &&\n"> <LIT_CHARS "\ttest \"$victim_orig\" = \"$victim_head\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "send-pack --all sends all branches">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# make sure we have at least 2 branches with different\n"> <LIT_CHARS "\t# values, just to be thorough\n"> <LIT_CHARS "\tgit branch other-branch HEAD^ &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit init --bare all.git &&\n"> <LIT_CHARS "\tgit send-pack --all all.git &&\n"> <LIT_CHARS "\tgit for-each-ref refs/heads >expect &&\n"> <LIT_CHARS "\tgit -C all.git for-each-ref refs/heads >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "push --all excludes remote-tracking hierarchy">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir parent &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t    cd parent &&\n"> <LIT_CHARS "\t    git init && : >file && git add file && git commit -m add\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgit clone parent child &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t    cd child && git push --all\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t    cd parent &&\n"> <LIT_CHARS "\t    test -z \"$(git for-each-ref refs/remotes/origin)\"\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "receive-pack runs auto-gc in remote repo">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -rf parent child &&\n"> <LIT_CHARS "\tgit init parent &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t    # Setup a repo with 2 packs\n"> <LIT_CHARS "\t    cd parent &&\n"> <LIT_CHARS "\t    echo \"Some text\" >file.txt &&\n"> <LIT_CHARS "\t    git add . &&\n"> <LIT_CHARS "\t    git commit -m \"Initial commit\" &&\n"> <LIT_CHARS "\t    git repack -adl &&\n"> <LIT_CHARS "\t    echo \"Some more text\" >>file.txt &&\n"> <LIT_CHARS "\t    git commit -a -m \"Second commit\" &&\n"> <LIT_CHARS "\t    git repack\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tcp -R parent child &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t    # Set the child to auto-pack if more than one pack exists\n"> <LIT_CHARS "\t    cd child &&\n"> <LIT_CHARS "\t    git config gc.autopacklimit 1 &&\n"> <LIT_CHARS "\t    git config gc.autodetach false &&\n"> <LIT_CHARS "\t    git branch test_auto_gc &&\n"> <LIT_CHARS "\t    # And create a file that follows the temporary object naming\n"> <LIT_CHARS "\t    # convention for the auto-gc to remove\n"> <LIT_CHARS "\t    : >.git/objects/tmp_test_object &&\n"> <LIT_CHARS "\t    test-chmtime =-1209601 .git/objects/tmp_test_object\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t    cd parent &&\n"> <LIT_CHARS "\t    echo \"Even more text\" >>file.txt &&\n"> <LIT_CHARS "\t    git commit -a -m \"Third commit\" &&\n"> <LIT_CHARS "\t    git send-pack ../child HEAD:refs/heads/test_auto_gc\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\ttest ! -e child/.git/objects/tmp_test_object\n">]})
  (FunctionDef rewound_push_setup []
    (AndOr OP_AND_IF
      (Com {[LIT_CHARS rm]} {[LIT_CHARS -rf]} {[LIT_CHARS parent]} {[LIT_CHARS child]})
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS mkdir]} {[LIT_CHARS parent]})
        (AndOr OP_AND_IF
          (Subshell
            (AndOr OP_AND_IF
              (Com {[LIT_CHARS cd]} {[LIT_CHARS parent]})
              (AndOr OP_AND_IF
                (Com {[LIT_CHARS git]} {[LIT_CHARS init]})
                (AndOr OP_AND_IF
                  (Com {[LIT_CHARS echo]} {[LIT_CHARS one]}
                    <
                    (FilenameRedirectNode filename={[LIT_CHARS file]} <REDIR_GREAT ">"> 1),
                    >
                  )
                  (AndOr OP_AND_IF
                    (Com {[LIT_CHARS git]} {[LIT_CHARS add]} {[LIT_CHARS file]})
                    (AndOr OP_AND_IF
                      (Com {[LIT_CHARS git]} {[LIT_CHARS commit]} {[LIT_CHARS -m]} {[LIT_CHARS one]})
                      (AndOr OP_AND_IF
                        (Com {[LIT_CHARS git]} {[LIT_CHARS config]} {[LIT_CHARS receive.denyCurrentBranch]} {[LIT_CHARS warn]})
                        (AndOr OP_AND_IF
                          (Com {[LIT_CHARS echo]} {[LIT_CHARS two]}
                            <
                            (FilenameRedirectNode filename={[LIT_CHARS file]} <REDIR_GREAT ">"> 1),
                            >
                          )
                          (Com {[LIT_CHARS git]} {[LIT_CHARS commit]} {[LIT_CHARS -a]} {[LIT_CHARS -m]} {[LIT_CHARS two]})
                        )
                      )
                    )
                  )
                )
              )
            )
          )
          (AndOr OP_AND_IF
            (Com {[LIT_CHARS git]} {[LIT_CHARS clone]} {[LIT_CHARS parent]} {[LIT_CHARS child]})
            (Subshell
              (AndOr OP_AND_IF
                (Com {[LIT_CHARS cd]} {[LIT_CHARS child]})
                (Com {[LIT_CHARS git]} {[LIT_CHARS reset]} {[LIT_CHARS --hard]} {[LIT_CHARS HEAD] [LIT_OTHER "^"]})
              )
            )
          )
        )
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pushing explicit refspecs respects forcing">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trewound_push_setup &&\n"> <LIT_CHARS "\tparent_orig=$(cd parent && git rev-parse --verify master) &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t    cd child &&\n"> <LIT_CHARS "\t    test_must_fail git send-pack ../parent \\\n"> <LIT_CHARS "\t\trefs/heads/master:refs/heads/master\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tparent_head=$(cd parent && git rev-parse --verify master) &&\n"> <LIT_CHARS "\ttest \"$parent_orig\" = \"$parent_head\" &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t    cd child &&\n"> <LIT_CHARS "\t    git send-pack ../parent \\\n"> <LIT_CHARS "\t        +refs/heads/master:refs/heads/master\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tparent_head=$(cd parent && git rev-parse --verify master) &&\n"> <LIT_CHARS "\tchild_head=$(cd child && git rev-parse --verify master) &&\n"> <LIT_CHARS "\ttest \"$parent_head\" = \"$child_head\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pushing wildcard refspecs respects forcing">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trewound_push_setup &&\n"> <LIT_CHARS "\tparent_orig=$(cd parent && git rev-parse --verify master) &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t    cd child &&\n"> <LIT_CHARS "\t    test_must_fail git send-pack ../parent \\\n"> <LIT_CHARS "\t        \"refs/heads/*:refs/heads/*\"\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tparent_head=$(cd parent && git rev-parse --verify master) &&\n"> <LIT_CHARS "\ttest \"$parent_orig\" = \"$parent_head\" &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t    cd child &&\n"> <LIT_CHARS "\t    git send-pack ../parent \\\n"> <LIT_CHARS "\t        \"+refs/heads/*:refs/heads/*\"\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tparent_head=$(cd parent && git rev-parse --verify master) &&\n"> <LIT_CHARS "\tchild_head=$(cd child && git rev-parse --verify master) &&\n"> <LIT_CHARS "\ttest \"$parent_head\" = \"$child_head\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "deny pushing to delete current branch">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trewound_push_setup &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t    cd child &&\n"> <LIT_CHARS "\t    test_must_fail git send-pack ../parent :refs/heads/master 2>errs\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_done]})
)