(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)})
  ]
)