(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <'stash -p'>)}
          spids: [4]
        )
      ]
      spids: [4]
    )
    (C {(.)} {(./lib-patch-mode.sh)})
    (If
      arms: [
        (if_arm
          cond: [(Pipeline children:[(C {(test_have_prereq)} {(PERL)})] negated:True)]
          action: [
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:skip_all)
                  op: Equal
                  rhs: {(SQ <'skipping stash -p tests, perl not available'>)}
                  spids: [25]
                )
              ]
              spids: [25]
            )
            (C {(test_done)})
          ]
          spids: [-1 22]
        )
      ]
      spids: [-1 33]
    )
    (C {(test_expect_success)} {(SQ <setup>)} 
      {
        (SQ <'\n'> <'\tmkdir dir &&\n'> <'\techo parent > dir/foo &&\n'> <'\techo dummy > bar &&\n'> 
          <'\techo committed > HEAD &&\n'> <'\tgit add bar dir/foo HEAD &&\n'> <'\tgit commit -m initial &&\n'> <'\ttest_tick &&\n'> 
          <'\ttest_commit second dir/foo head &&\n'> <'\techo index > dir/foo &&\n'> <'\tgit add dir/foo &&\n'> 
          <'\tset_and_save_state bar bar_work bar_index &&\n'> <'\tsave_head\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'saying "n" does nothing'>)} 
      {
        (SQ <'\n'> <'\tset_state HEAD HEADfile_work HEADfile_index &&\n'> 
          <'\tset_state dir/foo work index &&\n'> <'\t(echo n; echo n; echo n) | test_must_fail git stash save -p &&\n'> 
          <'\tverify_state HEAD HEADfile_work HEADfile_index &&\n'> <'\tverify_saved_state bar &&\n'> <'\tverify_state dir/foo work index\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'git stash -p'>)} 
      {
        (SQ <'\n'> <'\t(echo y; echo n; echo y) | git stash save -p &&\n'> 
          <'\tverify_state HEAD committed HEADfile_index &&\n'> <'\tverify_saved_state bar &&\n'> <'\tverify_state dir/foo head index &&\n'> 
          <'\tgit reset --hard &&\n'> <'\tgit stash apply &&\n'> <'\tverify_state HEAD HEADfile_work committed &&\n'> 
          <'\tverify_state bar dummy dummy &&\n'> <'\tverify_state dir/foo work head\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'git stash -p --no-keep-index'>)} 
      {
        (SQ <'\n'> <'\tset_state HEAD HEADfile_work HEADfile_index &&\n'> 
          <'\tset_state bar bar_work bar_index &&\n'> <'\tset_state dir/foo work index &&\n'> 
          <'\t(echo y; echo n; echo y) | git stash save -p --no-keep-index &&\n'> <'\tverify_state HEAD committed committed &&\n'> <'\tverify_state bar bar_work dummy &&\n'> 
          <'\tverify_state dir/foo head head &&\n'> <'\tgit reset --hard &&\n'> <'\tgit stash apply --index &&\n'> 
          <'\tverify_state HEAD HEADfile_work HEADfile_index &&\n'> <'\tverify_state bar dummy bar_index &&\n'> <'\tverify_state dir/foo work index\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'git stash --no-keep-index -p'>)} 
      {
        (SQ <'\n'> <'\tset_state HEAD HEADfile_work HEADfile_index &&\n'> 
          <'\tset_state bar bar_work bar_index &&\n'> <'\tset_state dir/foo work index &&\n'> 
          <'\t(echo y; echo n; echo y) | git stash save --no-keep-index -p &&\n'> <'\tverify_state HEAD committed committed &&\n'> <'\tverify_state dir/foo head head &&\n'> 
          <'\tverify_state bar bar_work dummy &&\n'> <'\tgit reset --hard &&\n'> <'\tgit stash apply --index &&\n'> 
          <'\tverify_state HEAD HEADfile_work HEADfile_index &&\n'> <'\tverify_state bar dummy bar_index &&\n'> <'\tverify_state dir/foo work index\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'none of this moved HEAD'>)} {(SQ <'\n'> <'\tverify_saved_head\n'>)})
    (C {(test_expect_failure)} {(SQ <'stash -p with split hunk'>)} 
      {
        (SQ <'\n'> <'\tgit reset --hard &&\n'> <'\tcat >test <<-\\EOF &&\n'> <'\taaa\n'> <'\tbbb\n'> 
          <'\tccc\n'> <'\tEOF\n'> <'\tgit add test &&\n'> <'\tgit commit -m "initial" &&\n'> <'\tcat >test <<-\\EOF &&\n'> 
          <'\taaa\n'> <'\tadded line 1\n'> <'\tbbb\n'> <'\tadded line 2\n'> <'\tccc\n'> <'\tEOF\n'> 
          <'\tprintf "%s\\n" s n y q |\n'> <'\ttest_might_fail git stash -p 2>error &&\n'> <'\t! test_must_be_empty error &&\n'> 
          <'\tgrep "added line 1" test &&\n'> <'\t! grep "added line 2" test\n'>
        )
      }
    )
    (C {(test_done)})
  ]
)