(command.CommandList
  children: [
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name name:test_description)
          op: assign_op.Equal
          rhs: {(SQ <'git checkout --patch'>)}
          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>})
  ]
)