(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "git ls-tree test.\n"> <LIT_CHARS "\n"> <LIT_CHARS "This test runs git ls-tree with the following in a tree.\n"> <LIT_CHARS "\n"> <LIT_CHARS "    path0       - a file\n"> <LIT_CHARS "    path1\t- a symlink\n"> <LIT_CHARS "    path2/foo   - a file in a directory\n"> <LIT_CHARS "    path2/bazbo - a symlink in a directory\n"> <LIT_CHARS "    path2/baz/b - a file in a directory in a directory\n"> <LIT_CHARS "\n"> <LIT_CHARS "The new path restriction code should do the right thing for path2 and\n"> <LIT_CHARS "path2/baz.  Also path0/ should snow nothing.\n">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS setup>]} {[SQ <LIT_CHARS "mkdir path2 path2/baz &&\n"> <LIT_CHARS "     echo Hi >path0 &&\n"> <LIT_CHARS "     test_ln_s_add path0 path1 &&\n"> <LIT_CHARS "     test_ln_s_add ../path1 path2/bazbo &&\n"> <LIT_CHARS "     echo Lo >path2/foo &&\n"> <LIT_CHARS "     echo Mi >path2/baz/b &&\n"> <LIT_CHARS "     find path? \\( -type f -o -type l \\) -print |\n"> <LIT_CHARS "     xargs git update-index --add &&\n"> <LIT_CHARS "     tree=$(git write-tree) &&\n"> <LIT_CHARS "     echo $tree">]})
  (FunctionDef test_output []
    (List
      (Com {[LIT_CHARS sed]} {[LIT_CHARS -e]} {[DQ [LIT_CHARS "s/ "][VarSub _x40][LIT_CHARS "\t/ X\t/"]]}
        <
        (FilenameRedirectNode filename={[LIT_CHARS current]} <REDIR_LESS "<"> 0),
        (FilenameRedirectNode filename={[LIT_CHARS check]} <REDIR_GREAT ">"> 1),
        >
      )
      (Com {[LIT_CHARS test_cmp]} {[LIT_CHARS expected]} {[LIT_CHARS check]})
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "ls-tree plain">]} {[SQ <LIT_CHARS "git ls-tree $tree >current &&\n"> <LIT_CHARS "     cat >expected <<\\EOF &&\n"> <LIT_CHARS "100644 blob X\tpath0\n"> <LIT_CHARS "120000 blob X\tpath1\n"> <LIT_CHARS "040000 tree X\tpath2\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "     test_output">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "ls-tree recursive">]} {[SQ <LIT_CHARS "git ls-tree -r $tree >current &&\n"> <LIT_CHARS "     cat >expected <<\\EOF &&\n"> <LIT_CHARS "100644 blob X\tpath0\n"> <LIT_CHARS "120000 blob X\tpath1\n"> <LIT_CHARS "100644 blob X\tpath2/baz/b\n"> <LIT_CHARS "120000 blob X\tpath2/bazbo\n"> <LIT_CHARS "100644 blob X\tpath2/foo\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "     test_output">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "ls-tree recursive with -t">]} {[SQ <LIT_CHARS "git ls-tree -r -t $tree >current &&\n"> <LIT_CHARS "     cat >expected <<\\EOF &&\n"> <LIT_CHARS "100644 blob X\tpath0\n"> <LIT_CHARS "120000 blob X\tpath1\n"> <LIT_CHARS "040000 tree X\tpath2\n"> <LIT_CHARS "040000 tree X\tpath2/baz\n"> <LIT_CHARS "100644 blob X\tpath2/baz/b\n"> <LIT_CHARS "120000 blob X\tpath2/bazbo\n"> <LIT_CHARS "100644 blob X\tpath2/foo\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "     test_output">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "ls-tree recursive with -d">]} {[SQ <LIT_CHARS "git ls-tree -r -d $tree >current &&\n"> <LIT_CHARS "     cat >expected <<\\EOF &&\n"> <LIT_CHARS "040000 tree X\tpath2\n"> <LIT_CHARS "040000 tree X\tpath2/baz\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "     test_output">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "ls-tree filtered with path">]} {[SQ <LIT_CHARS "git ls-tree $tree path >current &&\n"> <LIT_CHARS "     cat >expected <<\\EOF &&\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "     test_output">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "ls-tree filtered with path1 path0">]} {[SQ <LIT_CHARS "git ls-tree $tree path1 path0 >current &&\n"> <LIT_CHARS "     cat >expected <<\\EOF &&\n"> <LIT_CHARS "100644 blob X\tpath0\n"> <LIT_CHARS "120000 blob X\tpath1\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "     test_output">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "ls-tree filtered with path0/">]} {[SQ <LIT_CHARS "git ls-tree $tree path0/ >current &&\n"> <LIT_CHARS "     cat >expected <<\\EOF &&\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "     test_output">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "ls-tree filtered with path2">]} {[SQ <LIT_CHARS "git ls-tree $tree path2 >current &&\n"> <LIT_CHARS "     cat >expected <<\\EOF &&\n"> <LIT_CHARS "040000 tree X\tpath2\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "     test_output">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "ls-tree filtered with path2/">]} {[SQ <LIT_CHARS "git ls-tree $tree path2/ >current &&\n"> <LIT_CHARS "     cat >expected <<\\EOF &&\n"> <LIT_CHARS "040000 tree X\tpath2/baz\n"> <LIT_CHARS "120000 blob X\tpath2/bazbo\n"> <LIT_CHARS "100644 blob X\tpath2/foo\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "     test_output">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "ls-tree filtered with path2/baz">]} {[SQ <LIT_CHARS "git ls-tree $tree path2/baz >current &&\n"> <LIT_CHARS "     cat >expected <<\\EOF &&\n"> <LIT_CHARS "040000 tree X\tpath2/baz\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "     test_output">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "ls-tree filtered with path2/bak">]} {[SQ <LIT_CHARS "git ls-tree $tree path2/bak >current &&\n"> <LIT_CHARS "     cat >expected <<\\EOF &&\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "     test_output">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "ls-tree -t filtered with path2/bak">]} {[SQ <LIT_CHARS "git ls-tree -t $tree path2/bak >current &&\n"> <LIT_CHARS "     cat >expected <<\\EOF &&\n"> <LIT_CHARS "040000 tree X\tpath2\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "     test_output">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "ls-tree with one path a prefix of the other">]} {[SQ <LIT_CHARS "git ls-tree $tree path2/baz path2/bazbo >current &&\n"> <LIT_CHARS "     cat >expected <<\\EOF &&\n"> <LIT_CHARS "040000 tree X\tpath2/baz\n"> <LIT_CHARS "120000 blob X\tpath2/bazbo\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "     test_output">]})
  (Com {[LIT_CHARS test_done]})
)