(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: 
            {
              (SQ <'git ls-tree test.\n'> <'\n'> 
                <'This test runs git ls-tree with the following in a tree.\n'> <'\n'> <'    path0       - a file\n'> <'    path1\t- a symlink\n'> 
                <'    path2/foo   - a file in a directory\n'> <'    path2/bazbo - a symlink in a directory\n'> 
                <'    path2/baz/b - a file in a directory in a directory\n'> <'\n'> <'The new path restriction code should do the right thing for path2 and\n'> 
                <'path2/baz.  Also path0/ should snow nothing.\n'>
              )
            }
          spids: [13]
        )
      ]
      spids: [13]
    )
    (C {(.)} {(./test-lib.sh)})
    (C {(test_expect_success)} {(SQ <setup>)} 
      {
        (SQ <'mkdir path2 path2/baz &&\n'> <'     echo Hi >path0 &&\n'> 
          <'     test_ln_s_add path0 path1 &&\n'> <'     test_ln_s_add ../path1 path2/bazbo &&\n'> <'     echo Lo >path2/foo &&\n'> 
          <'     echo Mi >path2/baz/b &&\n'> <'     find path? \\( -type f -o -type l \\) -print |\n'> <'     xargs git update-index --add &&\n'> 
          <'     tree=$(git write-tree) &&\n'> <'     echo $tree'>
        )
      }
    )
    (FuncDef
      name: test_output
      body: 
        (BraceGroup
          children: [
            (SimpleCommand
              words: [{(sed)} {(-e)} {(DQ ('s/ ') ($ VSub_Name '$_x40') ('\t/ X\t/'))}]
              redirects: [
                (Redir op_id:Redir_Less fd:16777215 arg_word:{(current)} spids:[76])
                (Redir op_id:Redir_Great fd:16777215 arg_word:{(check)} spids:[79])
              ]
            )
            (C {(test_cmp)} {(expected)} {(check)})
          ]
          spids: [63]
        )
      spids: [58 62]
    )
    (C {(test_expect_success)} {(SQ <'ls-tree plain'>)} 
      {
        (SQ <'git ls-tree $tree >current &&\n'> <'     cat >expected <<\\EOF &&\n'> 
          <'100644 blob X\tpath0\n'> <'120000 blob X\tpath1\n'> <'040000 tree X\tpath2\n'> <'EOF\n'> <'     test_output'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'ls-tree recursive'>)} 
      {
        (SQ <'git ls-tree -r $tree >current &&\n'> <'     cat >expected <<\\EOF &&\n'> 
          <'100644 blob X\tpath0\n'> <'120000 blob X\tpath1\n'> <'100644 blob X\tpath2/baz/b\n'> <'120000 blob X\tpath2/bazbo\n'> 
          <'100644 blob X\tpath2/foo\n'> <'EOF\n'> <'     test_output'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'ls-tree recursive with -t'>)} 
      {
        (SQ <'git ls-tree -r -t $tree >current &&\n'> <'     cat >expected <<\\EOF &&\n'> 
          <'100644 blob X\tpath0\n'> <'120000 blob X\tpath1\n'> <'040000 tree X\tpath2\n'> <'040000 tree X\tpath2/baz\n'> 
          <'100644 blob X\tpath2/baz/b\n'> <'120000 blob X\tpath2/bazbo\n'> <'100644 blob X\tpath2/foo\n'> <'EOF\n'> <'     test_output'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'ls-tree recursive with -d'>)} 
      {
        (SQ <'git ls-tree -r -d $tree >current &&\n'> <'     cat >expected <<\\EOF &&\n'> 
          <'040000 tree X\tpath2\n'> <'040000 tree X\tpath2/baz\n'> <'EOF\n'> <'     test_output'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'ls-tree filtered with path'>)} 
      {
        (SQ <'git ls-tree $tree path >current &&\n'> <'     cat >expected <<\\EOF &&\n'> <'EOF\n'> 
          <'     test_output'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'ls-tree filtered with path1 path0'>)} 
      {
        (SQ <'git ls-tree $tree path1 path0 >current &&\n'> <'     cat >expected <<\\EOF &&\n'> 
          <'100644 blob X\tpath0\n'> <'120000 blob X\tpath1\n'> <'EOF\n'> <'     test_output'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'ls-tree filtered with path0/'>)} 
      {
        (SQ <'git ls-tree $tree path0/ >current &&\n'> <'     cat >expected <<\\EOF &&\n'> <'EOF\n'> 
          <'     test_output'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'ls-tree filtered with path2'>)} 
      {
        (SQ <'git ls-tree $tree path2 >current &&\n'> <'     cat >expected <<\\EOF &&\n'> 
          <'040000 tree X\tpath2\n'> <'EOF\n'> <'     test_output'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'ls-tree filtered with path2/'>)} 
      {
        (SQ <'git ls-tree $tree path2/ >current &&\n'> <'     cat >expected <<\\EOF &&\n'> 
          <'040000 tree X\tpath2/baz\n'> <'120000 blob X\tpath2/bazbo\n'> <'100644 blob X\tpath2/foo\n'> <'EOF\n'> <'     test_output'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'ls-tree filtered with path2/baz'>)} 
      {
        (SQ <'git ls-tree $tree path2/baz >current &&\n'> <'     cat >expected <<\\EOF &&\n'> 
          <'040000 tree X\tpath2/baz\n'> <'EOF\n'> <'     test_output'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'ls-tree filtered with path2/bak'>)} 
      {
        (SQ <'git ls-tree $tree path2/bak >current &&\n'> <'     cat >expected <<\\EOF &&\n'> <'EOF\n'> 
          <'     test_output'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'ls-tree -t filtered with path2/bak'>)} 
      {
        (SQ <'git ls-tree -t $tree path2/bak >current &&\n'> <'     cat >expected <<\\EOF &&\n'> 
          <'040000 tree X\tpath2\n'> <'EOF\n'> <'     test_output'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'ls-tree with one path a prefix of the other'>)} 
      {
        (SQ <'git ls-tree $tree path2/baz path2/bazbo >current &&\n'> 
          <'     cat >expected <<\\EOF &&\n'> <'040000 tree X\tpath2/baz\n'> <'120000 blob X\tpath2/bazbo\n'> <'EOF\n'> <'     test_output'>
        )
      }
    )
    (C {(test_done)})
  ]
)