(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <'resilience to pack corruptions with redundant objects'>)}
          spids: [13]
        )
      ]
      spids: [13]
    )
    (C {(.)} {(./test-lib.sh)})
    (FuncDef
      name: create_test_files
      body: 
        (BraceGroup
          children: [
            (AndOr
              children: [
                (SimpleCommand
                  words: [{(test-genrandom)} {(DQ (foo))} {(2000)}]
                  redirects: [(Redir op_id:Redir_Great fd:16777215 arg_word:{(file_1)} spids:[72])]
                )
                (AndOr
                  children: [
                    (SimpleCommand
                      words: [{(test-genrandom)} {(DQ (foo))} {(1800)}]
                      redirects: [
                        (Redir
                          op_id: Redir_Great
                          fd: 16777215
                          arg_word: {(file_2)}
                          spids: [87]
                        )
                      ]
                    )
                    (AndOr
                      children: [
                        (SimpleCommand
                          words: [{(test-genrandom)} {(DQ (foo))} {(1800)}]
                          redirects: [
                            (Redir
                              op_id: Redir_Great
                              fd: 16777215
                              arg_word: {(file_3)}
                              spids: [102]
                            )
                          ]
                        )
                        (AndOr
                          children: [
                            (SimpleCommand
                              words: [{(echo)} {(DQ (' base '))}]
                              redirects: [
                                (Redir
                                  op_id: Redir_DGreat
                                  fd: 16777215
                                  arg_word: {(file_1)}
                                  spids: [115]
                                )
                              ]
                            )
                            (AndOr
                              children: [
                                (SimpleCommand
                                  words: [{(echo)} {(DQ (' delta1 '))}]
                                  redirects: [
                                    (Redir
                                      op_id: Redir_DGreat
                                      fd: 16777215
                                      arg_word: {(file_2)}
                                      spids: [128]
                                    )
                                  ]
                                )
                                (AndOr
                                  children: [
                                    (SimpleCommand
                                      words: [{(echo)} {(DQ (' delta delta2 '))}]
                                      redirects: [
                                        (Redir
                                          op_id: Redir_DGreat
                                          fd: 16777215
                                          arg_word: {(file_3)}
                                          spids: [141]
                                        )
                                      ]
                                    )
                                    (AndOr
                                      children: [
                                        (SimpleCommand
                                          words: [{(test-genrandom)} {(DQ (bar))} {(150)}]
                                          redirects: [
                                            (Redir
                                              op_id: Redir_DGreat
                                              fd: 16777215
                                              arg_word: {(file_2)}
                                              spids: [156]
                                            )
                                          ]
                                        )
                                        (SimpleCommand
                                          words: [{(test-genrandom)} {(DQ (baz))} {(100)}]
                                          redirects: [
                                            (Redir
                                              op_id: Redir_DGreat
                                              fd: 16777215
                                              arg_word: {(file_3)}
                                              spids: [171]
                                            )
                                          ]
                                        )
                                      ]
                                      op_id: Op_DAmp
                                    )
                                  ]
                                  op_id: Op_DAmp
                                )
                              ]
                              op_id: Op_DAmp
                            )
                          ]
                          op_id: Op_DAmp
                        )
                      ]
                      op_id: Op_DAmp
                    )
                  ]
                  op_id: Op_DAmp
                )
              ]
              op_id: Op_DAmp
            )
          ]
          spids: [61]
        )
      spids: [57 60]
    )
    (FuncDef
      name: create_new_pack
      body: 
        (BraceGroup
          children: [
            (AndOr
              children: [
                (C {(rm)} {(-rf)} {(.git)})
                (AndOr
                  children: [
                    (C {(git)} {(init)})
                    (AndOr
                      children: [
                        (Assignment
                          keyword: Assign_None
                          pairs: [
                            (assign_pair
                              lhs: (LhsName name:blob_1)
                              op: Equal
                              rhs: 
                                {
                                  (CommandSubPart
                                    command_list: 
                                      (CommandList
                                        children: [
                                          (C {(git)} {(hash-object)} {(-t)} {(blob)} {(-w)} {(file_1)})
                                        ]
                                      )
                                    left_token: <Left_CommandSub '$('>
                                    spids: [202 214]
                                  )
                                }
                              spids: [201]
                            )
                          ]
                          spids: [201]
                        )
                        (AndOr
                          children: [
                            (Assignment
                              keyword: Assign_None
                              pairs: [
                                (assign_pair
                                  lhs: (LhsName name:blob_2)
                                  op: Equal
                                  rhs: 
                                    {
                                      (CommandSubPart
                                        command_list: 
                                          (CommandList
                                            children: [
                                              (C {(git)} {(hash-object)} {(-t)} {(blob)} {(-w)} {(file_2)})
                                            ]
                                          )
                                        left_token: <Left_CommandSub '$('>
                                        spids: [220 232]
                                      )
                                    }
                                  spids: [219]
                                )
                              ]
                              spids: [219]
                            )
                            (AndOr
                              children: [
                                (Assignment
                                  keyword: Assign_None
                                  pairs: [
                                    (assign_pair
                                      lhs: (LhsName name:blob_3)
                                      op: Equal
                                      rhs: 
                                        {
                                          (CommandSubPart
                                            command_list: 
                                              (CommandList
                                                children: [
                                                  (C {(git)} {(hash-object)} {(-t)} {(blob)} {(-w)} 
                                                    {(file_3)}
                                                  )
                                                ]
                                              )
                                            left_token: <Left_CommandSub '$('>
                                            spids: [238 250]
                                          )
                                        }
                                      spids: [237]
                                    )
                                  ]
                                  spids: [237]
                                )
                                (AndOr
                                  children: [
                                    (Assignment
                                      keyword: Assign_None
                                      pairs: [
                                        (assign_pair
                                          lhs: (LhsName name:pack)
                                          op: Equal
                                          rhs: 
                                            {
                                              (CommandSubPart
                                                command_list: 
                                                  (CommandList
                                                    children: [
                                                      (Pipeline
                                                        children: [
                                                          (C {(printf)} 
                                                            {
                                                              (DQ ($ VSub_Name '$blob_1') 
                                                                (Lit_Other '\\') (n) ($ VSub_Name '$blob_2') (Lit_Other '\\') (n) ($ VSub_Name '$blob_3') (Lit_Other '\\') (n)
                                                              )
                                                            }
                                                          )
                                                          (C {(git)} {(pack-objects)} {($ VSub_At '$@')} 
                                                            {(.git/objects/pack/pack)}
                                                          )
                                                        ]
                                                        negated: False
                                                      )
                                                    ]
                                                  )
                                                left_token: <Left_CommandSub '$('>
                                                spids: [256 281]
                                              )
                                            }
                                          spids: [255]
                                        )
                                      ]
                                      spids: [255]
                                    )
                                    (AndOr
                                      children: [
                                        (Assignment
                                          keyword: Assign_None
                                          pairs: [
                                            (assign_pair
                                              lhs: (LhsName name:pack)
                                              op: Equal
                                              rhs: {(DQ (.git/objects/pack/pack-) (${ VSub_Name pack))}
                                              spids: [286]
                                            )
                                          ]
                                          spids: [286]
                                        )
                                        (C {(git)} {(verify-pack)} {(-v)} {(${ VSub_Name pack) (.pack)})
                                      ]
                                      op_id: Op_DAmp
                                    )
                                  ]
                                  op_id: Op_DAmp
                                )
                              ]
                              op_id: Op_DAmp
                            )
                          ]
                          op_id: Op_DAmp
                        )
                      ]
                      op_id: Op_DAmp
                    )
                  ]
                  op_id: Op_DAmp
                )
              ]
              op_id: Op_DAmp
            )
          ]
          spids: [182]
        )
      spids: [178 181]
    )
    (FuncDef
      name: do_repack
      body: 
        (BraceGroup
          children: [
            (AndOr
              children: [
                (Assignment
                  keyword: Assign_None
                  pairs: [
                    (assign_pair
                      lhs: (LhsName name:pack)
                      op: Equal
                      rhs: 
                        {
                          (CommandSubPart
                            command_list: 
                              (CommandList
                                children: [
                                  (Pipeline
                                    children: [
                                      (C {(printf)} 
                                        {
                                          (DQ ($ VSub_Name '$blob_1') (Lit_Other '\\') (n) 
                                            ($ VSub_Name '$blob_2') (Lit_Other '\\') (n) ($ VSub_Name '$blob_3') (Lit_Other '\\') (n)
                                          )
                                        }
                                      )
                                      (C {(git)} {(pack-objects)} {($ VSub_At '$@')} 
                                        {(.git/objects/pack/pack)}
                                      )
                                    ]
                                    negated: False
                                  )
                                ]
                              )
                            left_token: <Left_CommandSub '$('>
                            spids: [319 344]
                          )
                        }
                      spids: [318]
                    )
                  ]
                  spids: [318]
                )
                (Assignment
                  keyword: Assign_None
                  pairs: [
                    (assign_pair
                      lhs: (LhsName name:pack)
                      op: Equal
                      rhs: {(DQ (.git/objects/pack/pack-) (${ VSub_Name pack))}
                      spids: [349]
                    )
                  ]
                  spids: [349]
                )
              ]
              op_id: Op_DAmp
            )
          ]
          spids: [315]
        )
      spids: [311 314]
    )
    (FuncDef
      name: do_corrupt_object
      body: 
        (BraceGroup
          children: [
            (AndOr
              children: [
                (Assignment
                  keyword: Assign_None
                  pairs: [
                    (assign_pair
                      lhs: (LhsName name:ofs)
                      op: Equal
                      rhs: 
                        {
                          (CommandSubPart
                            command_list: 
                              (CommandList
                                children: [
                                  (Pipeline
                                    children: [
                                      (SimpleCommand
                                        words: [{(git)} {(show-index)}]
                                        redirects: [
                                          (Redir
                                            op_id: Redir_Less
                                            fd: 16777215
                                            arg_word: {(${ VSub_Name pack) (.idx)}
                                            spids: [373]
                                          )
                                        ]
                                      )
                                      (C {(grep)} {($ VSub_Number '$1')})
                                      (C {(cut)} {(-f1)} {(-d) (DQ (' '))})
                                    ]
                                    negated: False
                                  )
                                ]
                              )
                            left_token: <Left_CommandSub '$('>
                            spids: [368 396]
                          )
                        }
                      spids: [367]
                    )
                  ]
                  spids: [367]
                )
                (AndOr
                  children: [
                    (Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (LhsName name:ofs)
                          op: Equal
                          rhs: 
                            {
                              (ArithSubPart
                                anode: 
                                  (ArithBinary
                                    op_id: Arith_Plus
                                    left: (ArithWord w:{($ VSub_Name '$ofs')})
                                    right: (ArithWord w:{($ VSub_Number '$2')})
                                  )
                                spids: [402 409]
                              )
                            }
                          spids: [401]
                        )
                      ]
                      spids: [401]
                    )
                    (AndOr
                      children: [
                        (C {(chmod)} {(Lit_Other '+') (w)} {(${ VSub_Name pack) (.pack)})
                        (AndOr
                          children: [
                            (C {(dd)} {(Lit_VarLike 'of=') (${ VSub_Name pack) (.pack)} 
                              {(Lit_VarLike 'bs=') (1)} {(Lit_VarLike 'conv=') (notrunc)} {(Lit_VarLike 'seek=') ($ VSub_Name '$ofs')}
                            )
                            (C {(test_must_fail)} {(git)} {(verify-pack)} {(${ VSub_Name pack) (.pack)})
                          ]
                          op_id: Op_DAmp
                        )
                      ]
                      op_id: Op_DAmp
                    )
                  ]
                  op_id: Op_DAmp
                )
              ]
              op_id: Op_DAmp
            )
          ]
          spids: [364]
        )
      spids: [360 363]
    )
    (SimpleCommand
      words: [{(printf)} {(SQ <'\\0'>)}]
      redirects: [(Redir op_id:Redir_Great fd:16777215 arg_word:{(zero)} spids:[467])]
    )
    (C {(test_expect_success)} {(SQ <'initial setup validation'>)} 
      {
        (SQ <'create_test_files &&\n'> <'     create_new_pack &&\n'> <'     git prune-packed &&\n'> 
          <'     git cat-file blob $blob_1 > /dev/null &&\n'> <'     git cat-file blob $blob_2 > /dev/null &&\n'> <'     git cat-file blob $blob_3 > /dev/null'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'create corruption in header of first object'>)} 
      {
        (SQ <'do_corrupt_object $blob_1 0 < zero &&\n'> 
          <'     test_must_fail git cat-file blob $blob_1 > /dev/null &&\n'> <'     test_must_fail git cat-file blob $blob_2 > /dev/null &&\n'> 
          <'     test_must_fail git cat-file blob $blob_3 > /dev/null'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'... but having a loose copy allows for full recovery'>)} 
      {
        (SQ <'mv ${pack}.idx tmp &&\n'> <'     git hash-object -t blob -w file_1 &&\n'> 
          <'     mv tmp ${pack}.idx &&\n'> <'     git cat-file blob $blob_1 > /dev/null &&\n'> 
          <'     git cat-file blob $blob_2 > /dev/null &&\n'> <'     git cat-file blob $blob_3 > /dev/null'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'... and loose copy of first delta allows for partial recovery'>)} 
      {
        (SQ <'git prune-packed &&\n'> 
          <'     test_must_fail git cat-file blob $blob_2 > /dev/null &&\n'> <'     mv ${pack}.idx tmp &&\n'> <'     git hash-object -t blob -w file_2 &&\n'> 
          <'     mv tmp ${pack}.idx &&\n'> <'     test_must_fail git cat-file blob $blob_1 > /dev/null &&\n'> 
          <'     git cat-file blob $blob_2 > /dev/null &&\n'> <'     git cat-file blob $blob_3 > /dev/null'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'create corruption in data of first object'>)} 
      {
        (SQ <'create_new_pack &&\n'> <'     git prune-packed &&\n'> <'     chmod +w ${pack}.pack &&\n'> 
          <'     perl -i.bak -pe "s/ base /abcdef/" ${pack}.pack &&\n'> <'     test_must_fail git cat-file blob $blob_1 > /dev/null &&\n'> 
          <'     test_must_fail git cat-file blob $blob_2 > /dev/null &&\n'> <'     test_must_fail git cat-file blob $blob_3 > /dev/null'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'... but having a loose copy allows for full recovery'>)} 
      {
        (SQ <'mv ${pack}.idx tmp &&\n'> <'     git hash-object -t blob -w file_1 &&\n'> 
          <'     mv tmp ${pack}.idx &&\n'> <'     git cat-file blob $blob_1 > /dev/null &&\n'> 
          <'     git cat-file blob $blob_2 > /dev/null &&\n'> <'     git cat-file blob $blob_3 > /dev/null'>
        )
      }
    )
    (C {(test_expect_success)} 
      {(SQ <'... and loose copy of second object allows for partial recovery'>)} 
      {
        (SQ <'git prune-packed &&\n'> 
          <'     test_must_fail git cat-file blob $blob_2 > /dev/null &&\n'> <'     mv ${pack}.idx tmp &&\n'> <'     git hash-object -t blob -w file_2 &&\n'> 
          <'     mv tmp ${pack}.idx &&\n'> <'     test_must_fail git cat-file blob $blob_1 > /dev/null &&\n'> 
          <'     git cat-file blob $blob_2 > /dev/null &&\n'> <'     git cat-file blob $blob_3 > /dev/null'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'create corruption in header of first delta'>)} 
      {
        (SQ <'create_new_pack &&\n'> <'     git prune-packed &&\n'> 
          <'     do_corrupt_object $blob_2 0 < zero &&\n'> <'     git cat-file blob $blob_1 > /dev/null &&\n'> 
          <'     test_must_fail git cat-file blob $blob_2 > /dev/null &&\n'> <'     test_must_fail git cat-file blob $blob_3 > /dev/null'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'... but having a loose copy allows for full recovery'>)} 
      {
        (SQ <'mv ${pack}.idx tmp &&\n'> <'     git hash-object -t blob -w file_2 &&\n'> 
          <'     mv tmp ${pack}.idx &&\n'> <'     git cat-file blob $blob_1 > /dev/null &&\n'> 
          <'     git cat-file blob $blob_2 > /dev/null &&\n'> <'     git cat-file blob $blob_3 > /dev/null'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'... and then a repack "clears" the corruption'>)} 
      {
        (SQ <'do_repack &&\n'> <'     git prune-packed &&\n'> 
          <'     git verify-pack ${pack}.pack &&\n'> <'     git cat-file blob $blob_1 > /dev/null &&\n'> 
          <'     git cat-file blob $blob_2 > /dev/null &&\n'> <'     git cat-file blob $blob_3 > /dev/null'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'create corruption in data of first delta'>)} 
      {
        (SQ <'create_new_pack &&\n'> <'     git prune-packed &&\n'> <'     chmod +w ${pack}.pack &&\n'> 
          <'     perl -i.bak -pe "s/ delta1 /abcdefgh/" ${pack}.pack &&\n'> <'     git cat-file blob $blob_1 > /dev/null &&\n'> 
          <'     test_must_fail git cat-file blob $blob_2 > /dev/null &&\n'> <'     test_must_fail git cat-file blob $blob_3 > /dev/null'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'... but having a loose copy allows for full recovery'>)} 
      {
        (SQ <'mv ${pack}.idx tmp &&\n'> <'     git hash-object -t blob -w file_2 &&\n'> 
          <'     mv tmp ${pack}.idx &&\n'> <'     git cat-file blob $blob_1 > /dev/null &&\n'> 
          <'     git cat-file blob $blob_2 > /dev/null &&\n'> <'     git cat-file blob $blob_3 > /dev/null'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'... and then a repack "clears" the corruption'>)} 
      {
        (SQ <'do_repack &&\n'> <'     git prune-packed &&\n'> 
          <'     git verify-pack ${pack}.pack &&\n'> <'     git cat-file blob $blob_1 > /dev/null &&\n'> 
          <'     git cat-file blob $blob_2 > /dev/null &&\n'> <'     git cat-file blob $blob_3 > /dev/null'>
        )
      }
    )
    (C {(test_expect_success)} 
      {(SQ <'corruption in delta base reference of first delta (OBJ_REF_DELTA)'>)} 
      {
        (SQ <'create_new_pack &&\n'> <'     git prune-packed &&\n'> 
          <'     do_corrupt_object $blob_2 2 < zero &&\n'> <'     git cat-file blob $blob_1 > /dev/null &&\n'> 
          <'     test_must_fail git cat-file blob $blob_2 > /dev/null &&\n'> <'     test_must_fail git cat-file blob $blob_3 > /dev/null'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'... but having a loose copy allows for full recovery'>)} 
      {
        (SQ <'mv ${pack}.idx tmp &&\n'> <'     git hash-object -t blob -w file_2 &&\n'> 
          <'     mv tmp ${pack}.idx &&\n'> <'     git cat-file blob $blob_1 > /dev/null &&\n'> 
          <'     git cat-file blob $blob_2 > /dev/null &&\n'> <'     git cat-file blob $blob_3 > /dev/null'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'... and then a repack "clears" the corruption'>)} 
      {
        (SQ <'do_repack &&\n'> <'     git prune-packed &&\n'> 
          <'     git verify-pack ${pack}.pack &&\n'> <'     git cat-file blob $blob_1 > /dev/null &&\n'> 
          <'     git cat-file blob $blob_2 > /dev/null &&\n'> <'     git cat-file blob $blob_3 > /dev/null'>
        )
      }
    )
    (C {(test_expect_success)} 
      {(SQ <'corruption #0 in delta base reference of first delta (OBJ_OFS_DELTA)'>)} 
      {
        (SQ <'create_new_pack --delta-base-offset &&\n'> <'     git prune-packed &&\n'> 
          <'     do_corrupt_object $blob_2 2 < zero &&\n'> <'     git cat-file blob $blob_1 > /dev/null &&\n'> 
          <'     test_must_fail git cat-file blob $blob_2 > /dev/null &&\n'> <'     test_must_fail git cat-file blob $blob_3 > /dev/null'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'... but having a loose copy allows for full recovery'>)} 
      {
        (SQ <'mv ${pack}.idx tmp &&\n'> <'     git hash-object -t blob -w file_2 &&\n'> 
          <'     mv tmp ${pack}.idx &&\n'> <'     git cat-file blob $blob_1 > /dev/null &&\n'> 
          <'     git cat-file blob $blob_2 > /dev/null &&\n'> <'     git cat-file blob $blob_3 > /dev/null'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'... and then a repack "clears" the corruption'>)} 
      {
        (SQ <'do_repack --delta-base-offset &&\n'> <'     git prune-packed &&\n'> 
          <'     git verify-pack ${pack}.pack &&\n'> <'     git cat-file blob $blob_1 > /dev/null &&\n'> 
          <'     git cat-file blob $blob_2 > /dev/null &&\n'> <'     git cat-file blob $blob_3 > /dev/null'>
        )
      }
    )
    (C {(test_expect_success)} 
      {(SQ <'corruption #1 in delta base reference of first delta (OBJ_OFS_DELTA)'>)} 
      {
        (SQ <'create_new_pack --delta-base-offset &&\n'> <'     git prune-packed &&\n'> 
          <'     printf "\\001" | do_corrupt_object $blob_2 2 &&\n'> <'     git cat-file blob $blob_1 > /dev/null &&\n'> 
          <'     test_must_fail git cat-file blob $blob_2 > /dev/null &&\n'> <'     test_must_fail git cat-file blob $blob_3 > /dev/null'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'... but having a loose copy allows for full recovery'>)} 
      {
        (SQ <'mv ${pack}.idx tmp &&\n'> <'     git hash-object -t blob -w file_2 &&\n'> 
          <'     mv tmp ${pack}.idx &&\n'> <'     git cat-file blob $blob_1 > /dev/null &&\n'> 
          <'     git cat-file blob $blob_2 > /dev/null &&\n'> <'     git cat-file blob $blob_3 > /dev/null'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'... and then a repack "clears" the corruption'>)} 
      {
        (SQ <'do_repack --delta-base-offset &&\n'> <'     git prune-packed &&\n'> 
          <'     git verify-pack ${pack}.pack &&\n'> <'     git cat-file blob $blob_1 > /dev/null &&\n'> 
          <'     git cat-file blob $blob_2 > /dev/null &&\n'> <'     git cat-file blob $blob_3 > /dev/null'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'... and a redundant pack allows for full recovery too'>)} 
      {
        (SQ <'do_corrupt_object $blob_2 2 < zero &&\n'> 
          <'     git cat-file blob $blob_1 > /dev/null &&\n'> <'     test_must_fail git cat-file blob $blob_2 > /dev/null &&\n'> 
          <'     test_must_fail git cat-file blob $blob_3 > /dev/null &&\n'> <'     mv ${pack}.idx tmp &&\n'> <'     git hash-object -t blob -w file_1 &&\n'> 
          <'     git hash-object -t blob -w file_2 &&\n'> <'     printf "$blob_1\\n$blob_2\\n" | git pack-objects .git/objects/pack/pack &&\n'> 
          <'     git prune-packed &&\n'> <'     mv tmp ${pack}.idx &&\n'> <'     git cat-file blob $blob_1 > /dev/null &&\n'> 
          <'     git cat-file blob $blob_2 > /dev/null &&\n'> <'     git cat-file blob $blob_3 > /dev/null'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'corruption of delta base reference pointing to wrong object'>)} 
      {
        (SQ <'create_new_pack --delta-base-offset &&\n'> <'     git prune-packed &&\n'> 
          <'     printf "\\220\\033" | do_corrupt_object $blob_3 2 &&\n'> <'     git cat-file blob $blob_1 >/dev/null &&\n'> <'     git cat-file blob $blob_2 >/dev/null &&\n'> 
          <'     test_must_fail git cat-file blob $blob_3 >/dev/null'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'... but having a loose copy allows for full recovery'>)} 
      {
        (SQ <'mv ${pack}.idx tmp &&\n'> <'     git hash-object -t blob -w file_3 &&\n'> 
          <'     mv tmp ${pack}.idx &&\n'> <'     git cat-file blob $blob_1 > /dev/null &&\n'> 
          <'     git cat-file blob $blob_2 > /dev/null &&\n'> <'     git cat-file blob $blob_3 > /dev/null'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'... and then a repack "clears" the corruption'>)} 
      {
        (SQ <'do_repack --delta-base-offset --no-reuse-delta &&\n'> <'     git prune-packed &&\n'> 
          <'     git verify-pack ${pack}.pack &&\n'> <'     git cat-file blob $blob_1 > /dev/null &&\n'> 
          <'     git cat-file blob $blob_2 > /dev/null &&\n'> <'     git cat-file blob $blob_3 > /dev/null'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'corrupting header to have too small output buffer fails unpack'>)} 
      {
        (SQ <'create_new_pack &&\n'> <'     git prune-packed &&\n'> 
          <'     printf "\\262\\001" | do_corrupt_object $blob_1 0 &&\n'> <'     test_must_fail git cat-file blob $blob_1 > /dev/null &&\n'> 
          <'     test_must_fail git cat-file blob $blob_2 > /dev/null &&\n'> <'     test_must_fail git cat-file blob $blob_3 > /dev/null'>
        )
      }
    )
    (C {(test_done)})
  ]
)