(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "stash -p">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./lib-patch-mode.sh]})
  (If
    (Pipeline!
      (Com {[LIT_CHARS test_have_prereq]} {[LIT_CHARS PERL]})
    )
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('skip_all', {[SQ <LIT_CHARS "skipping stash -p tests, perl not available">]})])
      (Com {[LIT_CHARS test_done]})
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[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 "\techo committed > HEAD &&\n"> <LIT_CHARS "\tgit add bar dir/foo HEAD &&\n"> <LIT_CHARS "\tgit commit -m initial &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\ttest_commit second dir/foo head &&\n"> <LIT_CHARS "\techo index > dir/foo &&\n"> <LIT_CHARS "\tgit add dir/foo &&\n"> <LIT_CHARS "\tset_and_save_state bar bar_work bar_index &&\n"> <LIT_CHARS "\tsave_head\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "saying \"n\" does nothing">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tset_state HEAD HEADfile_work HEADfile_index &&\n"> <LIT_CHARS "\tset_state dir/foo work index &&\n"> <LIT_CHARS "\t(echo n; echo n; echo n) | test_must_fail git stash save -p &&\n"> <LIT_CHARS "\tverify_state HEAD HEADfile_work HEADfile_index &&\n"> <LIT_CHARS "\tverify_saved_state bar &&\n"> <LIT_CHARS "\tverify_state dir/foo work index\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git stash -p">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(echo y; echo n; echo y) | git stash save -p &&\n"> <LIT_CHARS "\tverify_state HEAD committed HEADfile_index &&\n"> <LIT_CHARS "\tverify_saved_state bar &&\n"> <LIT_CHARS "\tverify_state dir/foo head index &&\n"> <LIT_CHARS "\tgit reset --hard &&\n"> <LIT_CHARS "\tgit stash apply &&\n"> <LIT_CHARS "\tverify_state HEAD HEADfile_work committed &&\n"> <LIT_CHARS "\tverify_state bar dummy dummy &&\n"> <LIT_CHARS "\tverify_state dir/foo work head\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git stash -p --no-keep-index">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tset_state HEAD HEADfile_work HEADfile_index &&\n"> <LIT_CHARS "\tset_state bar bar_work bar_index &&\n"> <LIT_CHARS "\tset_state dir/foo work index &&\n"> <LIT_CHARS "\t(echo y; echo n; echo y) | git stash save -p --no-keep-index &&\n"> <LIT_CHARS "\tverify_state HEAD committed committed &&\n"> <LIT_CHARS "\tverify_state bar bar_work dummy &&\n"> <LIT_CHARS "\tverify_state dir/foo head head &&\n"> <LIT_CHARS "\tgit reset --hard &&\n"> <LIT_CHARS "\tgit stash apply --index &&\n"> <LIT_CHARS "\tverify_state HEAD HEADfile_work HEADfile_index &&\n"> <LIT_CHARS "\tverify_state bar dummy bar_index &&\n"> <LIT_CHARS "\tverify_state dir/foo work index\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "git stash --no-keep-index -p">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tset_state HEAD HEADfile_work HEADfile_index &&\n"> <LIT_CHARS "\tset_state bar bar_work bar_index &&\n"> <LIT_CHARS "\tset_state dir/foo work index &&\n"> <LIT_CHARS "\t(echo y; echo n; echo y) | git stash save --no-keep-index -p &&\n"> <LIT_CHARS "\tverify_state HEAD committed committed &&\n"> <LIT_CHARS "\tverify_state dir/foo head head &&\n"> <LIT_CHARS "\tverify_state bar bar_work dummy &&\n"> <LIT_CHARS "\tgit reset --hard &&\n"> <LIT_CHARS "\tgit stash apply --index &&\n"> <LIT_CHARS "\tverify_state HEAD HEADfile_work HEADfile_index &&\n"> <LIT_CHARS "\tverify_state bar dummy bar_index &&\n"> <LIT_CHARS "\tverify_state dir/foo work index\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "none of this moved HEAD">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tverify_saved_head\n">]})
  (Com {[LIT_CHARS test_expect_failure]} {[SQ <LIT_CHARS "stash -p with split hunk">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit reset --hard &&\n"> <LIT_CHARS "\tcat >test <<-\\EOF &&\n"> <LIT_CHARS "\taaa\n"> <LIT_CHARS "\tbbb\n"> <LIT_CHARS "\tccc\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgit add test &&\n"> <LIT_CHARS "\tgit commit -m \"initial\" &&\n"> <LIT_CHARS "\tcat >test <<-\\EOF &&\n"> <LIT_CHARS "\taaa\n"> <LIT_CHARS "\tadded line 1\n"> <LIT_CHARS "\tbbb\n"> <LIT_CHARS "\tadded line 2\n"> <LIT_CHARS "\tccc\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tprintf \"%s\\n\" s n y q |\n"> <LIT_CHARS "\ttest_might_fail git stash -p 2>error &&\n"> <LIT_CHARS "\t! test_must_be_empty error &&\n"> <LIT_CHARS "\tgrep \"added line 1\" test &&\n"> <LIT_CHARS "\t! grep \"added line 2\" test\n">]})
  (Com {[LIT_CHARS test_done]})
)