(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <'--reverse combines with --parents'>)}
          spids: [4]
        )
      ]
      spids: [4]
    )
    (C {(.)} {(./test-lib.sh)})
    (FuncDef
      name: commit
      body: 
        (BraceGroup
          children: [
            (AndOr
              children: [
                (C {(test_tick)})
                (AndOr
                  children: [
                    (SimpleCommand
                      words: [{(echo)} {($ VSub_Number '$1')}]
                      redirects: [(Redir op_id:Redir_Great fd:-1 arg_word:{(foo)} spids:[33])]
                    )
                    (AndOr
                      children: [
                        (C {(git)} {(add)} {(foo)})
                        (C {(git)} {(commit)} {(-m)} {(DQ ($ VSub_Number '$1'))})
                      ]
                      op_id: Op_DAmp
                    )
                  ]
                  op_id: Op_DAmp
                )
              ]
              op_id: Op_DAmp
            )
          ]
          spids: [21]
        )
      spids: [16 20]
    )
    (C {(test_expect_success)} {(SQ <'set up --reverse example'>)} 
      {
        (SQ <'\n'> <'\tcommit one &&\n'> <'\tgit tag root &&\n'> <'\tcommit two &&\n'> 
          <'\tgit checkout -b side HEAD^ &&\n'> <'\tcommit three &&\n'> <'\tgit checkout master &&\n'> <'\tgit merge -s ours side &&\n'> 
          <'\tcommit five\n'> <'\t'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'--reverse --parents --full-history combines correctly'>)} 
      {
        (SQ <'\n'> <'\tgit rev-list --parents --full-history master -- foo |\n'> 
          <'\t\tperl -e "print reverse <>" > expected &&\n'> <'\tgit rev-list --reverse --parents --full-history master -- foo \\\n'> <'\t\t> actual &&\n'> 
          <'\ttest_cmp actual expected\n'> <'\t'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'--boundary does too'>)} 
      {
        (SQ <'\n'> <'\tgit rev-list --boundary --parents --full-history master ^root -- foo |\n'> 
          <'\t\tperl -e "print reverse <>" > expected &&\n'> <'\tgit rev-list --boundary --reverse --parents --full-history \\\n'> 
          <'\t\tmaster ^root -- foo > actual &&\n'> <'\ttest_cmp actual expected\n'> <'\t'>
        )
      }
    )
    (C {(test_done)})
  ]
)