(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <"git checkout --patch">)}
          spids: [4]
        )
      ]
      spids: [4]
    )
    (C {(.)} {(./lib-patch-mode.sh)})
    (C {(test_expect_success)} {(PERL)} {(SQ <setup>)} 
      {
        (SQ <"\n"> <"\tmkdir dir &&\n"> <"\techo parent > dir/foo &&\n"> <"\techo dummy > bar &&\n"> 
          <"\tgit add bar dir/foo &&\n"> <"\tgit commit -m initial &&\n"> <"\ttest_tick &&\n"> <"\ttest_commit second dir/foo head &&\n"> 
          <"\tset_and_save_state bar bar_work bar_index &&\n"> <"\tsave_head\n">
        )
      }
    )
    (C {(test_expect_success)} {(PERL)} {(SQ <"saying \"n\" does nothing">)} 
      {
        (SQ <"\n"> <"\tset_and_save_state dir/foo work head &&\n"> 
          <"\t(echo n; echo n) | git checkout -p &&\n"> <"\tverify_saved_state bar &&\n"> <"\tverify_saved_state dir/foo\n">
        )
      }
    )
    (C {(test_expect_success)} {(PERL)} {(SQ <"git checkout -p">)} 
      {
        (SQ <"\n"> <"\t(echo n; echo y) | git checkout -p &&\n"> <"\tverify_saved_state bar &&\n"> 
          <"\tverify_state dir/foo head head\n">
        )
      }
    )
    (C {(test_expect_success)} {(PERL)} {(SQ <"git checkout -p with staged changes">)} 
      {
        (SQ <"\n"> <"\tset_state dir/foo work index &&\n"> 
          <"\t(echo n; echo y) | git checkout -p &&\n"> <"\tverify_saved_state bar &&\n"> <"\tverify_state dir/foo index index\n">
        )
      }
    )
    (C {(test_expect_success)} {(PERL)} {(SQ <"git checkout -p HEAD with NO staged changes: abort">)} 
      {
        (SQ <"\n"> <"\tset_and_save_state dir/foo work head &&\n"> 
          <"\t(echo n; echo y; echo n) | git checkout -p HEAD &&\n"> <"\tverify_saved_state bar &&\n"> <"\tverify_saved_state dir/foo\n">
        )
      }
    )
    (C {(test_expect_success)} {(PERL)} {(SQ <"git checkout -p HEAD with NO staged changes: apply">)} 
      {
        (SQ <"\n"> <"\t(echo n; echo y; echo y) | git checkout -p HEAD &&\n"> 
          <"\tverify_saved_state bar &&\n"> <"\tverify_state dir/foo head head\n">
        )
      }
    )
    (C {(test_expect_success)} {(PERL)} {(SQ <"git checkout -p HEAD with change already staged">)} 
      {
        (SQ <"\n"> <"\tset_state dir/foo index index &&\n"> 
          <"\t# the third n is to get out in case it mistakenly does not apply\n"> <"\t(echo n; echo y; echo n) | git checkout -p HEAD &&\n"> <"\tverify_saved_state bar &&\n"> 
          <"\tverify_state dir/foo head head\n">
        )
      }
    )
    (C {(test_expect_success)} {(PERL)} {(SQ <"git checkout -p HEAD^">)} 
      {
        (SQ <"\n"> <"\t# the third n is to get out in case it mistakenly does not apply\n"> 
          <"\t(echo n; echo y; echo n) | git checkout -p HEAD^ &&\n"> <"\tverify_saved_state bar &&\n"> <"\tverify_state dir/foo parent parent\n">
        )
      }
    )
    (C {(test_expect_success)} {(PERL)} {(SQ <"git checkout -p handles deletion">)} 
      {
        (SQ <"\n"> <"\tset_state dir/foo work index &&\n"> <"\trm dir/foo &&\n"> 
          <"\t(echo n; echo y) | git checkout -p &&\n"> <"\tverify_saved_state bar &&\n"> <"\tverify_state dir/foo index index\n">
        )
      }
    )
    (C {(test_expect_success)} {(PERL)} {(SQ <"path limiting works: dir">)} 
      {
        (SQ <"\n"> <"\tset_state dir/foo work head &&\n"> 
          <"\t(echo y; echo n) | git checkout -p dir &&\n"> <"\tverify_saved_state bar &&\n"> <"\tverify_state dir/foo head head\n">
        )
      }
    )
    (C {(test_expect_success)} {(PERL)} {(SQ <"path limiting works: -- dir">)} 
      {
        (SQ <"\n"> <"\tset_state dir/foo work head &&\n"> 
          <"\t(echo y; echo n) | git checkout -p -- dir &&\n"> <"\tverify_saved_state bar &&\n"> <"\tverify_state dir/foo head head\n">
        )
      }
    )
    (C {(test_expect_success)} {(PERL)} {(SQ <"path limiting works: HEAD^ -- dir">)} 
      {
        (SQ <"\n"> <"\t# the third n is to get out in case it mistakenly does not apply\n"> 
          <"\t(echo y; echo n; echo n) | git checkout -p HEAD^ -- dir &&\n"> <"\tverify_saved_state bar &&\n"> <"\tverify_state dir/foo parent parent\n">
        )
      }
    )
    (C {(test_expect_success)} {(PERL)} {(SQ <"path limiting works: foo inside dir">)} 
      {
        (SQ <"\n"> <"\tset_state dir/foo work head &&\n"> 
          <"\t# the third n is to get out in case it mistakenly does not apply\n"> <"\t(echo y; echo n; echo n) | (cd dir && git checkout -p foo) &&\n"> 
          <"\tverify_saved_state bar &&\n"> <"\tverify_state dir/foo head head\n">
        )
      }
    )
    (C {(test_expect_success)} {(PERL)} {(SQ <"none of this moved HEAD">)} 
      {(SQ <"\n"> <"\tverify_saved_head\n">)}
    )
    (C {(test_done)})
  ]
)