(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "Test the very basics part #1.\n"> <LIT_CHARS "\n"> <LIT_CHARS "The rest of the test suite does not check the basic operation of git\n"> <LIT_CHARS "plumbing commands to work very carefully.  Their job is to concentrate\n"> <LIT_CHARS "on tricky features that caused bugs in the past to detect regression.\n"> <LIT_CHARS "\n"> <LIT_CHARS "This test runs very basic features, like registering things in cache,\n"> <LIT_CHARS "writing tree, etc.\n"> <LIT_CHARS "\n"> <LIT_CHARS "Note that this test *deliberately* hard-codes many expected object\n"> <LIT_CHARS "IDs.  When object ID computation changes, like in the previous case of\n"> <LIT_CHARS "swapping compression and hashing order, the person who is making the\n"> <LIT_CHARS "modification *should* take notice and update the test vectors here.\n">]})])
  (Com {[LIT_CHARS ../git]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS /dev/null]} <REDIR_GREAT ">"> 1),
    >
  )
  (If
    (Com {[LIT_CHARS test]} {[VarSub ?]} {[LIT_NEQUAL "!="]} {[LIT_CHARS 1]}    )
    (List
      (Com {[LIT_CHARS echo]} {[SQ <LIT_CHARS "You do not seem to have built git yet.">]}
        <
        (DescriptorRedirectNode target={[LIT_CHARS 2]} <REDIR_GREATAND ">&"> 1),
        >
      )
      (Com {[LIT_CHARS exit]} {[LIT_CHARS 1]}      )
    )
  )
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS ".git/objects should be empty after git init in an empty repo">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tfind .git/objects -type f -print >should-be-empty &&\n"> <LIT_CHARS "\ttest_line_count = 0 should-be-empty\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS ".git/objects should have 3 subdirectories">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tfind .git/objects -type d -print >full-of-directories &&\n"> <LIT_CHARS "\ttest_line_count = 3 full-of-directories\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "success is reported like this">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t:\n">]}  )
  (Com {[LIT_CHARS test_expect_failure]} {[SQ <LIT_CHARS "pretend we have a known breakage">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tfalse\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pretend we have fixed a known breakage (run in sub test-lib)">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\tmkdir passing-todo &&\n"][LIT_CHARS "\t(cd passing-todo &&\n"][LIT_CHARS "\tcat >passing-todo.sh <<-EOF &&\n"][LIT_CHARS "\t#!"][VarSub SHELL_PATH][LIT_CHARS "\n"][LIT_CHARS "\n"][LIT_CHARS "\ttest_description='A passing TODO test\n"][LIT_CHARS "\n"][LIT_CHARS "\tThis is run in a sub test-lib so that we do not get incorrect\n"][LIT_CHARS "\tpassing metrics\n"][LIT_CHARS "\t'\n"][LIT_CHARS "\n"][LIT_CHARS "\t# Point to the t/test-lib.sh, which isn't in ../ as usual\n"][LIT_CHARS "\tTEST_DIRECTORY="][\ LIT_ESCAPED_CHAR "\\\""][VarSub TEST_DIRECTORY][\ LIT_ESCAPED_CHAR "\\\""][LIT_CHARS "\n"][LIT_CHARS "\t. "][\ LIT_ESCAPED_CHAR "\\\""][\ LIT_ESCAPED_CHAR "\\$"][LIT_CHARS TEST_DIRECTORY][\ LIT_ESCAPED_CHAR "\\\""][LIT_CHARS "/test-lib.sh\n"][LIT_CHARS "\n"][LIT_CHARS "\ttest_expect_failure 'pretend we have fixed a known breakage' '\n"][LIT_CHARS "\t\t:\n"][LIT_CHARS "\t'\n"][LIT_CHARS "\n"][LIT_CHARS "\ttest_done\n"][LIT_CHARS "\tEOF\n"][LIT_CHARS "\tchmod +x passing-todo.sh &&\n"][LIT_CHARS "\t./passing-todo.sh >out 2>err &&\n"][LIT_CHARS "\t! test -s err &&\n"][LIT_CHARS "\tsed -e 's/^> //' >expect <<-"][\ LIT_ESCAPED_CHAR "\\\\"][LIT_CHARS "EOF &&\n"][LIT_CHARS "\t> ok 1 - pretend we have fixed a known breakage # TODO known breakage\n"][LIT_CHARS "\t> # fixed 1 known breakage(s)\n"][LIT_CHARS "\t> # passed all 1 test(s)\n"][LIT_CHARS "\t> 1..1\n"][LIT_CHARS "\tEOF\n"][LIT_CHARS "\ttest_cmp expect out)\n"]]}  )
  (Com {[LIT_CHARS test_set_prereq]} {[LIT_CHARS HAVEIT]}  )
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('haveit', {[LIT_CHARS no]})])
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS HAVEIT]} {[SQ <LIT_CHARS "test runs if prerequisite is satisfied">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_have_prereq HAVEIT &&\n"> <LIT_CHARS "\thaveit=yes\n">]}  )
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('donthaveit', {[LIT_CHARS yes]})])
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS DONTHAVEIT]} {[SQ <LIT_CHARS "unmet prerequisite causes test to be skipped">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tdonthaveit=no\n">]}  )
  (If
    (Com {[LIT_CHARS test]} {[VarSub haveit] [VarSub donthaveit]} {[LIT_NEQUAL "!="]} {[LIT_CHARS yesyes]}    )
    (List
      (Com {[LIT_CHARS say]} {[DQ [LIT_CHARS "bug in test framework: prerequisite tags do not work reliably"]]}      )
      (Com {[LIT_CHARS exit]} {[LIT_CHARS 1]}      )
    )
  )
  (Com {[LIT_CHARS test_set_prereq]} {[LIT_CHARS HAVETHIS]}  )
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('haveit', {[LIT_CHARS no]})])
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS HAVETHIS] [LIT_COMMA ","] [LIT_CHARS HAVEIT]} {[SQ <LIT_CHARS "test runs if prerequisites are satisfied">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_have_prereq HAVEIT &&\n"> <LIT_CHARS "\ttest_have_prereq HAVETHIS &&\n"> <LIT_CHARS "\thaveit=yes\n">]}  )
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('donthaveit', {[LIT_CHARS yes]})])
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS HAVEIT] [LIT_COMMA ","] [LIT_CHARS DONTHAVEIT]} {[SQ <LIT_CHARS "unmet prerequisites causes test to be skipped">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tdonthaveit=no\n">]}  )
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('donthaveiteither', {[LIT_CHARS yes]})])
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS DONTHAVEIT] [LIT_COMMA ","] [LIT_CHARS HAVEIT]} {[SQ <LIT_CHARS "unmet prerequisites causes test to be skipped">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tdonthaveiteither=no\n">]}  )
  (If
    (Com {[LIT_CHARS test]} {[VarSub haveit] [VarSub donthaveit] [VarSub donthaveiteither]} {[LIT_NEQUAL "!="]} {[LIT_CHARS yesyesyes]}    )
    (List
      (Com {[LIT_CHARS say]} {[DQ [LIT_CHARS "bug in test framework: multiple prerequisite tags do not work reliably"]]}      )
      (Com {[LIT_CHARS exit]} {[LIT_CHARS 1]}      )
    )
  )
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('clean', {[LIT_CHARS no]})])
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "tests clean up after themselves">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished clean=yes\n">]}  )
  (If
    (Com {[LIT_CHARS test]} {[VarSub clean]} {[LIT_NEQUAL "!="]} {[LIT_CHARS yes]}    )
    (List
      (Com {[LIT_CHARS say]} {[DQ [LIT_CHARS "bug in test framework: basic cleanup command does not work reliably"]]}      )
      (Com {[LIT_CHARS exit]} {[LIT_CHARS 1]}      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "tests clean up even on failures">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\tmkdir failing-cleanup &&\n"][LIT_CHARS "\t(\n"][LIT_CHARS "\tcd failing-cleanup &&\n"][LIT_CHARS "\n"][LIT_CHARS "\tcat >failing-cleanup.sh <<-EOF &&\n"][LIT_CHARS "\t#!"][VarSub SHELL_PATH][LIT_CHARS "\n"][LIT_CHARS "\n"][LIT_CHARS "\ttest_description='Failing tests with cleanup commands'\n"][LIT_CHARS "\n"][LIT_CHARS "\t# Point to the t/test-lib.sh, which isn't in ../ as usual\n"][LIT_CHARS "\tTEST_DIRECTORY="][\ LIT_ESCAPED_CHAR "\\\""][VarSub TEST_DIRECTORY][\ LIT_ESCAPED_CHAR "\\\""][LIT_CHARS "\n"][LIT_CHARS "\t. "][\ LIT_ESCAPED_CHAR "\\\""][\ LIT_ESCAPED_CHAR "\\$"][LIT_CHARS TEST_DIRECTORY][\ LIT_ESCAPED_CHAR "\\\""][LIT_CHARS "/test-lib.sh\n"][LIT_CHARS "\n"][LIT_CHARS "\ttest_expect_success 'tests clean up even after a failure' '\n"][LIT_CHARS "\t\ttouch clean-after-failure &&\n"][LIT_CHARS "\t\ttest_when_finished rm clean-after-failure &&\n"][LIT_CHARS "\t\t(exit 1)\n"][LIT_CHARS "\t'\n"][LIT_CHARS "\ttest_expect_success 'failure to clean up causes the test to fail' '\n"][LIT_CHARS "\t\ttest_when_finished "][\ LIT_ESCAPED_CHAR "\\\""][LIT_CHARS "(exit 2)"][\ LIT_ESCAPED_CHAR "\\\""][LIT_CHARS "\n"][LIT_CHARS "\t'\n"][LIT_CHARS "\ttest_done\n"][LIT_CHARS "\n"][LIT_CHARS "\tEOF\n"][LIT_CHARS "\n"][LIT_CHARS "\tchmod +x failing-cleanup.sh &&\n"][LIT_CHARS "\ttest_must_fail ./failing-cleanup.sh >out 2>err &&\n"][LIT_CHARS "\t! test -s err &&\n"][LIT_CHARS "\t! test -f "][\ LIT_ESCAPED_CHAR "\\\""][LIT_CHARS "trash directory.failing-cleanup/clean-after-failure"][\ LIT_ESCAPED_CHAR "\\\""][LIT_CHARS " &&\n"][LIT_CHARS "\tsed -e 's/Z"][LIT_OTHER "$"][LIT_CHARS "//' -e 's/^> //' >expect <<-"][\ LIT_ESCAPED_CHAR "\\\\"][LIT_CHARS "EOF &&\n"][LIT_CHARS "\t> not ok - 1 tests clean up even after a failure\n"][LIT_CHARS "\t> #\tZ\n"][LIT_CHARS "\t> #\ttouch clean-after-failure &&\n"][LIT_CHARS "\t> #\ttest_when_finished rm clean-after-failure &&\n"][LIT_CHARS "\t> #\t(exit 1)\n"][LIT_CHARS "\t> #\tZ\n"][LIT_CHARS "\t> not ok - 2 failure to clean up causes the test to fail\n"][LIT_CHARS "\t> #\tZ\n"][LIT_CHARS "\t> #\ttest_when_finished "][\ LIT_ESCAPED_CHAR "\\\""][LIT_CHARS "(exit 2)"][\ LIT_ESCAPED_CHAR "\\\""][LIT_CHARS "\n"][LIT_CHARS "\t> #\tZ\n"][LIT_CHARS "\t> # failed 2 among 2 test(s)\n"][LIT_CHARS "\t> 1..2\n"][LIT_CHARS "\tEOF\n"][LIT_CHARS "\ttest_cmp expect out\n"][LIT_CHARS "\t)\n"]]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git update-index without --add should fail adding">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git update-index should-be-empty\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git update-index with --add should succeed">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit update-index --add should-be-empty\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "writing tree out with git write-tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttree=$(git write-tree)\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "validate object ID of a known tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest \"$tree\" = 7bb943559a305bdd6bdee2cef6e5df2413c3d30a\n"> <LIT_CHARS "    ">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git update-index without --remove should fail removing">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -f should-be-empty full-of-directories &&\n"> <LIT_CHARS "\ttest_must_fail git update-index should-be-empty\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git update-index with --remove should be able to remove">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit update-index --remove should-be-empty\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git write-tree should be able to write an empty tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttree=$(git write-tree)\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "validate object ID of a known tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest \"$tree\" = 4b825dc642cb6eb9a060e54bf8d69288fbee4904\n">]}  )
  (If
    (Com {[LIT_CHARS test_have_prereq]} {[LIT_CHARS SYMLINKS]}    )
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('expectfilter', {[LIT_CHARS cat]})])
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('expectedtree', {[LIT_CHARS 087704a96baf1c2d1c869a8b084481e121c88b5b]})])
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('expectedptree1', {[LIT_CHARS 21ae8269cacbe57ae09138dcc3a2887f904d02b3]})])
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('expectedptree2', {[LIT_CHARS 3c5e5399f3a333eddecce7a9b9465b63f65f51e2]})])
    )
    (ElseTrue)
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('expectfilter', {[SQ <LIT_CHARS "grep -v sym">]})])
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('expectedtree', {[LIT_CHARS 8e18edf7d7edcf4371a3ac6ae5f07c2641db7c46]})])
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('expectedptree1', {[LIT_CHARS cfb8591b2f65de8b8cc1020cd7d9e67e7793b325]})])
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('expectedptree2', {[LIT_CHARS ce580448f0148b985a513b693fdf7d802cacb44f]})])
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "adding various types of objects with git update-index --add">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir path2 path3 path3/subp3 &&\n"> <LIT_CHARS "\tpaths=\"path0 path2/file2 path3/file3 path3/subp3/file3\" &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tfor p in $paths\n"> <LIT_CHARS "\t\tdo\n"> <LIT_CHARS "\t\t\techo \"hello $p\" >$p || exit 1\n"> <LIT_CHARS "\t\t\tif test_have_prereq SYMLINKS\n"> <LIT_CHARS "\t\t\tthen\n"> <LIT_CHARS "\t\t\t\tln -s \"hello $p\" ${p}sym || exit 1\n"> <LIT_CHARS "\t\t\tfi\n"> <LIT_CHARS "\t\tdone\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tfind path* ! -type d -print | xargs git update-index --add\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "showing stage with git ls-files --stage">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit ls-files --stage >current\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "validate git ls-files output for a known tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t$expectfilter >expected <<-\\EOF &&\n"> <LIT_CHARS "\t100644 f87290f8eb2cbbea7857214459a0739927eab154 0\tpath0\n"> <LIT_CHARS "\t120000 15a98433ae33114b085f3eb3bb03b832b3180a01 0\tpath0sym\n"> <LIT_CHARS "\t100644 3feff949ed00a62d9f7af97c15cd8a30595e7ac7 0\tpath2/file2\n"> <LIT_CHARS "\t120000 d8ce161addc5173867a3c3c730924388daedbc38 0\tpath2/file2sym\n"> <LIT_CHARS "\t100644 0aa34cae68d0878578ad119c86ca2b5ed5b28376 0\tpath3/file3\n"> <LIT_CHARS "\t120000 8599103969b43aff7e430efea79ca4636466794f 0\tpath3/file3sym\n"> <LIT_CHARS "\t100644 00fb5908cb97c2564a9783c0c64087333b3b464f 0\tpath3/subp3/file3\n"> <LIT_CHARS "\t120000 6649a1ebe9e9f1c553b66f5a6e74136a07ccc57c 0\tpath3/subp3/file3sym\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\ttest_cmp expected current\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "writing tree out with git write-tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttree=$(git write-tree)\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "validate object ID for a known tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest \"$tree\" = \"$expectedtree\"\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "showing tree with git ls-tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "    git ls-tree $tree >current\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS SYMLINKS]} {[SQ <LIT_CHARS "git ls-tree output for a known tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expected <<-\\EOF &&\n"> <LIT_CHARS "\t100644 blob f87290f8eb2cbbea7857214459a0739927eab154\tpath0\n"> <LIT_CHARS "\t120000 blob 15a98433ae33114b085f3eb3bb03b832b3180a01\tpath0sym\n"> <LIT_CHARS "\t040000 tree 58a09c23e2ca152193f2786e06986b7b6712bdbe\tpath2\n"> <LIT_CHARS "\t040000 tree 21ae8269cacbe57ae09138dcc3a2887f904d02b3\tpath3\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\ttest_cmp expected current\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "showing tree with git ls-tree -r">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit ls-tree -r $tree >current\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git ls-tree -r output for a known tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t$expectfilter >expected <<-\\EOF &&\n"> <LIT_CHARS "\t100644 blob f87290f8eb2cbbea7857214459a0739927eab154\tpath0\n"> <LIT_CHARS "\t120000 blob 15a98433ae33114b085f3eb3bb03b832b3180a01\tpath0sym\n"> <LIT_CHARS "\t100644 blob 3feff949ed00a62d9f7af97c15cd8a30595e7ac7\tpath2/file2\n"> <LIT_CHARS "\t120000 blob d8ce161addc5173867a3c3c730924388daedbc38\tpath2/file2sym\n"> <LIT_CHARS "\t100644 blob 0aa34cae68d0878578ad119c86ca2b5ed5b28376\tpath3/file3\n"> <LIT_CHARS "\t120000 blob 8599103969b43aff7e430efea79ca4636466794f\tpath3/file3sym\n"> <LIT_CHARS "\t100644 blob 00fb5908cb97c2564a9783c0c64087333b3b464f\tpath3/subp3/file3\n"> <LIT_CHARS "\t120000 blob 6649a1ebe9e9f1c553b66f5a6e74136a07ccc57c\tpath3/subp3/file3sym\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\ttest_cmp expected current\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "showing tree with git ls-tree -r -t">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit ls-tree -r -t $tree >current\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS SYMLINKS]} {[SQ <LIT_CHARS "git ls-tree -r output for a known tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expected <<-\\EOF &&\n"> <LIT_CHARS "\t100644 blob f87290f8eb2cbbea7857214459a0739927eab154\tpath0\n"> <LIT_CHARS "\t120000 blob 15a98433ae33114b085f3eb3bb03b832b3180a01\tpath0sym\n"> <LIT_CHARS "\t040000 tree 58a09c23e2ca152193f2786e06986b7b6712bdbe\tpath2\n"> <LIT_CHARS "\t100644 blob 3feff949ed00a62d9f7af97c15cd8a30595e7ac7\tpath2/file2\n"> <LIT_CHARS "\t120000 blob d8ce161addc5173867a3c3c730924388daedbc38\tpath2/file2sym\n"> <LIT_CHARS "\t040000 tree 21ae8269cacbe57ae09138dcc3a2887f904d02b3\tpath3\n"> <LIT_CHARS "\t100644 blob 0aa34cae68d0878578ad119c86ca2b5ed5b28376\tpath3/file3\n"> <LIT_CHARS "\t120000 blob 8599103969b43aff7e430efea79ca4636466794f\tpath3/file3sym\n"> <LIT_CHARS "\t040000 tree 3c5e5399f3a333eddecce7a9b9465b63f65f51e2\tpath3/subp3\n"> <LIT_CHARS "\t100644 blob 00fb5908cb97c2564a9783c0c64087333b3b464f\tpath3/subp3/file3\n"> <LIT_CHARS "\t120000 blob 6649a1ebe9e9f1c553b66f5a6e74136a07ccc57c\tpath3/subp3/file3sym\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\ttest_cmp expected current\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "writing partial tree out with git write-tree --prefix">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tptree=$(git write-tree --prefix=path3)\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "validate object ID for a known tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest \"$ptree\" = \"$expectedptree1\"\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "writing partial tree out with git write-tree --prefix">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tptree=$(git write-tree --prefix=path3/subp3)\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "validate object ID for a known tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest \"$ptree\" = \"$expectedptree2\"\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "put invalid objects into the index">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -f .git/index &&\n"> <LIT_CHARS "\tcat >badobjects <<-\\EOF &&\n"> <LIT_CHARS "\t100644 blob 1000000000000000000000000000000000000000\tdir/file1\n"> <LIT_CHARS "\t100644 blob 2000000000000000000000000000000000000000\tdir/file2\n"> <LIT_CHARS "\t100644 blob 3000000000000000000000000000000000000000\tdir/file3\n"> <LIT_CHARS "\t100644 blob 4000000000000000000000000000000000000000\tdir/file4\n"> <LIT_CHARS "\t100644 blob 5000000000000000000000000000000000000000\tdir/file5\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgit update-index --index-info <badobjects\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "writing this tree without --missing-ok">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git write-tree\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "writing this tree with --missing-ok">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit write-tree --missing-ok\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git read-tree followed by write-tree should be idempotent">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -f .git/index\n"> <LIT_CHARS "\tgit read-tree $tree &&\n"> <LIT_CHARS "\ttest -f .git/index &&\n"> <LIT_CHARS "\tnewtree=$(git write-tree) &&\n"> <LIT_CHARS "\ttest \"$newtree\" = \"$tree\"\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "validate git diff-files output for a know cache/work tree state">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t$expectfilter >expected <<\\EOF &&\n"> <LIT_CHARS ":100644 100644 f87290f8eb2cbbea7857214459a0739927eab154 0000000000000000000000000000000000000000 M\tpath0\n"> <LIT_CHARS ":120000 120000 15a98433ae33114b085f3eb3bb03b832b3180a01 0000000000000000000000000000000000000000 M\tpath0sym\n"> <LIT_CHARS ":100644 100644 3feff949ed00a62d9f7af97c15cd8a30595e7ac7 0000000000000000000000000000000000000000 M\tpath2/file2\n"> <LIT_CHARS ":120000 120000 d8ce161addc5173867a3c3c730924388daedbc38 0000000000000000000000000000000000000000 M\tpath2/file2sym\n"> <LIT_CHARS ":100644 100644 0aa34cae68d0878578ad119c86ca2b5ed5b28376 0000000000000000000000000000000000000000 M\tpath3/file3\n"> <LIT_CHARS ":120000 120000 8599103969b43aff7e430efea79ca4636466794f 0000000000000000000000000000000000000000 M\tpath3/file3sym\n"> <LIT_CHARS ":100644 100644 00fb5908cb97c2564a9783c0c64087333b3b464f 0000000000000000000000000000000000000000 M\tpath3/subp3/file3\n"> <LIT_CHARS ":120000 120000 6649a1ebe9e9f1c553b66f5a6e74136a07ccc57c 0000000000000000000000000000000000000000 M\tpath3/subp3/file3sym\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\tgit diff-files >current &&\n"> <LIT_CHARS "\ttest_cmp current expected\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git update-index --refresh should succeed">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit update-index --refresh\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "no diff after checkout and git update-index --refresh">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit diff-files >current &&\n"> <LIT_CHARS "\tcmp -s current /dev/null\n">]}  )
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('P', {[VarSub expectedtree]})])
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git commit-tree records the correct tree in a commit">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcommit0=$(echo NO | git commit-tree $P) &&\n"> <LIT_CHARS "\ttree=$(git show --pretty=raw $commit0 |\n"> <LIT_CHARS "\t\t sed -n -e \"s/^tree //p\" -e \"/^author /q\") &&\n"> <LIT_CHARS "\ttest \"z$tree\" = \"z$P\"\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git commit-tree records the correct parent in a commit">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcommit1=$(echo NO | git commit-tree $P -p $commit0) &&\n"> <LIT_CHARS "\tparent=$(git show --pretty=raw $commit1 |\n"> <LIT_CHARS "\t\tsed -n -e \"s/^parent //p\" -e \"/^author /q\") &&\n"> <LIT_CHARS "\ttest \"z$commit0\" = \"z$parent\"\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git commit-tree omits duplicated parent in a commit">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcommit2=$(echo NO | git commit-tree $P -p $commit0 -p $commit0) &&\n"> <LIT_CHARS "\t     parent=$(git show --pretty=raw $commit2 |\n"> <LIT_CHARS "\t\tsed -n -e \"s/^parent //p\" -e \"/^author /q\" |\n"> <LIT_CHARS "\t\tsort -u) &&\n"> <LIT_CHARS "\ttest \"z$commit0\" = \"z$parent\" &&\n"> <LIT_CHARS "\tnumparent=$(git show --pretty=raw $commit2 |\n"> <LIT_CHARS "\t\tsed -n -e \"s/^parent //p\" -e \"/^author /q\" |\n"> <LIT_CHARS "\t\twc -l) &&\n"> <LIT_CHARS "\ttest $numparent = 1\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "update-index D/F conflict">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmv path0 tmp &&\n"> <LIT_CHARS "\tmv path2 path0 &&\n"> <LIT_CHARS "\tmv tmp path2 &&\n"> <LIT_CHARS "\tgit update-index --add --replace path2 path0/file2 &&\n"> <LIT_CHARS "\tnumpath0=$(git ls-files path0 | wc -l) &&\n"> <LIT_CHARS "\ttest $numpath0 = 1\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "very long name in the index handled sanely">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\ta=a && # 1\n"> <LIT_CHARS "\ta=$a$a$a$a$a$a$a$a$a$a$a$a$a$a$a$a && # 16\n"> <LIT_CHARS "\ta=$a$a$a$a$a$a$a$a$a$a$a$a$a$a$a$a && # 256\n"> <LIT_CHARS "\ta=$a$a$a$a$a$a$a$a$a$a$a$a$a$a$a$a && # 4096\n"> <LIT_CHARS "\ta=${a}q &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t>path4 &&\n"> <LIT_CHARS "\tgit update-index --add path4 &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tgit ls-files -s path4 |\n"> <LIT_CHARS "\t\tsed -e \"s/\t.*/\t/\" |\n"> <LIT_CHARS "\t\ttr -d \"\\012\"\n"> <LIT_CHARS "\t\techo \"$a\"\n"> <LIT_CHARS "\t) | git update-index --index-info &&\n"> <LIT_CHARS "\tlen=$(git ls-files \"a*\" | wc -c) &&\n"> <LIT_CHARS "\ttest $len = 4098\n">]}  )
  (Com {[LIT_CHARS test_done]}  )
)