(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "Test remote-helper import and export commands">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (Com {[LIT_CHARS .]} {[DQ [VarSub TEST_DIRECTORY]] [LIT_CHARS /lib-gpg.sh]})
  (FunctionDef compare_refs []
    (AndOr OP_AND_IF
      (Com {[LIT_CHARS git]} {[LIT_CHARS --git-dir] [LIT_OTHER "="] [DQ [VarSub 1][LIT_CHARS /.git]]} {[LIT_CHARS rev-parse]} {[LIT_CHARS --verify]} {[VarSub 2]}
        <
        (FilenameRedirectNode filename={[LIT_CHARS expect]} <REDIR_GREAT ">"> 1),
        >
      )
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS git]} {[LIT_CHARS --git-dir] [LIT_OTHER "="] [DQ [VarSub 3][LIT_CHARS /.git]]} {[LIT_CHARS rev-parse]} {[LIT_CHARS --verify]} {[VarSub 4]}
          <
          (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 "setup repository">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit init server &&\n"> <LIT_CHARS "\t(cd server &&\n"> <LIT_CHARS "\t echo content >file &&\n"> <LIT_CHARS "\t git add file &&\n"> <LIT_CHARS "\t git commit -m one)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cloning from local repo">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit clone \"testgit::${PWD}/server\" local &&\n"> <LIT_CHARS "\ttest_cmp server/file local/file\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "create new commit on remote">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(cd server &&\n"> <LIT_CHARS "\t echo content >>file &&\n"> <LIT_CHARS "\t git commit -a -m two)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pulling from local repo">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(cd local && git pull) &&\n"> <LIT_CHARS "\ttest_cmp server/file local/file\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pushing to local repo">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(cd local &&\n"> <LIT_CHARS "\techo content >>file &&\n"> <LIT_CHARS "\tgit commit -a -m three &&\n"> <LIT_CHARS "\tgit push) &&\n"> <LIT_CHARS "\tcompare_refs local HEAD server HEAD\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "fetch new branch">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(cd server &&\n"> <LIT_CHARS "\t git reset --hard &&\n"> <LIT_CHARS "\t git checkout -b new &&\n"> <LIT_CHARS "\t echo content >>file &&\n"> <LIT_CHARS "\t git commit -a -m five\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\t(cd local &&\n"> <LIT_CHARS "\t git fetch origin new\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tcompare_refs server HEAD local FETCH_HEAD\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "fetch multiple branches">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(cd local &&\n"> <LIT_CHARS "\t git fetch\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tcompare_refs server master local refs/remotes/origin/master &&\n"> <LIT_CHARS "\tcompare_refs server new local refs/remotes/origin/new\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "push when remote has extra refs">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(cd local &&\n"> <LIT_CHARS "\t git reset --hard origin/master &&\n"> <LIT_CHARS "\t echo content >>file &&\n"> <LIT_CHARS "\t git commit -a -m six &&\n"> <LIT_CHARS "\t git push\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tcompare_refs local master server master\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "push new branch by name">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(cd local &&\n"> <LIT_CHARS "\t git checkout -b new-name  &&\n"> <LIT_CHARS "\t echo content >>file &&\n"> <LIT_CHARS "\t git commit -a -m seven &&\n"> <LIT_CHARS "\t git push origin new-name\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tcompare_refs local HEAD server refs/heads/new-name\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "push new branch with old:new refspec">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(cd local &&\n"> <LIT_CHARS "\t git push origin new-name:new-refspec\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tcompare_refs local HEAD server refs/heads/new-refspec\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "push new branch with HEAD:new refspec">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(cd local &&\n"> <LIT_CHARS "\t git checkout new-name\n"> <LIT_CHARS "\t git push origin HEAD:new-refspec-2\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tcompare_refs local HEAD server refs/heads/new-refspec-2\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "push delete branch">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(cd local &&\n"> <LIT_CHARS "\t git push origin :new-name\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\ttest_must_fail git --git-dir=\"server/.git\" \\\n"> <LIT_CHARS "\t rev-parse --verify refs/heads/new-name\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "forced push">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(cd local &&\n"> <LIT_CHARS "\tgit checkout -b force-test &&\n"> <LIT_CHARS "\techo content >> file &&\n"> <LIT_CHARS "\tgit commit -a -m eight &&\n"> <LIT_CHARS "\tgit push origin force-test &&\n"> <LIT_CHARS "\techo content >> file &&\n"> <LIT_CHARS "\tgit commit -a --amend -m eight-modified &&\n"> <LIT_CHARS "\tgit push --force origin force-test\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tcompare_refs local refs/heads/force-test server refs/heads/force-test\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cloning without refspec">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tGIT_REMOTE_TESTGIT_REFSPEC=\"\" \\\n"> <LIT_CHARS "\tgit clone \"testgit::${PWD}/server\" local2 2>error &&\n"> <LIT_CHARS "\tgrep \"This remote helper should implement refspec capability\" error &&\n"> <LIT_CHARS "\tcompare_refs local2 HEAD server HEAD\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pulling without refspecs">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(cd local2 &&\n"> <LIT_CHARS "\tgit reset --hard &&\n"> <LIT_CHARS "\tGIT_REMOTE_TESTGIT_REFSPEC=\"\" git pull 2>../error) &&\n"> <LIT_CHARS "\tgrep \"This remote helper should implement refspec capability\" error &&\n"> <LIT_CHARS "\tcompare_refs local2 HEAD server HEAD\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pushing without refspecs">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished \"(cd local2 && git reset --hard origin)\" &&\n"> <LIT_CHARS "\t(cd local2 &&\n"> <LIT_CHARS "\techo content >>file &&\n"> <LIT_CHARS "\tgit commit -a -m ten &&\n"> <LIT_CHARS "\tGIT_REMOTE_TESTGIT_REFSPEC=\"\" &&\n"> <LIT_CHARS "\texport GIT_REMOTE_TESTGIT_REFSPEC &&\n"> <LIT_CHARS "\ttest_must_fail git push 2>../error) &&\n"> <LIT_CHARS "\tgrep \"remote-helper doesn.t support push; refspec needed\" error\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pulling without marks">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(cd local2 &&\n"> <LIT_CHARS "\tGIT_REMOTE_TESTGIT_NO_MARKS=1 git pull) &&\n"> <LIT_CHARS "\tcompare_refs local2 HEAD server HEAD\n">]})
  (Com {[LIT_CHARS test_expect_failure]} {[SQ <LIT_CHARS "pushing without marks">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished \"(cd local2 && git reset --hard origin)\" &&\n"> <LIT_CHARS "\t(cd local2 &&\n"> <LIT_CHARS "\techo content >>file &&\n"> <LIT_CHARS "\tgit commit -a -m twelve &&\n"> <LIT_CHARS "\tGIT_REMOTE_TESTGIT_NO_MARKS=1 git push) &&\n"> <LIT_CHARS "\tcompare_refs local2 HEAD server HEAD\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "push all with existing object">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(cd local &&\n"> <LIT_CHARS "\tgit branch dup2 master &&\n"> <LIT_CHARS "\tgit push origin --all\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tcompare_refs local dup2 server dup2\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "push ref with existing object">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(cd local &&\n"> <LIT_CHARS "\tgit branch dup master &&\n"> <LIT_CHARS "\tgit push origin dup\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tcompare_refs local dup server dup\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS GPG]} {[SQ <LIT_CHARS "push signed tag">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(cd local &&\n"> <LIT_CHARS "\tgit checkout master &&\n"> <LIT_CHARS "\tgit tag -s -m signed-tag signed-tag &&\n"> <LIT_CHARS "\tgit push origin signed-tag\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tcompare_refs local signed-tag^{} server signed-tag^{} &&\n"> <LIT_CHARS "\ttest_must_fail compare_refs local signed-tag server signed-tag\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS GPG]} {[SQ <LIT_CHARS "push signed tag with signed-tags capability">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(cd local &&\n"> <LIT_CHARS "\tgit checkout master &&\n"> <LIT_CHARS "\tgit tag -s -m signed-tag signed-tag-2 &&\n"> <LIT_CHARS "\tGIT_REMOTE_TESTGIT_SIGNED_TAGS=1 git push origin signed-tag-2\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tcompare_refs local signed-tag-2 server signed-tag-2\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "push update refs">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(cd local &&\n"> <LIT_CHARS "\tgit checkout -b update master &&\n"> <LIT_CHARS "\techo update >>file &&\n"> <LIT_CHARS "\tgit commit -a -m update &&\n"> <LIT_CHARS "\tgit push origin update &&\n"> <LIT_CHARS "\tgit rev-parse --verify remotes/origin/update >expect &&\n"> <LIT_CHARS "\tgit rev-parse --verify testgit/origin/heads/update >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "push update refs disabled by no-private-update">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(cd local &&\n"> <LIT_CHARS "\techo more-update >>file &&\n"> <LIT_CHARS "\tgit commit -a -m more-update &&\n"> <LIT_CHARS "\tgit rev-parse --verify testgit/origin/heads/update >expect &&\n"> <LIT_CHARS "\tGIT_REMOTE_TESTGIT_NO_PRIVATE_UPDATE=t git push origin update &&\n"> <LIT_CHARS "\tgit rev-parse --verify testgit/origin/heads/update >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "push update refs failure">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(cd local &&\n"> <LIT_CHARS "\tgit checkout update &&\n"> <LIT_CHARS "\techo \"update fail\" >>file &&\n"> <LIT_CHARS "\tgit commit -a -m \"update fail\" &&\n"> <LIT_CHARS "\tgit rev-parse --verify testgit/origin/heads/update >expect &&\n"> <LIT_CHARS "\ttest_expect_code 1 env GIT_REMOTE_TESTGIT_FAILURE=\"non-fast forward\" \\\n"> <LIT_CHARS "\t\tgit push origin update &&\n"> <LIT_CHARS "\tgit rev-parse --verify testgit/origin/heads/update >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n"> <LIT_CHARS "\t)\n">]})
  (FunctionDef clean_mark []
    (Pipeline
      (Com {[LIT_CHARS cut]} {[LIT_CHARS -f]} {[LIT_CHARS 2]} {[LIT_CHARS -d]} {[SQ <LIT_CHARS " ">]} {[DQ [VarSub 1]]})
      (Com {[LIT_CHARS git]} {[LIT_CHARS cat-file]} {[LIT_CHARS --batch-check]})
      (Com {[LIT_CHARS grep]} {[LIT_CHARS commit]})
      (Com {[LIT_CHARS sort]}
        <
        (FilenameRedirectNode filename={[ComSub (Com {[LIT_CHARS basename]} {[DQ [VarSub 1]]})]} <REDIR_GREAT ">"> 1),
        >
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "proper failure checks for fetching">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(cd local &&\n"> <LIT_CHARS "\ttest_must_fail env GIT_REMOTE_TESTGIT_FAILURE=1 git fetch 2>error &&\n"> <LIT_CHARS "\tcat error &&\n"> <LIT_CHARS "\tgrep -q \"Error while running fast-import\" error\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "proper failure checks for pushing">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished \"rm -rf local/git.marks local/testgit.marks\" &&\n"> <LIT_CHARS "\t(cd local &&\n"> <LIT_CHARS "\tgit checkout -b crash master &&\n"> <LIT_CHARS "\techo crash >>file &&\n"> <LIT_CHARS "\tgit commit -a -m crash &&\n"> <LIT_CHARS "\ttest_must_fail env GIT_REMOTE_TESTGIT_FAILURE=1 git push --all &&\n"> <LIT_CHARS "\tclean_mark \".git/testgit/origin/git.marks\" &&\n"> <LIT_CHARS "\tclean_mark \".git/testgit/origin/testgit.marks\" &&\n"> <LIT_CHARS "\ttest_cmp git.marks testgit.marks\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "push messages">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(cd local &&\n"> <LIT_CHARS "\tgit checkout -b new_branch master &&\n"> <LIT_CHARS "\techo new >>file &&\n"> <LIT_CHARS "\tgit commit -a -m new &&\n"> <LIT_CHARS "\tgit push origin new_branch &&\n"> <LIT_CHARS "\tgit fetch origin &&\n"> <LIT_CHARS "\techo new >>file &&\n"> <LIT_CHARS "\tgit commit -a -m new &&\n"> <LIT_CHARS "\tgit push origin new_branch 2> msg &&\n"> <LIT_CHARS "\t! grep \"\\[new branch\\]\" msg\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "fetch HEAD">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(cd server &&\n"> <LIT_CHARS "\tgit checkout master &&\n"> <LIT_CHARS "\techo more >>file &&\n"> <LIT_CHARS "\tgit commit -a -m more\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\t(cd local &&\n"> <LIT_CHARS "\tgit fetch origin HEAD\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tcompare_refs server HEAD local FETCH_HEAD\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "fetch url">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(cd server &&\n"> <LIT_CHARS "\tgit checkout master &&\n"> <LIT_CHARS "\techo more >>file &&\n"> <LIT_CHARS "\tgit commit -a -m more\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\t(cd local &&\n"> <LIT_CHARS "\tgit fetch \"testgit::${PWD}/../server\"\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tcompare_refs server HEAD local FETCH_HEAD\n">]})
  (Com {[LIT_CHARS test_done]})
)