(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "git apply handling binary patches\n"> <LIT_CHARS "\n">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS setup>]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >file1 <<-\\EOF &&\n"> <LIT_CHARS "\tA quick brown fox jumps over the lazy dog.\n"> <LIT_CHARS "\tA tiny little penguin runs around in circles.\n"> <LIT_CHARS "\tThere is a flag with Linux written on it.\n"> <LIT_CHARS "\tA slow black-and-white panda just sits there,\n"> <LIT_CHARS "\tmunching on his bamboo.\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tcat file1 >file2 &&\n"> <LIT_CHARS "\tcat file1 >file4 &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit update-index --add --remove file1 file2 file4 &&\n"> <LIT_CHARS "\tgit commit -m \"Initial Version\" 2>/dev/null &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout -b binary &&\n"> <LIT_CHARS "\tperl -pe \"y/x/\\000/\" <file1 >file3 &&\n"> <LIT_CHARS "\tcat file3 >file4 &&\n"> <LIT_CHARS "\tgit add file2 &&\n"> <LIT_CHARS "\tperl -pe \"y/\\000/v/\" <file3 >file1 &&\n"> <LIT_CHARS "\trm -f file2 &&\n"> <LIT_CHARS "\tgit update-index --add --remove file1 file2 file3 file4 &&\n"> <LIT_CHARS "\tgit commit -m \"Second Version\" &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit diff-tree -p master binary >B.diff &&\n"> <LIT_CHARS "\tgit diff-tree -p -C master binary >C.diff &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit diff-tree -p --binary master binary >BF.diff &&\n"> <LIT_CHARS "\tgit diff-tree -p --binary -C master binary >CF.diff &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit diff-tree -p --full-index master binary >B-index.diff &&\n"> <LIT_CHARS "\tgit diff-tree -p -C --full-index master binary >C-index.diff &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit diff-tree -p --binary --no-prefix master binary -- file3 >B0.diff &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit init other-repo &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd other-repo &&\n"> <LIT_CHARS "\t\tgit fetch .. master &&\n"> <LIT_CHARS "\t\tgit reset --hard FETCH_HEAD\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "stat binary diff -- should not fail.">]} {[SQ <LIT_CHARS "git checkout master &&\n"> <LIT_CHARS "\t git apply --stat --summary B.diff">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "stat binary -p0 diff -- should not fail.">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t git checkout master &&\n"> <LIT_CHARS "\t git apply --stat -p0 B0.diff\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "stat binary diff (copy) -- should not fail.">]} {[SQ <LIT_CHARS "git checkout master &&\n"> <LIT_CHARS "\t git apply --stat --summary C.diff">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "check binary diff -- should fail.">]} {[SQ <LIT_CHARS "git checkout master &&\n"> <LIT_CHARS "\t test_must_fail git apply --check B.diff">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "check binary diff (copy) -- should fail.">]} {[SQ <LIT_CHARS "git checkout master &&\n"> <LIT_CHARS "\t test_must_fail git apply --check C.diff">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "check incomplete binary diff with replacement -- should fail.">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout master &&\n"> <LIT_CHARS "\ttest_must_fail git apply --check --allow-binary-replacement B.diff\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "check incomplete binary diff with replacement (copy) -- should fail.">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t git checkout master &&\n"> <LIT_CHARS "\t test_must_fail git apply --check --allow-binary-replacement C.diff\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "check binary diff with replacement.">]} {[SQ <LIT_CHARS "git checkout master &&\n"> <LIT_CHARS "\t git apply --check --allow-binary-replacement BF.diff">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "check binary diff with replacement (copy).">]} {[SQ <LIT_CHARS "git checkout master &&\n"> <LIT_CHARS "\t git apply --check --allow-binary-replacement CF.diff">]})
  (FunctionDef do_reset []
    (AndOr OP_AND_IF
      (Com {[LIT_CHARS rm]} {[LIT_CHARS -f]} {[LIT_CHARS file] [LIT_OTHER "?"]})
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS git]} {[LIT_CHARS reset]} {[LIT_CHARS --hard]})
        (Com {[LIT_CHARS git]} {[LIT_CHARS checkout]} {[LIT_CHARS -f]} {[LIT_CHARS master]})
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "apply binary diff -- should fail.">]} {[SQ <LIT_CHARS "do_reset &&\n"> <LIT_CHARS "\t test_must_fail git apply B.diff">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "apply binary diff -- should fail.">]} {[SQ <LIT_CHARS "do_reset &&\n"> <LIT_CHARS "\t test_must_fail git apply --index B.diff">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "apply binary diff (copy) -- should fail.">]} {[SQ <LIT_CHARS "do_reset &&\n"> <LIT_CHARS "\t test_must_fail git apply C.diff">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "apply binary diff (copy) -- should fail.">]} {[SQ <LIT_CHARS "do_reset &&\n"> <LIT_CHARS "\t test_must_fail git apply --index C.diff">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "apply binary diff with full-index">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tdo_reset &&\n"> <LIT_CHARS "\tgit apply B-index.diff\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "apply binary diff with full-index (copy)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tdo_reset &&\n"> <LIT_CHARS "\tgit apply C-index.diff\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "apply full-index binary diff in new repo">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(cd other-repo &&\n"> <LIT_CHARS "\t do_reset &&\n"> <LIT_CHARS "\t test_must_fail git apply ../B-index.diff)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "apply binary diff without replacement.">]} {[SQ <LIT_CHARS "do_reset &&\n"> <LIT_CHARS "\t git apply BF.diff">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "apply binary diff without replacement (copy).">]} {[SQ <LIT_CHARS "do_reset &&\n"> <LIT_CHARS "\t git apply CF.diff">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "apply binary diff.">]} {[SQ <LIT_CHARS "do_reset &&\n"> <LIT_CHARS "\t git apply --allow-binary-replacement --index BF.diff &&\n"> <LIT_CHARS "\t test -z \"$(git diff --name-status binary)\"">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "apply binary diff (copy).">]} {[SQ <LIT_CHARS "do_reset &&\n"> <LIT_CHARS "\t git apply --allow-binary-replacement --index CF.diff &&\n"> <LIT_CHARS "\t test -z \"$(git diff --name-status binary)\"">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "apply binary -p0 diff">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tdo_reset &&\n"> <LIT_CHARS "\tgit apply -p0 --index B0.diff &&\n"> <LIT_CHARS "\ttest -z \"$(git diff --name-status binary -- file3)\"\n">]})
  (Com {[LIT_CHARS test_done]})
)