(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <'git commit races'>)}
          spids: [4]
        )
      ]
      spids: [4]
    )
    (C {(.)} {(./test-lib.sh)})
    (C {(test_expect_success)} {(SQ <'race to create orphan commit'>)} 
      {
        (SQ <'\n'> <'\twrite_script hare-editor <<-\\EOF &&\n'> 
          <'\tgit commit --allow-empty -m hare\n'> <'\tEOF\n'> <'\ttest_must_fail env EDITOR=./hare-editor git commit --allow-empty -m tortoise -e &&\n'> 
          <'\tgit show -s --pretty=format:%s >subject &&\n'> <'\tgrep hare subject &&\n'> <'\ttest -z "$(git show -s --pretty=format:%P)"\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'race to create non-orphan commit'>)} 
      {
        (SQ <'\n'> <'\twrite_script airplane-editor <<-\\EOF &&\n'> 
          <'\tgit commit --allow-empty -m airplane\n'> <'\tEOF\n'> <'\tgit checkout --orphan branch &&\n'> <'\tgit commit --allow-empty -m base &&\n'> 
          <'\tgit rev-parse HEAD >base &&\n'> <'\ttest_must_fail env EDITOR=./airplane-editor git commit --allow-empty -m ship -e &&\n'> 
          <'\tgit show -s --pretty=format:%s >subject &&\n'> <'\tgrep airplane subject &&\n'> <'\tgit rev-parse HEAD^ >parent &&\n'> <'\ttest_cmp base parent\n'>
        )
      }
    )
    (C {(test_done)})
  ]
)