(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "read-tree -u --reset">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (Com {[LIT_CHARS .]} {[DQ [VarSub TEST_DIRECTORY]] [LIT_CHARS /lib-read-tree.sh]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS setup>]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit init &&\n"> <LIT_CHARS "\tmkdir df &&\n"> <LIT_CHARS "\techo content >df/file &&\n"> <LIT_CHARS "\tgit add df/file &&\n"> <LIT_CHARS "\tgit commit -m one &&\n"> <LIT_CHARS "\tgit ls-files >expect &&\n"> <LIT_CHARS "\trm -rf df &&\n"> <LIT_CHARS "\techo content >df &&\n"> <LIT_CHARS "\tgit add df &&\n"> <LIT_CHARS "\techo content >new &&\n"> <LIT_CHARS "\tgit add new &&\n"> <LIT_CHARS "\tgit commit -m two\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "reset should work">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tread_tree_u_must_succeed -u --reset HEAD^ &&\n"> <LIT_CHARS "\tgit ls-files >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "reset should remove remnants from a failed merge">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tread_tree_u_must_succeed --reset -u HEAD &&\n"> <LIT_CHARS "\tgit ls-files -s >expect &&\n"> <LIT_CHARS "\tsha1=$(git rev-parse :new) &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\techo \"100644 $sha1 1\told\"\n"> <LIT_CHARS "\t\techo \"100644 $sha1 3\told\"\n"> <LIT_CHARS "\t) | git update-index --index-info &&\n"> <LIT_CHARS "\t>old &&\n"> <LIT_CHARS "\tgit ls-files -s &&\n"> <LIT_CHARS "\tread_tree_u_must_succeed --reset -u HEAD &&\n"> <LIT_CHARS "\tgit ls-files -s >actual &&\n"> <LIT_CHARS "\t! test -f old\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "two-way reset should remove remnants too">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tread_tree_u_must_succeed --reset -u HEAD &&\n"> <LIT_CHARS "\tgit ls-files -s >expect &&\n"> <LIT_CHARS "\tsha1=$(git rev-parse :new) &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\techo \"100644 $sha1 1\told\"\n"> <LIT_CHARS "\t\techo \"100644 $sha1 3\told\"\n"> <LIT_CHARS "\t) | git update-index --index-info &&\n"> <LIT_CHARS "\t>old &&\n"> <LIT_CHARS "\tgit ls-files -s &&\n"> <LIT_CHARS "\tread_tree_u_must_succeed --reset -u HEAD HEAD &&\n"> <LIT_CHARS "\tgit ls-files -s >actual &&\n"> <LIT_CHARS "\t! test -f old\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "Porcelain reset should remove remnants too">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tread_tree_u_must_succeed --reset -u HEAD &&\n"> <LIT_CHARS "\tgit ls-files -s >expect &&\n"> <LIT_CHARS "\tsha1=$(git rev-parse :new) &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\techo \"100644 $sha1 1\told\"\n"> <LIT_CHARS "\t\techo \"100644 $sha1 3\told\"\n"> <LIT_CHARS "\t) | git update-index --index-info &&\n"> <LIT_CHARS "\t>old &&\n"> <LIT_CHARS "\tgit ls-files -s &&\n"> <LIT_CHARS "\tgit reset --hard &&\n"> <LIT_CHARS "\tgit ls-files -s >actual &&\n"> <LIT_CHARS "\t! test -f old\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "Porcelain checkout -f should remove remnants too">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tread_tree_u_must_succeed --reset -u HEAD &&\n"> <LIT_CHARS "\tgit ls-files -s >expect &&\n"> <LIT_CHARS "\tsha1=$(git rev-parse :new) &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\techo \"100644 $sha1 1\told\"\n"> <LIT_CHARS "\t\techo \"100644 $sha1 3\told\"\n"> <LIT_CHARS "\t) | git update-index --index-info &&\n"> <LIT_CHARS "\t>old &&\n"> <LIT_CHARS "\tgit ls-files -s &&\n"> <LIT_CHARS "\tgit checkout -f &&\n"> <LIT_CHARS "\tgit ls-files -s >actual &&\n"> <LIT_CHARS "\t! test -f old\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "Porcelain checkout -f HEAD should remove remnants too">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tread_tree_u_must_succeed --reset -u HEAD &&\n"> <LIT_CHARS "\tgit ls-files -s >expect &&\n"> <LIT_CHARS "\tsha1=$(git rev-parse :new) &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\techo \"100644 $sha1 1\told\"\n"> <LIT_CHARS "\t\techo \"100644 $sha1 3\told\"\n"> <LIT_CHARS "\t) | git update-index --index-info &&\n"> <LIT_CHARS "\t>old &&\n"> <LIT_CHARS "\tgit ls-files -s &&\n"> <LIT_CHARS "\tgit checkout -f HEAD &&\n"> <LIT_CHARS "\tgit ls-files -s >actual &&\n"> <LIT_CHARS "\t! test -f old\n">]})
  (Com {[LIT_CHARS test_done]})
)