(command.CommandList
  children: [
    (command.Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (lhs_expr.LhsName name:test_description spids:[12])
          op: Equal
          rhs: {(SQ <'forced push to replace commit we do not have'>)}
          spids: [12]
        )
      ]
      spids: [12]
    )
    (C {(.)} {(./test-lib.sh)})
    (C {(test_expect_success)} {(setup)} 
      {
        (SQ <'\n'> <'\n'> <'\t>file1 && git add file1 && test_tick &&\n'> 
          <'\tgit commit -m Initial &&\n'> <'\tgit config receive.denyCurrentBranch warn &&\n'> <'\n'> <'\tmkdir another && (\n'> 
          <'\t\tcd another &&\n'> <'\t\tgit init &&\n'> <'\t\tgit fetch --update-head-ok .. master:master\n'> <'\t) &&\n'> <'\n'> 
          <'\t>file2 && git add file2 && test_tick &&\n'> <'\tgit commit -m Second\n'> <'\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'non forced push should die not segfault'>)} 
      {
        (SQ <'\n'> <'\n'> <'\t(\n'> <'\t\tcd another &&\n'> <'\t\tgit push .. master:master\n'> 
          <'\t\ttest $? = 1\n'> <'\t)\n'> <'\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'forced push should succeed'>)} 
      {
        (SQ <'\n'> <'\n'> <'\t(\n'> <'\t\tcd another &&\n'> <'\t\tgit push .. +master:master\n'> <'\t)\n'> 
          <'\n'>
        )
      }
    )
    (C {(test_done)})
  ]
)