(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "git commit-tree options test\n"> <LIT_CHARS "\n"> <LIT_CHARS "This test checks that git commit-tree can create a specific commit\n"> <LIT_CHARS "object by defining all environment variables that it understands.\n"> <LIT_CHARS "\n"> <LIT_CHARS "Also make sure that command line parser understands the normal\n"> <LIT_CHARS "\"flags first and then non flag arguments\" command line.\n">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]}  )
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expected]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=True body_word={[DQ [LIT_CHARS "tree 4b825dc642cb6eb9a060e54bf8d69288fbee4904\n"][LIT_CHARS "author Author Name <author@email> 1117148400 +0000\n"][LIT_CHARS "committer Committer Name <committer@email> 1117150200 +0000\n"][LIT_CHARS "\n"][LIT_CHARS "comment text\n"]]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "test preparation: write empty tree">]} {[SQ <LIT_CHARS "git write-tree >treeid">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "construct commit">]} {[SQ <LIT_CHARS "echo comment text |\n"> <LIT_CHARS "     GIT_AUTHOR_NAME=\"Author Name\" \\\n"> <LIT_CHARS "     GIT_AUTHOR_EMAIL=\"author@email\" \\\n"> <LIT_CHARS "     GIT_AUTHOR_DATE=\"2005-05-26 23:00\" \\\n"> <LIT_CHARS "     GIT_COMMITTER_NAME=\"Committer Name\" \\\n"> <LIT_CHARS "     GIT_COMMITTER_EMAIL=\"committer@email\" \\\n"> <LIT_CHARS "     GIT_COMMITTER_DATE=\"2005-05-26 23:30\" \\\n"> <LIT_CHARS "     TZ=GMT git commit-tree `cat treeid` >commitid 2>/dev/null">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "read commit">]} {[SQ <LIT_CHARS "git cat-file commit `cat commitid` >commit">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "compare commit">]} {[SQ <LIT_CHARS "test_cmp expected commit">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "flags and then non flags">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\techo comment text |\n"> <LIT_CHARS "\tgit commit-tree $(cat treeid) >commitid &&\n"> <LIT_CHARS "\techo comment text |\n"> <LIT_CHARS "\tgit commit-tree $(cat treeid) -p $(cat commitid) >childid-1 &&\n"> <LIT_CHARS "\techo comment text |\n"> <LIT_CHARS "\tgit commit-tree -p $(cat commitid) $(cat treeid) >childid-2 &&\n"> <LIT_CHARS "\ttest_cmp childid-1 childid-2 &&\n"> <LIT_CHARS "\tgit commit-tree $(cat treeid) -m foo >childid-3 &&\n"> <LIT_CHARS "\tgit commit-tree -m foo $(cat treeid) >childid-4 &&\n"> <LIT_CHARS "\ttest_cmp childid-3 childid-4\n">]}  )
  (Com {[LIT_CHARS test_done]}  )
)