(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "git ls-files -k and -m flags test.\n"> <LIT_CHARS "\n"> <LIT_CHARS "This test prepares the following in the cache:\n"> <LIT_CHARS "\n"> <LIT_CHARS "    path0       - a file\n"> <LIT_CHARS "    path1       - a symlink\n"> <LIT_CHARS "    path2/file2 - a file in a directory\n"> <LIT_CHARS "    path3/file3 - a file in a directory\n"> <LIT_CHARS "    pathx/ju    - a file in a directory\n"> <LIT_CHARS "    submod1/\t- a submodule\n"> <LIT_CHARS "    submod2/\t- another submodule\n"> <LIT_CHARS "\n"> <LIT_CHARS "and the following on the filesystem:\n"> <LIT_CHARS "\n"> <LIT_CHARS "    path0/file0 - a file in a directory\n"> <LIT_CHARS "    path1/file1 - a file in a directory\n"> <LIT_CHARS "    path2       - a file\n"> <LIT_CHARS "    path3       - a symlink\n"> <LIT_CHARS "    path4\t- a file\n"> <LIT_CHARS "    path5\t- a symlink\n"> <LIT_CHARS "    path6/file6 - a file in a directory\n"> <LIT_CHARS "    pathx/ju/nk - a file in a directory to be killed\n"> <LIT_CHARS "    submod1/\t- a submodule (modified from the cache)\n"> <LIT_CHARS "    submod2/\t- a submodule (matches the cache)\n"> <LIT_CHARS "\n"> <LIT_CHARS "git ls-files -k should report that existing filesystem objects\n"> <LIT_CHARS "path0/*, path1/*, path2 and path3 to be killed.\n"> <LIT_CHARS "\n"> <LIT_CHARS "Also for modification test, the cache and working tree have:\n"> <LIT_CHARS "\n"> <LIT_CHARS "    path7       - an empty file, modified to a non-empty file.\n"> <LIT_CHARS "    path8       - a non-empty file, modified to an empty file.\n"> <LIT_CHARS "    path9\t- an empty file, cache dirtied.\n"> <LIT_CHARS "    path10\t- a non-empty file, cache dirtied.\n"> <LIT_CHARS "\n"> <LIT_CHARS "We should report path0, path1, path2/file2, path3/file3, path7 and path8\n"> <LIT_CHARS "modified without reporting path9 and path10.  submod1 is also modified.\n">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git update-index --add to add various paths.">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tdate >path0 &&\n"> <LIT_CHARS "\ttest_ln_s_add xyzzy path1 &&\n"> <LIT_CHARS "\tmkdir path2 path3 pathx &&\n"> <LIT_CHARS "\tdate >path2/file2 &&\n"> <LIT_CHARS "\tdate >path3/file3 &&\n"> <LIT_CHARS "\t>pathx/ju &&\n"> <LIT_CHARS "\t: >path7 &&\n"> <LIT_CHARS "\tdate >path8 &&\n"> <LIT_CHARS "\t: >path9 &&\n"> <LIT_CHARS "\tdate >path10 &&\n"> <LIT_CHARS "\tgit update-index --add -- path0 path?/file? pathx/ju path7 path8 path9 path10 &&\n"> <LIT_CHARS "\tgit init submod1 &&\n"> <LIT_CHARS "\tgit -C submod1 commit --allow-empty -m \"empty 1\" &&\n"> <LIT_CHARS "\tgit init submod2 &&\n"> <LIT_CHARS "\tgit -C submod2 commit --allow-empty -m \"empty 2\" &&\n"> <LIT_CHARS "\tgit update-index --add submod[12] &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd submod1 &&\n"> <LIT_CHARS "\t\tgit commit --allow-empty -m \"empty 1 (updated)\"\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\trm -fr path?\t# leave path10 alone\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git ls-files -k to show killed files.">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tdate >path2 &&\n"> <LIT_CHARS "\tif test_have_prereq SYMLINKS\n"> <LIT_CHARS "\tthen\n"> <LIT_CHARS "\t\tln -s frotz path3 &&\n"> <LIT_CHARS "\t\tln -s nitfol path5\n"> <LIT_CHARS "\telse\n"> <LIT_CHARS "\t\tdate >path3 &&\n"> <LIT_CHARS "\t\tdate >path5\n"> <LIT_CHARS "\tfi &&\n"> <LIT_CHARS "\tmkdir -p path0 path1 path6 pathx/ju &&\n"> <LIT_CHARS "\tdate >path0/file0 &&\n"> <LIT_CHARS "\tdate >path1/file1 &&\n"> <LIT_CHARS "\tdate >path6/file6 &&\n"> <LIT_CHARS "\tdate >path7 &&\n"> <LIT_CHARS "\t: >path8 &&\n"> <LIT_CHARS "\t: >path9 &&\n"> <LIT_CHARS "\ttouch path10 &&\n"> <LIT_CHARS "\t>pathx/ju/nk &&\n"> <LIT_CHARS "\tcat >.expected <<-\\EOF\n"> <LIT_CHARS "\tpath0/file0\n"> <LIT_CHARS "\tpath1/file1\n"> <LIT_CHARS "\tpath2\n"> <LIT_CHARS "\tpath3\n"> <LIT_CHARS "\tpathx/ju/nk\n"> <LIT_CHARS "\tEOF\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git ls-files -k output (w/o icase)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit ls-files -k >.output &&\n"> <LIT_CHARS "\ttest_cmp .expected .output\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git ls-files -k output (w/ icase)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit -c core.ignorecase=true ls-files -k >.output &&\n"> <LIT_CHARS "\ttest_cmp .expected .output\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git ls-files -m to show modified files.">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit ls-files -m >.output\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "validate git ls-files -m output.">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >.expected <<-\\EOF &&\n"> <LIT_CHARS "\tpath0\n"> <LIT_CHARS "\tpath1\n"> <LIT_CHARS "\tpath2/file2\n"> <LIT_CHARS "\tpath3/file3\n"> <LIT_CHARS "\tpath7\n"> <LIT_CHARS "\tpath8\n"> <LIT_CHARS "\tpathx/ju\n"> <LIT_CHARS "\tsubmod1\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\ttest_cmp .expected .output\n">]})
  (Com {[LIT_CHARS test_done]})
)