(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "resilience to pack corruptions with redundant objects">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (FunctionDef create_test_files []
    (AndOr OP_AND_IF
      (Com {[LIT_CHARS test-genrandom]} {[DQ [LIT_CHARS foo]]} {[LIT_CHARS 2000]}
        <
        (FilenameRedirectNode filename={[LIT_CHARS file_1]} <REDIR_GREAT ">"> 1),
        >
      )
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS test-genrandom]} {[DQ [LIT_CHARS foo]]} {[LIT_CHARS 1800]}
          <
          (FilenameRedirectNode filename={[LIT_CHARS file_2]} <REDIR_GREAT ">"> 1),
          >
        )
        (AndOr OP_AND_IF
          (Com {[LIT_CHARS test-genrandom]} {[DQ [LIT_CHARS foo]]} {[LIT_CHARS 1800]}
            <
            (FilenameRedirectNode filename={[LIT_CHARS file_3]} <REDIR_GREAT ">"> 1),
            >
          )
          (AndOr OP_AND_IF
            (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS " base "]]}
              <
              (FilenameRedirectNode filename={[LIT_CHARS file_1]} <REDIR_DGREAT ">>"> 1),
              >
            )
            (AndOr OP_AND_IF
              (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS " delta1 "]]}
                <
                (FilenameRedirectNode filename={[LIT_CHARS file_2]} <REDIR_DGREAT ">>"> 1),
                >
              )
              (AndOr OP_AND_IF
                (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS " delta delta2 "]]}
                  <
                  (FilenameRedirectNode filename={[LIT_CHARS file_3]} <REDIR_DGREAT ">>"> 1),
                  >
                )
                (AndOr OP_AND_IF
                  (Com {[LIT_CHARS test-genrandom]} {[DQ [LIT_CHARS bar]]} {[LIT_CHARS 150]}
                    <
                    (FilenameRedirectNode filename={[LIT_CHARS file_2]} <REDIR_DGREAT ">>"> 1),
                    >
                  )
                  (Com {[LIT_CHARS test-genrandom]} {[DQ [LIT_CHARS baz]]} {[LIT_CHARS 100]}
                    <
                    (FilenameRedirectNode filename={[LIT_CHARS file_3]} <REDIR_DGREAT ">>"> 1),
                    >
                  )
                )
              )
            )
          )
        )
      )
    )
  )
  (FunctionDef create_new_pack []
    (AndOr OP_AND_IF
      (Com {[LIT_CHARS rm]} {[LIT_CHARS -rf]} {[LIT_CHARS .git]})
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS git]} {[LIT_CHARS init]})
        (AndOr OP_AND_IF
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('blob_1', {[ComSub (Com {[LIT_CHARS git]} {[LIT_CHARS hash-object]} {[LIT_CHARS -t]} {[LIT_CHARS blob]} {[LIT_CHARS -w]} {[LIT_CHARS file_1]})]})])
          (AndOr OP_AND_IF
            (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('blob_2', {[ComSub (Com {[LIT_CHARS git]} {[LIT_CHARS hash-object]} {[LIT_CHARS -t]} {[LIT_CHARS blob]} {[LIT_CHARS -w]} {[LIT_CHARS file_2]})]})])
            (AndOr OP_AND_IF
              (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('blob_3', {[ComSub (Com {[LIT_CHARS git]} {[LIT_CHARS hash-object]} {[LIT_CHARS -t]} {[LIT_CHARS blob]} {[LIT_CHARS -w]} {[LIT_CHARS file_3]})]})])
              (AndOr OP_AND_IF
                (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('pack', {[ComSub (Pipeline (Com {[LIT_CHARS printf]} {[DQ [VarSub blob_1][\ LIT_ESCAPED_CHAR "\\n"][VarSub blob_2][\ LIT_ESCAPED_CHAR "\\n"][VarSub blob_3][\ LIT_ESCAPED_CHAR "\\n"]]}) (Com {[LIT_CHARS git]} {[LIT_CHARS pack-objects]} {[VarSub @]} {[LIT_CHARS .git/objects/pack/pack]}) )]})])
                (AndOr OP_AND_IF
                  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('pack', {[DQ [LIT_CHARS .git/objects/pack/pack-][VarSub pack]]})])
                  (Com {[LIT_CHARS git]} {[LIT_CHARS verify-pack]} {[LIT_CHARS -v]} {[VarSub pack] [LIT_CHARS .pack]})
                )
              )
            )
          )
        )
      )
    )
  )
  (FunctionDef do_repack []
    (AndOr OP_AND_IF
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('pack', {[ComSub (Pipeline (Com {[LIT_CHARS printf]} {[DQ [VarSub blob_1][\ LIT_ESCAPED_CHAR "\\n"][VarSub blob_2][\ LIT_ESCAPED_CHAR "\\n"][VarSub blob_3][\ LIT_ESCAPED_CHAR "\\n"]]}) (Com {[LIT_CHARS git]} {[LIT_CHARS pack-objects]} {[VarSub @]} {[LIT_CHARS .git/objects/pack/pack]}) )]})])
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('pack', {[DQ [LIT_CHARS .git/objects/pack/pack-][VarSub pack]]})])
    )
  )
  (FunctionDef do_corrupt_object []
    (AndOr OP_AND_IF
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('ofs', {[ComSub (Pipeline (Com redirects=[(FilenameRedirectNode filename={[VarSub pack] [LIT_CHARS .idx]} <REDIR_LESS "<"> 0)]{[LIT_CHARS git]} {[LIT_CHARS show-index]}) (Com {[LIT_CHARS grep]} {[VarSub 1]}) (Com {[LIT_CHARS cut]} {[LIT_CHARS -f1]} {[LIT_CHARS -d] [DQ [LIT_CHARS " "]]}) )]})])
      (AndOr OP_AND_IF
        (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('ofs', {[ArithSub {A2 AS_OP_PLUS {A Atom NODE_ARITH_WORD {[VarSub ofs]}} {A Atom NODE_ARITH_WORD {[VarSub 2]}}}]})])
        (AndOr OP_AND_IF
          (Com {[LIT_CHARS chmod]} {[LIT_OTHER "+"] [LIT_CHARS w]} {[VarSub pack] [LIT_CHARS .pack]})
          (AndOr OP_AND_IF
            (Com {[LIT_CHARS dd]} {[LIT_VAR_LIKE "of="] [VarSub pack] [LIT_CHARS .pack] =} {[LIT_VAR_LIKE "bs="] [LIT_CHARS 1] =} {[LIT_VAR_LIKE "conv="] [LIT_CHARS notrunc] =} {[LIT_VAR_LIKE "seek="] [VarSub ofs] =})
            (Com {[LIT_CHARS test_must_fail]} {[LIT_CHARS git]} {[LIT_CHARS verify-pack]} {[VarSub pack] [LIT_CHARS .pack]})
          )
        )
      )
    )
  )
  (Com {[LIT_CHARS printf]} {[SQ <LIT_CHARS "\\0">]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS zero]} <REDIR_GREAT ">"> 1),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "initial setup validation">]} {[SQ <LIT_CHARS "create_test_files &&\n"> <LIT_CHARS "     create_new_pack &&\n"> <LIT_CHARS "     git prune-packed &&\n"> <LIT_CHARS "     git cat-file blob $blob_1 > /dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_2 > /dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_3 > /dev/null">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "create corruption in header of first object">]} {[SQ <LIT_CHARS "do_corrupt_object $blob_1 0 < zero &&\n"> <LIT_CHARS "     test_must_fail git cat-file blob $blob_1 > /dev/null &&\n"> <LIT_CHARS "     test_must_fail git cat-file blob $blob_2 > /dev/null &&\n"> <LIT_CHARS "     test_must_fail git cat-file blob $blob_3 > /dev/null">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "... but having a loose copy allows for full recovery">]} {[SQ <LIT_CHARS "mv ${pack}.idx tmp &&\n"> <LIT_CHARS "     git hash-object -t blob -w file_1 &&\n"> <LIT_CHARS "     mv tmp ${pack}.idx &&\n"> <LIT_CHARS "     git cat-file blob $blob_1 > /dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_2 > /dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_3 > /dev/null">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "... and loose copy of first delta allows for partial recovery">]} {[SQ <LIT_CHARS "git prune-packed &&\n"> <LIT_CHARS "     test_must_fail git cat-file blob $blob_2 > /dev/null &&\n"> <LIT_CHARS "     mv ${pack}.idx tmp &&\n"> <LIT_CHARS "     git hash-object -t blob -w file_2 &&\n"> <LIT_CHARS "     mv tmp ${pack}.idx &&\n"> <LIT_CHARS "     test_must_fail git cat-file blob $blob_1 > /dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_2 > /dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_3 > /dev/null">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "create corruption in data of first object">]} {[SQ <LIT_CHARS "create_new_pack &&\n"> <LIT_CHARS "     git prune-packed &&\n"> <LIT_CHARS "     chmod +w ${pack}.pack &&\n"> <LIT_CHARS "     perl -i.bak -pe \"s/ base /abcdef/\" ${pack}.pack &&\n"> <LIT_CHARS "     test_must_fail git cat-file blob $blob_1 > /dev/null &&\n"> <LIT_CHARS "     test_must_fail git cat-file blob $blob_2 > /dev/null &&\n"> <LIT_CHARS "     test_must_fail git cat-file blob $blob_3 > /dev/null">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "... but having a loose copy allows for full recovery">]} {[SQ <LIT_CHARS "mv ${pack}.idx tmp &&\n"> <LIT_CHARS "     git hash-object -t blob -w file_1 &&\n"> <LIT_CHARS "     mv tmp ${pack}.idx &&\n"> <LIT_CHARS "     git cat-file blob $blob_1 > /dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_2 > /dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_3 > /dev/null">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "... and loose copy of second object allows for partial recovery">]} {[SQ <LIT_CHARS "git prune-packed &&\n"> <LIT_CHARS "     test_must_fail git cat-file blob $blob_2 > /dev/null &&\n"> <LIT_CHARS "     mv ${pack}.idx tmp &&\n"> <LIT_CHARS "     git hash-object -t blob -w file_2 &&\n"> <LIT_CHARS "     mv tmp ${pack}.idx &&\n"> <LIT_CHARS "     test_must_fail git cat-file blob $blob_1 > /dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_2 > /dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_3 > /dev/null">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "create corruption in header of first delta">]} {[SQ <LIT_CHARS "create_new_pack &&\n"> <LIT_CHARS "     git prune-packed &&\n"> <LIT_CHARS "     do_corrupt_object $blob_2 0 < zero &&\n"> <LIT_CHARS "     git cat-file blob $blob_1 > /dev/null &&\n"> <LIT_CHARS "     test_must_fail git cat-file blob $blob_2 > /dev/null &&\n"> <LIT_CHARS "     test_must_fail git cat-file blob $blob_3 > /dev/null">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "... but having a loose copy allows for full recovery">]} {[SQ <LIT_CHARS "mv ${pack}.idx tmp &&\n"> <LIT_CHARS "     git hash-object -t blob -w file_2 &&\n"> <LIT_CHARS "     mv tmp ${pack}.idx &&\n"> <LIT_CHARS "     git cat-file blob $blob_1 > /dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_2 > /dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_3 > /dev/null">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "... and then a repack \"clears\" the corruption">]} {[SQ <LIT_CHARS "do_repack &&\n"> <LIT_CHARS "     git prune-packed &&\n"> <LIT_CHARS "     git verify-pack ${pack}.pack &&\n"> <LIT_CHARS "     git cat-file blob $blob_1 > /dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_2 > /dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_3 > /dev/null">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "create corruption in data of first delta">]} {[SQ <LIT_CHARS "create_new_pack &&\n"> <LIT_CHARS "     git prune-packed &&\n"> <LIT_CHARS "     chmod +w ${pack}.pack &&\n"> <LIT_CHARS "     perl -i.bak -pe \"s/ delta1 /abcdefgh/\" ${pack}.pack &&\n"> <LIT_CHARS "     git cat-file blob $blob_1 > /dev/null &&\n"> <LIT_CHARS "     test_must_fail git cat-file blob $blob_2 > /dev/null &&\n"> <LIT_CHARS "     test_must_fail git cat-file blob $blob_3 > /dev/null">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "... but having a loose copy allows for full recovery">]} {[SQ <LIT_CHARS "mv ${pack}.idx tmp &&\n"> <LIT_CHARS "     git hash-object -t blob -w file_2 &&\n"> <LIT_CHARS "     mv tmp ${pack}.idx &&\n"> <LIT_CHARS "     git cat-file blob $blob_1 > /dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_2 > /dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_3 > /dev/null">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "... and then a repack \"clears\" the corruption">]} {[SQ <LIT_CHARS "do_repack &&\n"> <LIT_CHARS "     git prune-packed &&\n"> <LIT_CHARS "     git verify-pack ${pack}.pack &&\n"> <LIT_CHARS "     git cat-file blob $blob_1 > /dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_2 > /dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_3 > /dev/null">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "corruption in delta base reference of first delta (OBJ_REF_DELTA)">]} {[SQ <LIT_CHARS "create_new_pack &&\n"> <LIT_CHARS "     git prune-packed &&\n"> <LIT_CHARS "     do_corrupt_object $blob_2 2 < zero &&\n"> <LIT_CHARS "     git cat-file blob $blob_1 > /dev/null &&\n"> <LIT_CHARS "     test_must_fail git cat-file blob $blob_2 > /dev/null &&\n"> <LIT_CHARS "     test_must_fail git cat-file blob $blob_3 > /dev/null">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "... but having a loose copy allows for full recovery">]} {[SQ <LIT_CHARS "mv ${pack}.idx tmp &&\n"> <LIT_CHARS "     git hash-object -t blob -w file_2 &&\n"> <LIT_CHARS "     mv tmp ${pack}.idx &&\n"> <LIT_CHARS "     git cat-file blob $blob_1 > /dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_2 > /dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_3 > /dev/null">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "... and then a repack \"clears\" the corruption">]} {[SQ <LIT_CHARS "do_repack &&\n"> <LIT_CHARS "     git prune-packed &&\n"> <LIT_CHARS "     git verify-pack ${pack}.pack &&\n"> <LIT_CHARS "     git cat-file blob $blob_1 > /dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_2 > /dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_3 > /dev/null">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "corruption #0 in delta base reference of first delta (OBJ_OFS_DELTA)">]} {[SQ <LIT_CHARS "create_new_pack --delta-base-offset &&\n"> <LIT_CHARS "     git prune-packed &&\n"> <LIT_CHARS "     do_corrupt_object $blob_2 2 < zero &&\n"> <LIT_CHARS "     git cat-file blob $blob_1 > /dev/null &&\n"> <LIT_CHARS "     test_must_fail git cat-file blob $blob_2 > /dev/null &&\n"> <LIT_CHARS "     test_must_fail git cat-file blob $blob_3 > /dev/null">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "... but having a loose copy allows for full recovery">]} {[SQ <LIT_CHARS "mv ${pack}.idx tmp &&\n"> <LIT_CHARS "     git hash-object -t blob -w file_2 &&\n"> <LIT_CHARS "     mv tmp ${pack}.idx &&\n"> <LIT_CHARS "     git cat-file blob $blob_1 > /dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_2 > /dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_3 > /dev/null">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "... and then a repack \"clears\" the corruption">]} {[SQ <LIT_CHARS "do_repack --delta-base-offset &&\n"> <LIT_CHARS "     git prune-packed &&\n"> <LIT_CHARS "     git verify-pack ${pack}.pack &&\n"> <LIT_CHARS "     git cat-file blob $blob_1 > /dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_2 > /dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_3 > /dev/null">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "corruption #1 in delta base reference of first delta (OBJ_OFS_DELTA)">]} {[SQ <LIT_CHARS "create_new_pack --delta-base-offset &&\n"> <LIT_CHARS "     git prune-packed &&\n"> <LIT_CHARS "     printf \"\\001\" | do_corrupt_object $blob_2 2 &&\n"> <LIT_CHARS "     git cat-file blob $blob_1 > /dev/null &&\n"> <LIT_CHARS "     test_must_fail git cat-file blob $blob_2 > /dev/null &&\n"> <LIT_CHARS "     test_must_fail git cat-file blob $blob_3 > /dev/null">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "... but having a loose copy allows for full recovery">]} {[SQ <LIT_CHARS "mv ${pack}.idx tmp &&\n"> <LIT_CHARS "     git hash-object -t blob -w file_2 &&\n"> <LIT_CHARS "     mv tmp ${pack}.idx &&\n"> <LIT_CHARS "     git cat-file blob $blob_1 > /dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_2 > /dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_3 > /dev/null">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "... and then a repack \"clears\" the corruption">]} {[SQ <LIT_CHARS "do_repack --delta-base-offset &&\n"> <LIT_CHARS "     git prune-packed &&\n"> <LIT_CHARS "     git verify-pack ${pack}.pack &&\n"> <LIT_CHARS "     git cat-file blob $blob_1 > /dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_2 > /dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_3 > /dev/null">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "... and a redundant pack allows for full recovery too">]} {[SQ <LIT_CHARS "do_corrupt_object $blob_2 2 < zero &&\n"> <LIT_CHARS "     git cat-file blob $blob_1 > /dev/null &&\n"> <LIT_CHARS "     test_must_fail git cat-file blob $blob_2 > /dev/null &&\n"> <LIT_CHARS "     test_must_fail git cat-file blob $blob_3 > /dev/null &&\n"> <LIT_CHARS "     mv ${pack}.idx tmp &&\n"> <LIT_CHARS "     git hash-object -t blob -w file_1 &&\n"> <LIT_CHARS "     git hash-object -t blob -w file_2 &&\n"> <LIT_CHARS "     printf \"$blob_1\\n$blob_2\\n\" | git pack-objects .git/objects/pack/pack &&\n"> <LIT_CHARS "     git prune-packed &&\n"> <LIT_CHARS "     mv tmp ${pack}.idx &&\n"> <LIT_CHARS "     git cat-file blob $blob_1 > /dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_2 > /dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_3 > /dev/null">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "corruption of delta base reference pointing to wrong object">]} {[SQ <LIT_CHARS "create_new_pack --delta-base-offset &&\n"> <LIT_CHARS "     git prune-packed &&\n"> <LIT_CHARS "     printf \"\\220\\033\" | do_corrupt_object $blob_3 2 &&\n"> <LIT_CHARS "     git cat-file blob $blob_1 >/dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_2 >/dev/null &&\n"> <LIT_CHARS "     test_must_fail git cat-file blob $blob_3 >/dev/null">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "... but having a loose copy allows for full recovery">]} {[SQ <LIT_CHARS "mv ${pack}.idx tmp &&\n"> <LIT_CHARS "     git hash-object -t blob -w file_3 &&\n"> <LIT_CHARS "     mv tmp ${pack}.idx &&\n"> <LIT_CHARS "     git cat-file blob $blob_1 > /dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_2 > /dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_3 > /dev/null">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "... and then a repack \"clears\" the corruption">]} {[SQ <LIT_CHARS "do_repack --delta-base-offset --no-reuse-delta &&\n"> <LIT_CHARS "     git prune-packed &&\n"> <LIT_CHARS "     git verify-pack ${pack}.pack &&\n"> <LIT_CHARS "     git cat-file blob $blob_1 > /dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_2 > /dev/null &&\n"> <LIT_CHARS "     git cat-file blob $blob_3 > /dev/null">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "corrupting header to have too small output buffer fails unpack">]} {[SQ <LIT_CHARS "create_new_pack &&\n"> <LIT_CHARS "     git prune-packed &&\n"> <LIT_CHARS "     printf \"\\262\\001\" | do_corrupt_object $blob_1 0 &&\n"> <LIT_CHARS "     test_must_fail git cat-file blob $blob_1 > /dev/null &&\n"> <LIT_CHARS "     test_must_fail git cat-file blob $blob_2 > /dev/null &&\n"> <LIT_CHARS "     test_must_fail git cat-file blob $blob_3 > /dev/null">]})
  (Com {[LIT_CHARS test_done]})
)