(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <'git apply handling binary patches\n'> <'\n'>)}
          spids: [13]
        )
      ]
      spids: [13]
    )
    (C {(.)} {(./test-lib.sh)})
    (C {(test_expect_success)} {(SQ <setup>)} 
      {
        (SQ <'\n'> <'\tcat >file1 <<-\\EOF &&\n'> <'\tA quick brown fox jumps over the lazy dog.\n'> 
          <'\tA tiny little penguin runs around in circles.\n'> <'\tThere is a flag with Linux written on it.\n'> 
          <'\tA slow black-and-white panda just sits there,\n'> <'\tmunching on his bamboo.\n'> <'\tEOF\n'> <'\tcat file1 >file2 &&\n'> <'\tcat file1 >file4 &&\n'> 
          <'\n'> <'\tgit update-index --add --remove file1 file2 file4 &&\n'> 
          <'\tgit commit -m "Initial Version" 2>/dev/null &&\n'> <'\n'> <'\tgit checkout -b binary &&\n'> <'\tperl -pe "y/x/\\000/" <file1 >file3 &&\n'> 
          <'\tcat file3 >file4 &&\n'> <'\tgit add file2 &&\n'> <'\tperl -pe "y/\\000/v/" <file3 >file1 &&\n'> <'\trm -f file2 &&\n'> 
          <'\tgit update-index --add --remove file1 file2 file3 file4 &&\n'> <'\tgit commit -m "Second Version" &&\n'> <'\n'> <'\tgit diff-tree -p master binary >B.diff &&\n'> 
          <'\tgit diff-tree -p -C master binary >C.diff &&\n'> <'\n'> <'\tgit diff-tree -p --binary master binary >BF.diff &&\n'> 
          <'\tgit diff-tree -p --binary -C master binary >CF.diff &&\n'> <'\n'> <'\tgit diff-tree -p --full-index master binary >B-index.diff &&\n'> 
          <'\tgit diff-tree -p -C --full-index master binary >C-index.diff &&\n'> <'\n'> <'\tgit diff-tree -p --binary --no-prefix master binary -- file3 >B0.diff &&\n'> <'\n'> 
          <'\tgit init other-repo &&\n'> <'\t(\n'> <'\t\tcd other-repo &&\n'> <'\t\tgit fetch .. master &&\n'> 
          <'\t\tgit reset --hard FETCH_HEAD\n'> <'\t)\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'stat binary diff -- should not fail.'>)} 
      {(SQ <'git checkout master &&\n'> <'\t git apply --stat --summary B.diff'>)}
    )
    (C {(test_expect_success)} {(SQ <'stat binary -p0 diff -- should not fail.'>)} 
      {(SQ <'\n'> <'\t git checkout master &&\n'> <'\t git apply --stat -p0 B0.diff\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'stat binary diff (copy) -- should not fail.'>)} 
      {(SQ <'git checkout master &&\n'> <'\t git apply --stat --summary C.diff'>)}
    )
    (C {(test_expect_success)} {(SQ <'check binary diff -- should fail.'>)} 
      {(SQ <'git checkout master &&\n'> <'\t test_must_fail git apply --check B.diff'>)}
    )
    (C {(test_expect_success)} {(SQ <'check binary diff (copy) -- should fail.'>)} 
      {(SQ <'git checkout master &&\n'> <'\t test_must_fail git apply --check C.diff'>)}
    )
    (C {(test_expect_success)} {(SQ <'check incomplete binary diff with replacement -- should fail.'>)} 
      {
        (SQ <'\n'> <'\tgit checkout master &&\n'> 
          <'\ttest_must_fail git apply --check --allow-binary-replacement B.diff\n'>
        )
      }
    )
    (C {(test_expect_success)} 
      {(SQ <'check incomplete binary diff with replacement (copy) -- should fail.'>)} 
      {
        (SQ <'\n'> <'\t git checkout master &&\n'> 
          <'\t test_must_fail git apply --check --allow-binary-replacement C.diff\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'check binary diff with replacement.'>)} 
      {(SQ <'git checkout master &&\n'> <'\t git apply --check --allow-binary-replacement BF.diff'>)}
    )
    (C {(test_expect_success)} {(SQ <'check binary diff with replacement (copy).'>)} 
      {(SQ <'git checkout master &&\n'> <'\t git apply --check --allow-binary-replacement CF.diff'>)}
    )
    (FuncDef
      name: do_reset
      body: 
        (BraceGroup
          children: [
            (AndOr
              ops: [Op_DAmp Op_DAmp]
              children: [
                (C {(rm)} {(-f)} {(file) (Lit_Other '?')})
                (C {(git)} {(reset)} {(--hard)})
                (C {(git)} {(checkout)} {(-f)} {(master)})
              ]
            )
          ]
          spids: [210]
        )
      spids: [205 209]
    )
    (C {(test_expect_success)} {(SQ <'apply binary diff -- should fail.'>)} 
      {(SQ <'do_reset &&\n'> <'\t test_must_fail git apply B.diff'>)}
    )
    (C {(test_expect_success)} {(SQ <'apply binary diff -- should fail.'>)} 
      {(SQ <'do_reset &&\n'> <'\t test_must_fail git apply --index B.diff'>)}
    )
    (C {(test_expect_success)} {(SQ <'apply binary diff (copy) -- should fail.'>)} 
      {(SQ <'do_reset &&\n'> <'\t test_must_fail git apply C.diff'>)}
    )
    (C {(test_expect_success)} {(SQ <'apply binary diff (copy) -- should fail.'>)} 
      {(SQ <'do_reset &&\n'> <'\t test_must_fail git apply --index C.diff'>)}
    )
    (C {(test_expect_success)} {(SQ <'apply binary diff with full-index'>)} 
      {(SQ <'\n'> <'\tdo_reset &&\n'> <'\tgit apply B-index.diff\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'apply binary diff with full-index (copy)'>)} 
      {(SQ <'\n'> <'\tdo_reset &&\n'> <'\tgit apply C-index.diff\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'apply full-index binary diff in new repo'>)} 
      {
        (SQ <'\n'> <'\t(cd other-repo &&\n'> <'\t do_reset &&\n'> 
          <'\t test_must_fail git apply ../B-index.diff)\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'apply binary diff without replacement.'>)} 
      {(SQ <'do_reset &&\n'> <'\t git apply BF.diff'>)}
    )
    (C {(test_expect_success)} {(SQ <'apply binary diff without replacement (copy).'>)} 
      {(SQ <'do_reset &&\n'> <'\t git apply CF.diff'>)}
    )
    (C {(test_expect_success)} {(SQ <'apply binary diff.'>)} 
      {
        (SQ <'do_reset &&\n'> <'\t git apply --allow-binary-replacement --index BF.diff &&\n'> 
          <'\t test -z "$(git diff --name-status binary)"'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'apply binary diff (copy).'>)} 
      {
        (SQ <'do_reset &&\n'> <'\t git apply --allow-binary-replacement --index CF.diff &&\n'> 
          <'\t test -z "$(git diff --name-status binary)"'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'apply binary -p0 diff'>)} 
      {
        (SQ <'\n'> <'\tdo_reset &&\n'> <'\tgit apply -p0 --index B0.diff &&\n'> 
          <'\ttest -z "$(git diff --name-status binary -- file3)"\n'>
        )
      }
    )
    (C {(test_done)})
  ]
)