(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <"--all includes detached HEADs">)}
          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 <setup>)} 
      {
        (SQ <"\n"> <"\n"> <"\tcommit one &&\n"> <"\tcommit two &&\n"> <"\tgit checkout HEAD^ &&\n"> 
          <"\tcommit detached\n"> <"\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"rev-list --all lists detached HEAD">)} 
      {(SQ <"\n"> <"\n"> <"\ttest 3 = $(git rev-list --all | wc -l)\n"> <"\n">)}
    )
    (C {(test_expect_success)} {(SQ <"repack does not lose detached HEAD">)} 
      {
        (SQ <"\n"> <"\n"> <"\tgit gc &&\n"> <"\tgit prune --expire=now &&\n"> <"\tgit show HEAD\n"> <"\n">)
      }
    )
    (C {(test_expect_success)} {(SQ <"rev-list --graph --no-walk is forbidden">)} 
      {(SQ <"\n"> <"\ttest_must_fail git rev-list --graph --no-walk HEAD\n">)}
    )
    (C {(test_done)})
  ]
)