(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "git reset --patch">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./lib-patch-mode.sh]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS setup>]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir dir &&\n"> <LIT_CHARS "\techo parent > dir/foo &&\n"> <LIT_CHARS "\techo dummy > bar &&\n"> <LIT_CHARS "\tgit add dir &&\n"> <LIT_CHARS "\tgit commit -m initial &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\ttest_commit second dir/foo head &&\n"> <LIT_CHARS "\tset_and_save_state bar bar_work bar_index &&\n"> <LIT_CHARS "\tsave_head\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "saying \"n\" does nothing">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tset_and_save_state dir/foo work work &&\n"> <LIT_CHARS "\t(echo n; echo n) | git reset -p &&\n"> <LIT_CHARS "\tverify_saved_state dir/foo &&\n"> <LIT_CHARS "\tverify_saved_state bar\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "git reset -p">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(echo n; echo y) | git reset -p >output &&\n"> <LIT_CHARS "\tverify_state dir/foo work head &&\n"> <LIT_CHARS "\tverify_saved_state bar &&\n"> <LIT_CHARS "\ttest_i18ngrep \"Unstage\" output\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "git reset -p HEAD^">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(echo n; echo y) | git reset -p HEAD^ >output &&\n"> <LIT_CHARS "\tverify_state dir/foo work parent &&\n"> <LIT_CHARS "\tverify_saved_state bar &&\n"> <LIT_CHARS "\ttest_i18ngrep \"Apply\" output\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "git reset -p dir">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tset_state dir/foo work work &&\n"> <LIT_CHARS "\t(echo y; echo n) | git reset -p dir &&\n"> <LIT_CHARS "\tverify_state dir/foo work head &&\n"> <LIT_CHARS "\tverify_saved_state bar\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "git reset -p -- foo (inside dir)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tset_state dir/foo work work &&\n"> <LIT_CHARS "\t(echo y; echo n) | (cd dir && git reset -p -- foo) &&\n"> <LIT_CHARS "\tverify_state dir/foo work head &&\n"> <LIT_CHARS "\tverify_saved_state bar\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "git reset -p HEAD^ -- dir">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(echo y; echo n) | git reset -p HEAD^ -- dir &&\n"> <LIT_CHARS "\tverify_state dir/foo work parent &&\n"> <LIT_CHARS "\tverify_saved_state bar\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS PERL]} {[SQ <LIT_CHARS "none of this moved HEAD">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tverify_saved_head\n">]})
  (Com {[LIT_CHARS test_done]})
)