(command.CommandList
  children: [
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name name:test_description)
          op: assign_op.Equal
          rhs: 
            {
              (SQ <'git commit-tree options test\n'> <'\n'> 
                <'This test checks that git commit-tree can create a specific commit\n'> <'object by defining all environment variables that it understands.\n'> <'\n'> 
                <'Also make sure that command line parser understands the normal\n'> <'"flags first and then non flag arguments" command line.\n'>
              )
            }
          spids: [13]
        )
      ]
    )
    (C {<.>} {<'./test-lib.sh'>})
    (command.Simple
      words: [{<cat>}]
      redirects: [
        (redir op:<Id.Redir_Great '>'> loc:(redir_loc.Fd fd:1) arg:{<expected>})
        (redir
          op: <Id.Redir_DLess '<<'>
          loc: (redir_loc.Fd fd:0)
          arg: 
            (redir_param.MultiLine
              here_begin: {<EOF>}
              here_end_span_id: 46
              stdin_parts: [
                <'tree '>
                ($ Id.VSub_DollarName '$EMPTY_TREE')
                <'\n'>
                <'author Author Name <author@email> 1117148400 +0000\n'>
                <'committer Committer Name <committer@email> 1117150200 +0000\n'>
                <'\n'>
                <'comment text\n'>
              ]
            )
        )
      ]
      do_fork: T
    )
    (C {<test_expect_success>} {(SQ <'test preparation: write empty tree'>)} 
      {(SQ <'git write-tree >treeid'>)}
    )
    (C {<test_expect_success>} {(SQ <'construct commit'>)} 
      {
        (SQ <'echo comment text |\n'> <'     GIT_AUTHOR_NAME="Author Name" \\\n'> 
          <'     GIT_AUTHOR_EMAIL="author@email" \\\n'> <'     GIT_AUTHOR_DATE="2005-05-26 23:00" \\\n'> <'     GIT_COMMITTER_NAME="Committer Name" \\\n'> 
          <'     GIT_COMMITTER_EMAIL="committer@email" \\\n'> <'     GIT_COMMITTER_DATE="2005-05-26 23:30" \\\n'> 
          <'     TZ=GMT git commit-tree $(cat treeid) >commitid 2>/dev/null'>
        )
      }
    )
    (C {<test_expect_success>} {(SQ <'read commit'>)} 
      {(SQ <'git cat-file commit $(cat commitid) >commit'>)}
    )
    (C {<test_expect_success>} {(SQ <'compare commit'>)} {(SQ <'test_cmp expected commit'>)})
    (C {<test_expect_success>} {(SQ <'flags and then non flags'>)} 
      {
        (SQ <'\n'> <'\ttest_tick &&\n'> <'\techo comment text |\n'> 
          <'\tgit commit-tree $(cat treeid) >commitid &&\n'> <'\techo comment text |\n'> <'\tgit commit-tree $(cat treeid) -p $(cat commitid) >childid-1 &&\n'> 
          <'\techo comment text |\n'> <'\tgit commit-tree -p $(cat commitid) $(cat treeid) >childid-2 &&\n'> 
          <'\ttest_cmp childid-1 childid-2 &&\n'> <'\tgit commit-tree $(cat treeid) -m foo >childid-3 &&\n'> 
          <'\tgit commit-tree -m foo $(cat treeid) >childid-4 &&\n'> <'\ttest_cmp childid-3 childid-4\n'>
        )
      }
    )
    (C {<test_done>})
  ]
)