(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "basic git merge-index / git-merge-one-file tests">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup diverging branches">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tfor i in 1 2 3 4 5 6 7 8 9 10; do\n"> <LIT_CHARS "\t\techo $i\n"> <LIT_CHARS "\tdone >file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\tgit commit -m base &&\n"> <LIT_CHARS "\tgit tag base &&\n"> <LIT_CHARS "\tsed s/2/two/ <file >tmp &&\n"> <LIT_CHARS "\tmv tmp file &&\n"> <LIT_CHARS "\tgit commit -a -m two &&\n"> <LIT_CHARS "\tgit tag two &&\n"> <LIT_CHARS "\tgit checkout -b other HEAD^ &&\n"> <LIT_CHARS "\tsed s/10/ten/ <file >tmp &&\n"> <LIT_CHARS "\tmv tmp file &&\n"> <LIT_CHARS "\tgit commit -a -m ten &&\n"> <LIT_CHARS "\tgit tag ten\n">]})
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expect-merged]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "1\n"] [LIT_CHARS "two\n"] [LIT_CHARS "3\n"] [LIT_CHARS "4\n"] [LIT_CHARS "5\n"] [LIT_CHARS "6\n"] [LIT_CHARS "7\n"] [LIT_CHARS "8\n"] [LIT_CHARS "9\n"] [LIT_CHARS "ten\n"]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "read-tree does not resolve content merge">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit read-tree -i -m base ten two &&\n"> <LIT_CHARS "\techo file >expect &&\n"> <LIT_CHARS "\tgit diff-files --name-only --diff-filter=U >unmerged &&\n"> <LIT_CHARS "\ttest_cmp expect unmerged\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git merge-index git-merge-one-file resolves">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit merge-index git-merge-one-file -a &&\n"> <LIT_CHARS "\tgit diff-files --name-only --diff-filter=U >unmerged &&\n"> <LIT_CHARS "\t>expect &&\n"> <LIT_CHARS "\ttest_cmp expect unmerged &&\n"> <LIT_CHARS "\ttest_cmp expect-merged file &&\n"> <LIT_CHARS "\tgit cat-file blob :file >file-index &&\n"> <LIT_CHARS "\ttest_cmp expect-merged file-index\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup bare merge">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit clone --bare . bare.git &&\n"> <LIT_CHARS "\t(cd bare.git &&\n"> <LIT_CHARS "\t GIT_INDEX_FILE=$PWD/merge.index &&\n"> <LIT_CHARS "\t export GIT_INDEX_FILE &&\n"> <LIT_CHARS "\t git read-tree -i -m base ten two\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "merge-one-file fails without a work tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(cd bare.git &&\n"> <LIT_CHARS "\t GIT_INDEX_FILE=$PWD/merge.index &&\n"> <LIT_CHARS "\t export GIT_INDEX_FILE &&\n"> <LIT_CHARS "\t test_must_fail git merge-index git-merge-one-file -a\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "merge-one-file respects GIT_WORK_TREE">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(cd bare.git &&\n"> <LIT_CHARS "\t mkdir work &&\n"> <LIT_CHARS "\t GIT_WORK_TREE=$PWD/work &&\n"> <LIT_CHARS "\t export GIT_WORK_TREE &&\n"> <LIT_CHARS "\t GIT_INDEX_FILE=$PWD/merge.index &&\n"> <LIT_CHARS "\t export GIT_INDEX_FILE &&\n"> <LIT_CHARS "\t git merge-index git-merge-one-file -a &&\n"> <LIT_CHARS "\t git cat-file blob :file >work/file-index\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\ttest_cmp expect-merged bare.git/work/file &&\n"> <LIT_CHARS "\ttest_cmp expect-merged bare.git/work/file-index\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "merge-one-file respects core.worktree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir subdir &&\n"> <LIT_CHARS "\tgit clone . subdir/child &&\n"> <LIT_CHARS "\t(cd subdir &&\n"> <LIT_CHARS "\t GIT_DIR=$PWD/child/.git &&\n"> <LIT_CHARS "\t export GIT_DIR &&\n"> <LIT_CHARS "\t git config core.worktree \"$PWD/child\" &&\n"> <LIT_CHARS "\t git read-tree -i -m base ten two &&\n"> <LIT_CHARS "\t git merge-index git-merge-one-file -a &&\n"> <LIT_CHARS "\t git cat-file blob :file >file-index\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\ttest_cmp expect-merged subdir/child/file &&\n"> <LIT_CHARS "\ttest_cmp expect-merged subdir/file-index\n">]})
  (Com {[LIT_CHARS test_done]})
)