(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[DQ [LIT_CHARS "Test whether cache-tree is properly updated\n"][LIT_CHARS "\n"][LIT_CHARS "Tests whether various commands properly update and/or rewrite the\n"][LIT_CHARS "cache-tree extension.\n"]]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (FunctionDef cmp_cache_tree []
    (AndOr OP_AND_IF
      (Pipeline
        (Com {[LIT_CHARS test-dump-cache-tree]})
        (Com {[LIT_CHARS sed]} {[LIT_CHARS -e]} {[SQ <LIT_CHARS "/#(ref)/d">]}
          <
          (FilenameRedirectNode filename={[LIT_CHARS actual]} <REDIR_GREAT ">"> 1),
          >
        )
      )
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS sed]} {[DQ [LIT_CHARS s/][VarSub _x40][LIT_CHARS /SHA/]]}
          <
          (FilenameRedirectNode filename={[LIT_CHARS actual]} <REDIR_LESS "<"> 0),
          (FilenameRedirectNode filename={[LIT_CHARS filtered]} <REDIR_GREAT ">"> 1),
          >
        )
        (Com {[LIT_CHARS test_cmp]} {[DQ [VarSub 1]]} {[LIT_CHARS filtered]})
      )
    )
  )
  (FunctionDef generate_expected_cache_tree_rec []
    (AndOr OP_AND_IF
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('dir', {[DQ [VarSub 1][VarSub 1 test_op=VS_TEST_COLON_PLUS {[LIT_SLASH /]}]]})])
      (AndOr OP_AND_IF
        (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('parent', {[DQ [VarSub 2]]})])
        (AndOr OP_AND_IF
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('subtrees', {[ComSub (Pipeline (Com {[LIT_CHARS git]} {[LIT_CHARS ls-files]}) (Com {[LIT_CHARS grep]} {[LIT_CHARS /]}) (Com {[LIT_CHARS cut]} {[LIT_CHARS -d]} {[LIT_CHARS /]} {[LIT_CHARS -f]} {[LIT_CHARS 1]}) (Com {[LIT_CHARS uniq]}) )]})])
          (AndOr OP_AND_IF
            (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('subtree_count', {[ComSub (Pipeline (Com {[LIT_CHARS echo]} {[DQ [VarSub subtrees]]}) (Com {[LIT_CHARS awk]} {[LIT_CHARS -v]} {[LIT_VAR_LIKE "c="] [LIT_CHARS 0] =} {[SQ <LIT_CHARS "$1 != \"\" {++c} END {print c}">]}) )]})])
            (AndOr OP_AND_IF
              (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('entries', {[ComSub (Pipeline (Com {[LIT_CHARS git]} {[LIT_CHARS ls-files]}) (Com {[LIT_CHARS wc]} {[LIT_CHARS -l]}) )]})])
              (AndOr OP_AND_IF
                (Com {[LIT_CHARS printf]} {[DQ [LIT_CHARS "SHA "][VarSub dir][LIT_CHARS " (%d entries, %d subtrees)"][\ LIT_ESCAPED_CHAR "\\n"]]} {[DQ [VarSub entries]]} {[DQ [VarSub subtree_count]]})
                (AndOr OP_AND_IF
                  (For subtree [{[VarSub subtrees]}])
                    (List
                      (Com {[LIT_CHARS cd]} {[DQ [VarSub subtree]]})
                      (AndOr OP_OR_IF
                        (Com {[LIT_CHARS generate_expected_cache_tree_rec]} {[DQ [VarSub dir][VarSub subtree]]} {[DQ [VarSub dir]]})
                        (Com {[LIT_CHARS return]} {[LIT_CHARS 1]})
                      )
                      (Com {[LIT_CHARS cd]} {[LIT_CHARS ..]})
                    )
                  )
                  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('dir', {[VarSub parent]})])
                )
              )
            )
          )
        )
      )
    )
  )
  (FunctionDef generate_expected_cache_tree []
    (Subshell
      (Com {[LIT_CHARS generate_expected_cache_tree_rec]})
    )
  )
  (FunctionDef test_cache_tree []
    (AndOr OP_AND_IF
      (Com {[LIT_CHARS generate_expected_cache_tree]}
        <
        (FilenameRedirectNode filename={[LIT_CHARS expect]} <REDIR_GREAT ">"> 1),
        >
      )
      (Com {[LIT_CHARS cmp_cache_tree]} {[LIT_CHARS expect]})
    )
  )
  (FunctionDef test_invalid_cache_tree []
    (AndOr OP_AND_IF
      (Com {[LIT_CHARS printf]} {[DQ [LIT_CHARS "invalid                                  %s ()"][\ LIT_ESCAPED_CHAR "\\n"]]} {[DQ ]} {[DQ [VarSub @]]}
        <
        (FilenameRedirectNode filename={[LIT_CHARS expect]} <REDIR_GREAT ">"> 1),
        >
      )
      (AndOr OP_AND_IF
        (Pipeline
          (Com {[LIT_CHARS test-dump-cache-tree]})
          (Com {[LIT_CHARS sed]} {[LIT_CHARS -n]} {[LIT_CHARS -e]} {[DQ [LIT_CHARS "s/[0-9]* subtrees//"]]} {[LIT_CHARS -e]} {[SQ <LIT_CHARS "/#(ref)/d">]} {[LIT_CHARS -e]} {[SQ <LIT_CHARS "/^invalid /p">]}
            <
            (FilenameRedirectNode filename={[LIT_CHARS actual]} <REDIR_GREAT ">"> 1),
            >
          )
        )
        (Com {[LIT_CHARS test_cmp]} {[LIT_CHARS expect]} {[LIT_CHARS actual]})
      )
    )
  )
  (FunctionDef test_no_cache_tree []
    (AndOr OP_AND_IF
      (Com {[LIT_OTHER ":"]}
        <
        (FilenameRedirectNode filename={[LIT_CHARS expect]} <REDIR_GREAT ">"> 1),
        >
      )
      (Com {[LIT_CHARS cmp_cache_tree]} {[LIT_CHARS expect]})
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "initial commit has cache-tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_commit foo &&\n"> <LIT_CHARS "\ttest_cache_tree\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "read-tree HEAD establishes cache-tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit read-tree HEAD &&\n"> <LIT_CHARS "\ttest_cache_tree\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git-add invalidates cache-tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished \"git reset --hard; git read-tree HEAD\" &&\n"> <LIT_CHARS "\techo \"I changed this file\" >foo &&\n"> <LIT_CHARS "\tgit add foo &&\n"> <LIT_CHARS "\ttest_invalid_cache_tree\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git-add in subdir invalidates cache-tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished \"git reset --hard; git read-tree HEAD\" &&\n"> <LIT_CHARS "\tmkdir dirx &&\n"> <LIT_CHARS "\techo \"I changed this file\" >dirx/foo &&\n"> <LIT_CHARS "\tgit add dirx/foo &&\n"> <LIT_CHARS "\ttest_invalid_cache_tree\n">]})
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS before]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "SHA  (3 entries, 2 subtrees)\n"] [LIT_CHARS "SHA dir1/ (1 entries, 0 subtrees)\n"] [LIT_CHARS "SHA dir2/ (1 entries, 0 subtrees)\n"]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expect]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "invalid                                   (2 subtrees)\n"] [LIT_CHARS "invalid                                  dir1/ (0 subtrees)\n"] [LIT_CHARS "SHA dir2/ (1 entries, 0 subtrees)\n"]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git-add in subdir does not invalidate sibling cache-tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit tag no-children &&\n"> <LIT_CHARS "\ttest_when_finished \"git reset --hard no-children; git read-tree HEAD\" &&\n"> <LIT_CHARS "\tmkdir dir1 dir2 &&\n"> <LIT_CHARS "\ttest_commit dir1/a &&\n"> <LIT_CHARS "\ttest_commit dir2/b &&\n"> <LIT_CHARS "\techo \"I changed this file\" >dir1/a &&\n"> <LIT_CHARS "\tcmp_cache_tree before &&\n"> <LIT_CHARS "\techo \"I changed this file\" >dir1/a &&\n"> <LIT_CHARS "\tgit add dir1/a &&\n"> <LIT_CHARS "\tcmp_cache_tree expect\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "update-index invalidates cache-tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished \"git reset --hard; git read-tree HEAD\" &&\n"> <LIT_CHARS "\techo \"I changed this file\" >foo &&\n"> <LIT_CHARS "\tgit update-index --add foo &&\n"> <LIT_CHARS "\ttest_invalid_cache_tree\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "write-tree establishes cache-tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest-scrap-cache-tree &&\n"> <LIT_CHARS "\tgit write-tree &&\n"> <LIT_CHARS "\ttest_cache_tree\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "test-scrap-cache-tree works">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit read-tree HEAD &&\n"> <LIT_CHARS "\ttest-scrap-cache-tree &&\n"> <LIT_CHARS "\ttest_no_cache_tree\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "second commit has cache-tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_commit bar &&\n"> <LIT_CHARS "\ttest_cache_tree\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "commit --interactive gives cache-tree on partial commit">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat <<-\\EOT >foo.c &&\n"> <LIT_CHARS "\tint foo()\n"> <LIT_CHARS "\t{\n"> <LIT_CHARS "\t\treturn 42;\n"> <LIT_CHARS "\t}\n"> <LIT_CHARS "\tint bar()\n"> <LIT_CHARS "\t{\n"> <LIT_CHARS "\t\treturn 42;\n"> <LIT_CHARS "\t}\n"> <LIT_CHARS "\tEOT\n"> <LIT_CHARS "\tgit add foo.c &&\n"> <LIT_CHARS "\ttest_invalid_cache_tree &&\n"> <LIT_CHARS "\tgit commit -m \"add a file\" &&\n"> <LIT_CHARS "\ttest_cache_tree &&\n"> <LIT_CHARS "\tcat <<-\\EOT >foo.c &&\n"> <LIT_CHARS "\tint foo()\n"> <LIT_CHARS "\t{\n"> <LIT_CHARS "\t\treturn 43;\n"> <LIT_CHARS "\t}\n"> <LIT_CHARS "\tint bar()\n"> <LIT_CHARS "\t{\n"> <LIT_CHARS "\t\treturn 44;\n"> <LIT_CHARS "\t}\n"> <LIT_CHARS "\tEOT\n"> <LIT_CHARS "\t(echo p; echo 1; echo; echo s; echo n; echo y; echo q) |\n"> <LIT_CHARS "\tgit commit --interactive -m foo &&\n"> <LIT_CHARS "\ttest_cache_tree\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "commit in child dir has cache-tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir dir &&\n"> <LIT_CHARS "\t>dir/child.t &&\n"> <LIT_CHARS "\tgit add dir/child.t &&\n"> <LIT_CHARS "\tgit commit -m dir/child.t &&\n"> <LIT_CHARS "\ttest_cache_tree\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "reset --hard gives cache-tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest-scrap-cache-tree &&\n"> <LIT_CHARS "\tgit reset --hard &&\n"> <LIT_CHARS "\ttest_cache_tree\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "reset --hard without index gives cache-tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -f .git/index &&\n"> <LIT_CHARS "\tgit reset --hard &&\n"> <LIT_CHARS "\ttest_cache_tree\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "checkout gives cache-tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit tag current &&\n"> <LIT_CHARS "\tgit checkout HEAD^ &&\n"> <LIT_CHARS "\ttest_cache_tree\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "checkout -b gives cache-tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout current &&\n"> <LIT_CHARS "\tgit checkout -b prev HEAD^ &&\n"> <LIT_CHARS "\ttest_cache_tree\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "checkout -B gives cache-tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout current &&\n"> <LIT_CHARS "\tgit checkout -B prev HEAD^ &&\n"> <LIT_CHARS "\ttest_cache_tree\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "merge --ff-only maintains cache-tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout current &&\n"> <LIT_CHARS "\tgit checkout -b changes &&\n"> <LIT_CHARS "\ttest_commit llamas &&\n"> <LIT_CHARS "\ttest_commit pachyderm &&\n"> <LIT_CHARS "\ttest_cache_tree &&\n"> <LIT_CHARS "\tgit checkout current &&\n"> <LIT_CHARS "\ttest_cache_tree &&\n"> <LIT_CHARS "\tgit merge --ff-only changes &&\n"> <LIT_CHARS "\ttest_cache_tree\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "merge maintains cache-tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout current &&\n"> <LIT_CHARS "\tgit checkout -b changes2 &&\n"> <LIT_CHARS "\ttest_commit alpacas &&\n"> <LIT_CHARS "\ttest_cache_tree &&\n"> <LIT_CHARS "\tgit checkout current &&\n"> <LIT_CHARS "\ttest_commit struthio &&\n"> <LIT_CHARS "\ttest_cache_tree &&\n"> <LIT_CHARS "\tgit merge changes2 &&\n"> <LIT_CHARS "\ttest_cache_tree\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "partial commit gives cache-tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout -b partial no-children &&\n"> <LIT_CHARS "\ttest_commit one &&\n"> <LIT_CHARS "\ttest_commit two &&\n"> <LIT_CHARS "\techo \"some change\" >one.t &&\n"> <LIT_CHARS "\tgit add one.t &&\n"> <LIT_CHARS "\techo \"some other change\" >two.t &&\n"> <LIT_CHARS "\tgit commit two.t -m partial &&\n"> <LIT_CHARS "\ttest_cache_tree\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "no phantom error when switching trees">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir newdir &&\n"> <LIT_CHARS "\t>newdir/one &&\n"> <LIT_CHARS "\tgit add newdir/one &&\n"> <LIT_CHARS "\tgit checkout 2>errors &&\n"> <LIT_CHARS "\t! test -s errors\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "switching trees does not invalidate shared index">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit update-index --split-index &&\n"> <LIT_CHARS "\t>split &&\n"> <LIT_CHARS "\tgit add split &&\n"> <LIT_CHARS "\ttest-dump-split-index .git/index | grep -v ^own >before &&\n"> <LIT_CHARS "\tgit commit -m \"as-is\" &&\n"> <LIT_CHARS "\ttest-dump-split-index .git/index | grep -v ^own >after &&\n"> <LIT_CHARS "\ttest_cmp before after\n">]})
  (Com {[LIT_CHARS test_done]})
)