(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "pushing to a repository using the atomic push option">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (FunctionDef mk_repo_pair []
    (AndOr OP_AND_IF
      (Com {[LIT_CHARS rm]} {[LIT_CHARS -rf]} {[LIT_CHARS workbench]} {[LIT_CHARS upstream]})
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS test_create_repo]} {[LIT_CHARS upstream]})
        (AndOr OP_AND_IF
          (Com {[LIT_CHARS test_create_repo]} {[LIT_CHARS workbench]})
          (AndOr OP_AND_IF
            (Subshell
              (AndOr OP_AND_IF
                (Com {[LIT_CHARS cd]} {[LIT_CHARS upstream]})
                (Com {[LIT_CHARS git]} {[LIT_CHARS config]} {[LIT_CHARS receive.denyCurrentBranch]} {[LIT_CHARS warn]})
              )
            )
            (Subshell
              (AndOr OP_AND_IF
                (Com {[LIT_CHARS cd]} {[LIT_CHARS workbench]})
                (Com {[LIT_CHARS git]} {[LIT_CHARS remote]} {[LIT_CHARS add]} {[LIT_CHARS up]} {[LIT_CHARS ../upstream]})
              )
            )
          )
        )
      )
    )
  )
  (FunctionDef test_refs []
    (AndOr OP_AND_IF
      (Com {[LIT_CHARS test]} {[VarSub #]} {[LIT_OTHER "="]} {[LIT_CHARS 2]})
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS git]} {[LIT_CHARS -C]} {[LIT_CHARS upstream]} {[LIT_CHARS rev-parse]} {[LIT_CHARS --verify]} {[DQ [VarSub 1]]}
          <
          (FilenameRedirectNode filename={[LIT_CHARS expect]} <REDIR_GREAT ">"> 1),
          >
        )
        (AndOr OP_AND_IF
          (Com {[LIT_CHARS git]} {[LIT_CHARS -C]} {[LIT_CHARS workbench]} {[LIT_CHARS rev-parse]} {[LIT_CHARS --verify]} {[DQ [VarSub 2]]}
            <
            (FilenameRedirectNode filename={[LIT_CHARS actual]} <REDIR_GREAT ">"> 1),
            >
          )
          (Com {[LIT_CHARS test_cmp]} {[LIT_CHARS expect]} {[LIT_CHARS actual]})
        )
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "atomic push works for a single branch">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmk_repo_pair &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd workbench &&\n"> <LIT_CHARS "\t\ttest_commit one &&\n"> <LIT_CHARS "\t\tgit push --mirror up &&\n"> <LIT_CHARS "\t\ttest_commit two &&\n"> <LIT_CHARS "\t\tgit push --atomic up master\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\ttest_refs master master\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "atomic push works for two branches">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmk_repo_pair &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd workbench &&\n"> <LIT_CHARS "\t\ttest_commit one &&\n"> <LIT_CHARS "\t\tgit branch second &&\n"> <LIT_CHARS "\t\tgit push --mirror up &&\n"> <LIT_CHARS "\t\ttest_commit two &&\n"> <LIT_CHARS "\t\tgit checkout second &&\n"> <LIT_CHARS "\t\ttest_commit three &&\n"> <LIT_CHARS "\t\tgit push --atomic up master second\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\ttest_refs master master &&\n"> <LIT_CHARS "\ttest_refs second second\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "atomic push works in combination with --mirror">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmk_repo_pair &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd workbench &&\n"> <LIT_CHARS "\t\ttest_commit one &&\n"> <LIT_CHARS "\t\tgit checkout -b second &&\n"> <LIT_CHARS "\t\ttest_commit two &&\n"> <LIT_CHARS "\t\tgit push --atomic --mirror up\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\ttest_refs master master &&\n"> <LIT_CHARS "\ttest_refs second second\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "atomic push works in combination with --force">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmk_repo_pair &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd workbench &&\n"> <LIT_CHARS "\t\ttest_commit one &&\n"> <LIT_CHARS "\t\tgit branch second master &&\n"> <LIT_CHARS "\t\ttest_commit two_a &&\n"> <LIT_CHARS "\t\tgit checkout second &&\n"> <LIT_CHARS "\t\ttest_commit two_b &&\n"> <LIT_CHARS "\t\ttest_commit three_b &&\n"> <LIT_CHARS "\t\ttest_commit four &&\n"> <LIT_CHARS "\t\tgit push --mirror up &&\n"> <LIT_CHARS "\t\t# The actual test is below\n"> <LIT_CHARS "\t\tgit checkout master &&\n"> <LIT_CHARS "\t\ttest_commit three_a &&\n"> <LIT_CHARS "\t\tgit checkout second &&\n"> <LIT_CHARS "\t\tgit reset --hard HEAD^ &&\n"> <LIT_CHARS "\t\tgit push --force --atomic up master second\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\ttest_refs master master &&\n"> <LIT_CHARS "\ttest_refs second second\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "atomic push fails if one branch fails">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmk_repo_pair &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd workbench &&\n"> <LIT_CHARS "\t\ttest_commit one &&\n"> <LIT_CHARS "\t\tgit checkout -b second master &&\n"> <LIT_CHARS "\t\ttest_commit two &&\n"> <LIT_CHARS "\t\ttest_commit three &&\n"> <LIT_CHARS "\t\ttest_commit four &&\n"> <LIT_CHARS "\t\tgit push --mirror up &&\n"> <LIT_CHARS "\t\tgit reset --hard HEAD~2 &&\n"> <LIT_CHARS "\t\ttest_commit five &&\n"> <LIT_CHARS "\t\tgit checkout master &&\n"> <LIT_CHARS "\t\ttest_commit six &&\n"> <LIT_CHARS "\t\ttest_must_fail git push --atomic --all up\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\ttest_refs master HEAD@{7} &&\n"> <LIT_CHARS "\ttest_refs second HEAD@{4}\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "atomic push fails if one tag fails remotely">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# prepare the repo\n"> <LIT_CHARS "\tmk_repo_pair &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd workbench &&\n"> <LIT_CHARS "\t\ttest_commit one &&\n"> <LIT_CHARS "\t\tgit checkout -b second master &&\n"> <LIT_CHARS "\t\ttest_commit two &&\n"> <LIT_CHARS "\t\tgit push --mirror up\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\t# a third party modifies the server side:\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd upstream &&\n"> <LIT_CHARS "\t\tgit checkout second &&\n"> <LIT_CHARS "\t\tgit tag test_tag second\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\t# see if we can now push both branches.\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd workbench &&\n"> <LIT_CHARS "\t\tgit checkout master &&\n"> <LIT_CHARS "\t\ttest_commit three &&\n"> <LIT_CHARS "\t\tgit checkout second &&\n"> <LIT_CHARS "\t\ttest_commit four &&\n"> <LIT_CHARS "\t\tgit tag test_tag &&\n"> <LIT_CHARS "\t\ttest_must_fail git push --tags --atomic up master second\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\ttest_refs master HEAD@{3} &&\n"> <LIT_CHARS "\ttest_refs second HEAD@{1}\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "atomic push obeys update hook preventing a branch to be pushed">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmk_repo_pair &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd workbench &&\n"> <LIT_CHARS "\t\ttest_commit one &&\n"> <LIT_CHARS "\t\tgit checkout -b second master &&\n"> <LIT_CHARS "\t\ttest_commit two &&\n"> <LIT_CHARS "\t\tgit push --mirror up\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd upstream &&\n"> <LIT_CHARS "\t\tHOOKDIR=\"$(git rev-parse --git-dir)/hooks\" &&\n"> <LIT_CHARS "\t\tHOOK=\"$HOOKDIR/update\" &&\n"> <LIT_CHARS "\t\tmkdir -p \"$HOOKDIR\" &&\n"> <LIT_CHARS "\t\twrite_script \"$HOOK\" <<-\\EOF\n"> <LIT_CHARS "\t\t\t# only allow update to master from now on\n"> <LIT_CHARS "\t\t\ttest \"$1\" = \"refs/heads/master\"\n"> <LIT_CHARS "\t\tEOF\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd workbench &&\n"> <LIT_CHARS "\t\tgit checkout master &&\n"> <LIT_CHARS "\t\ttest_commit three &&\n"> <LIT_CHARS "\t\tgit checkout second &&\n"> <LIT_CHARS "\t\ttest_commit four &&\n"> <LIT_CHARS "\t\ttest_must_fail git push --atomic up master second\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\ttest_refs master HEAD@{3} &&\n"> <LIT_CHARS "\ttest_refs second HEAD@{1}\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "atomic push is not advertised if configured">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmk_repo_pair &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd upstream\n"> <LIT_CHARS "\t\tgit config receive.advertiseatomic 0\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd workbench &&\n"> <LIT_CHARS "\t\ttest_commit one &&\n"> <LIT_CHARS "\t\tgit push --mirror up &&\n"> <LIT_CHARS "\t\ttest_commit two &&\n"> <LIT_CHARS "\t\ttest_must_fail git push --atomic up master\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\ttest_refs master HEAD@{1}\n">]})
  (Com {[LIT_CHARS test_done]})
)