(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "git apply -p handling.">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS setup]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir sub &&\n"> <LIT_CHARS "\techo A >sub/file1 &&\n"> <LIT_CHARS "\tcp sub/file1 file1.saved &&\n"> <LIT_CHARS "\tgit add sub/file1 &&\n"> <LIT_CHARS "\techo B >sub/file1 &&\n"> <LIT_CHARS "\tgit diff >patch.file &&\n"> <LIT_CHARS "\tgit checkout -- sub/file1 &&\n"> <LIT_CHARS "\tgit mv sub s\u00fcb &&\n"> <LIT_CHARS "\techo B >s\u00fcb/file1 &&\n"> <LIT_CHARS "\tgit diff >patch.escaped &&\n"> <LIT_CHARS "\tgrep \"[\\]\" patch.escaped &&\n"> <LIT_CHARS "\trm s\u00fcb/file1 &&\n"> <LIT_CHARS "\trmdir s\u00fcb\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "apply git diff with -p2">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcp file1.saved file1 &&\n"> <LIT_CHARS "\tgit apply -p2 patch.file\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "apply with too large -p">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcp file1.saved file1 &&\n"> <LIT_CHARS "\ttest_must_fail git apply --stat -p3 patch.file 2>err &&\n"> <LIT_CHARS "\ttest_i18ngrep \"removing 3 leading\" err\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "apply (-p2) traditional diff with funny filenames">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >patch.quotes <<-\\EOF &&\n"> <LIT_CHARS "\tdiff -u \"a/\"sub/file1 \"b/\"sub/file1\n"> <LIT_CHARS "\t--- \"a/\"sub/file1\n"> <LIT_CHARS "\t+++ \"b/\"sub/file1\n"> <LIT_CHARS "\t@@ -1 +1 @@\n"> <LIT_CHARS "\t-A\n"> <LIT_CHARS "\t+B\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\techo B >expected &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tcp file1.saved file1 &&\n"> <LIT_CHARS "\tgit apply -p2 patch.quotes &&\n"> <LIT_CHARS "\ttest_cmp expected file1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "apply with too large -p and fancy filename">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcp file1.saved file1 &&\n"> <LIT_CHARS "\ttest_must_fail git apply --stat -p3 patch.escaped 2>err &&\n"> <LIT_CHARS "\ttest_i18ngrep \"removing 3 leading\" err\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "apply (-p2) diff, mode change only">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >patch.chmod <<-\\EOF &&\n"> <LIT_CHARS "\tdiff --git a/sub/file1 b/sub/file1\n"> <LIT_CHARS "\told mode 100644\n"> <LIT_CHARS "\tnew mode 100755\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\ttest_chmod -x file1 &&\n"> <LIT_CHARS "\tgit apply --index -p2 patch.chmod &&\n"> <LIT_CHARS "\tcase $(git ls-files -s file1) in 100755*) : good;; *) false;; esac\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS FILEMODE]} {[SQ <LIT_CHARS "file mode was changed">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest -x file1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "apply (-p2) diff, rename">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >patch.rename <<-\\EOF &&\n"> <LIT_CHARS "\tdiff --git a/sub/file1 b/sub/file2\n"> <LIT_CHARS "\tsimilarity index 100%\n"> <LIT_CHARS "\trename from sub/file1\n"> <LIT_CHARS "\trename to sub/file2\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\techo A >expected &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tcp file1.saved file1 &&\n"> <LIT_CHARS "\trm -f file2 &&\n"> <LIT_CHARS "\tgit apply -p2 patch.rename &&\n"> <LIT_CHARS "\ttest_cmp expected file2\n">]})
  (Com {[LIT_CHARS test_done]})
)