(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
      (Com {[LIT_CHARS test-dump-cache-tree]}
        <
        (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 test_shallow_cache_tree []
    (AndOr OP_AND_IF
      (Com {[LIT_CHARS printf]} {[DQ [LIT_CHARS "SHA  (%d entries, 0 subtrees)"][\ LIT_ESCAPED_CHAR "\\n"]]} {[ComSub (Pipeline (Com {[LIT_CHARS git]} {[LIT_CHARS ls-files]}) (Com {[LIT_CHARS wc]} {[LIT_CHARS -l]}) )]}
        <
        (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 echo]} {[DQ [LIT_CHARS "invalid                                   (0 subtrees)"]]}
        <
        (FilenameRedirectNode filename={[LIT_CHARS expect]} <REDIR_GREAT ">"> 1),
        >
      )
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS printf]} {[DQ [LIT_CHARS "SHA #(ref)  (%d entries, 0 subtrees)"][\ LIT_ESCAPED_CHAR "\\n"]]} {[ComSub (Pipeline (Com {[LIT_CHARS git]} {[LIT_CHARS ls-files]}) (Com {[LIT_CHARS wc]} {[LIT_CHARS -l]}) )]}
          <
          (FilenameRedirectNode filename={[LIT_CHARS expect]} <REDIR_DGREAT ">>"> 1),
          >
        )
        (Com {[LIT_CHARS cmp_cache_tree]} {[LIT_CHARS expect]}        )
      )
    )
  )
  (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_failure]} {[SQ <LIT_CHARS "initial commit has cache-tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_commit foo &&\n"> <LIT_CHARS "\ttest_shallow_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_shallow_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 "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_shallow_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_shallow_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_shallow_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_shallow_cache_tree\n">]}  )
  (Com {[LIT_CHARS test_expect_failure]} {[SQ <LIT_CHARS "checkout gives cache-tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout HEAD^ &&\n"> <LIT_CHARS "\ttest_shallow_cache_tree\n">]}  )
  (Com {[LIT_CHARS test_done]}  )
)