(command.CommandList
  children: [
    (command.Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (lhs_expr.LhsName name:test_description)
          op: Equal
          rhs: {(SQ <'hunk edit with "commit -p -m"'>)}
        )
      ]
    )
    (C {(.)} {(./test-lib.sh)})
    (command.If
      arms: [
        (if_arm
          cond: [(command.Pipeline children:[(C {(test_have_prereq)} {(PERL)})] negated:T)]
          action: [
            (command.Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (lhs_expr.LhsName name:skip_all)
                  op: Equal
                  rhs: 
                    {
                      (DQ ("skipping '") ($ VSub_DollarName '$test_description') 
                        ("' tests, perl not available")
                      )
                    }
                )
              ]
            )
            (C {(test_done)})
          ]
        )
      ]
    )
    (C {(test_expect_success)} {(SQ <'setup (initial)'>)} 
      {(SQ <'\n'> <'\techo line1 >file &&\n'> <'\tgit add file &&\n'> <'\tgit commit -m commit1\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'edit hunk "commit -p -m message"'>)} 
      {
        (SQ <'\n'> <'\ttest_when_finished "rm -f editor_was_started" &&\n'> 
          <'\trm -f editor_was_started &&\n'> <'\techo more >>file &&\n'> 
          <'\techo e | env GIT_EDITOR=": >editor_was_started" git commit -p -m commit2 file &&\n'> <'\ttest -r editor_was_started\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'edit hunk "commit --dry-run -p -m message"'>)} 
      {
        (SQ <'\n'> <'\ttest_when_finished "rm -f editor_was_started" &&\n'> 
          <'\trm -f editor_was_started &&\n'> <'\techo more >>file &&\n'> 
          <'\techo e | env GIT_EDITOR=": >editor_was_started" git commit -p -m commit3 file &&\n'> <'\ttest -r editor_was_started\n'>
        )
      }
    )
    (C {(test_done)})
  ]
)