(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "hunk edit with \"commit -p -m\"">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (If
    (Pipeline!
      (Com {[LIT_CHARS test_have_prereq]} {[LIT_CHARS PERL]})
    )
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('skip_all', {[DQ [LIT_CHARS "skipping '"][VarSub test_description][LIT_CHARS "' tests, perl not available"]]})])
      (Com {[LIT_CHARS test_done]})
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup (initial)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo line1 >file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\tgit commit -m commit1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "edit hunk \"commit -p -m message\"">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished \"rm -f editor_was_started\" &&\n"> <LIT_CHARS "\trm -f editor_was_started &&\n"> <LIT_CHARS "\techo more >>file &&\n"> <LIT_CHARS "\techo e | env GIT_EDITOR=\": >editor_was_started\" git commit -p -m commit2 file &&\n"> <LIT_CHARS "\ttest -r editor_was_started\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "edit hunk \"commit --dry-run -p -m message\"">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished \"rm -f editor_was_started\" &&\n"> <LIT_CHARS "\trm -f editor_was_started &&\n"> <LIT_CHARS "\techo more >>file &&\n"> <LIT_CHARS "\techo e | env GIT_EDITOR=\": >editor_was_started\" git commit -p -m commit3 file &&\n"> <LIT_CHARS "\ttest -r editor_was_started\n">]})
  (Com {[LIT_CHARS test_done]})
)