(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 "     if test_have_prereq SYMLINKS\n"> <LIT_CHARS "     then\n"> <LIT_CHARS "\tln -s path0 path1 &&\n"> <LIT_CHARS "\tln -s ../path1 path2/bazbo\n"> <LIT_CHARS "\tmake_expected () {\n"> <LIT_CHARS "\t\tcat >expected\n"> <LIT_CHARS "\t}\n"> <LIT_CHARS "     else\n"> <LIT_CHARS "\tprintf path0 > path1 &&\n"> <LIT_CHARS "\tprintf ../path1 > path2/bazbo\n"> <LIT_CHARS "\tmake_expected () {\n"> <LIT_CHARS "\t\tsed -e \"s/120000 /100644 /\" >expected\n"> <LIT_CHARS "\t}\n"> <LIT_CHARS "     fi &&\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 "     make_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 "     make_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 "     make_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 "     make_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 "     make_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 "     make_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 "     make_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 "     make_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 "     make_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 "     make_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 "     make_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 "     make_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 "     make_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]}  )
)