(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "git ls-files test (--with-tree).\n"> <LIT_CHARS "\n"> <LIT_CHARS "This test runs git ls-files --with-tree and in particular in\n"> <LIT_CHARS "a scenario known to trigger a crash with some versions of git.\n">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS setup]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# The bug we are exercising requires a fair number of entries\n"> <LIT_CHARS "\t# in a sub-directory so that add_index_entry will trigger a\n"> <LIT_CHARS "\t# realloc.\n"> <LIT_CHARS "\n"> <LIT_CHARS "\techo file >expected &&\n"> <LIT_CHARS "\tmkdir sub &&\n"> <LIT_CHARS "\tfor n in 0 1 2 3 4 5\n"> <LIT_CHARS "\tdo\n"> <LIT_CHARS "\t\tfor m in 0 1 2 3 4 5 6 7 8 9\n"> <LIT_CHARS "\t\tdo\n"> <LIT_CHARS "\t\t\tnum=00$n$m &&\n"> <LIT_CHARS "\t\t\t>sub/file-$num &&\n"> <LIT_CHARS "\t\t\techo file-$num >>expected ||\n"> <LIT_CHARS "\t\t\treturn 1\n"> <LIT_CHARS "\t\tdone\n"> <LIT_CHARS "\tdone &&\n"> <LIT_CHARS "\tgit add . &&\n"> <LIT_CHARS "\tgit commit -m \"add a bunch of files\" &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# We remove them all so that we will have something to add\n"> <LIT_CHARS "\t# back with --with-tree and so that we will definitely be\n"> <LIT_CHARS "\t# under the realloc size to trigger the bug.\n"> <LIT_CHARS "\trm -rf sub &&\n"> <LIT_CHARS "\tgit commit -a -m \"remove them all\" &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# The bug also requires some entry before our directory so that\n"> <LIT_CHARS "\t# prune_path will modify the_index.cache\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir a_directory_that_sorts_before_sub &&\n"> <LIT_CHARS "\t>a_directory_that_sorts_before_sub/file &&\n"> <LIT_CHARS "\tmkdir sub &&\n"> <LIT_CHARS "\t>sub/file &&\n"> <LIT_CHARS "\tgit add .\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git -ls-files --with-tree should succeed from subdir">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# We have to run from a sub-directory to trigger prune_path\n"> <LIT_CHARS "\t# Then we finally get to run our --with-tree test\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd sub &&\n"> <LIT_CHARS "\t\tgit ls-files --with-tree=HEAD~1 >../output\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git -ls-files --with-tree should add entries from named tree.">]} {[SQ <LIT_CHARS "test_cmp expected output">]})
  (Com {[LIT_CHARS test_done]})
)