(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "see how we handle various forms of corruption">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (FunctionDef obj_to_file []
    (Com {[LIT_CHARS echo]} {[DQ [ComSub (Com {[LIT_CHARS git]} {[LIT_CHARS rev-parse]} {[LIT_CHARS --git-dir]})][LIT_CHARS /objects/][ComSub (Pipeline (Com {[LIT_CHARS git]} {[LIT_CHARS rev-parse]} {[DQ [VarSub 1]]}) (Com {[LIT_CHARS sed]} {[SQ <LIT_CHARS "s,..,&/,">]}) )]]})
  )
  (FunctionDef corrupt_byte []
    (AndOr OP_AND_IF
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('obj_file', {[ComSub (Com {[LIT_CHARS obj_to_file]} {[DQ [VarSub 1]]})]})])
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS chmod]} {[LIT_OTHER "+"] [LIT_CHARS w]} {[DQ [VarSub obj_file]]})
        (Pipeline
          (Com {[LIT_CHARS printf]} {[SQ <LIT_CHARS "\\0">]})
          (Com {[LIT_CHARS dd]} {[LIT_VAR_LIKE "of="] [DQ [VarSub obj_file]] =} {[LIT_VAR_LIKE "bs="] [LIT_CHARS 1] =} {[LIT_VAR_LIKE "seek="] [DQ [VarSub 2]] =} {[LIT_VAR_LIKE "conv="] [LIT_CHARS notrunc] =})
        )
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup corrupt repo">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit init bit-error &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd bit-error &&\n"> <LIT_CHARS "\t\ttest_commit content &&\n"> <LIT_CHARS "\t\tcorrupt_byte HEAD:content.t 10\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup repo with missing object">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit init missing &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd missing &&\n"> <LIT_CHARS "\t\ttest_commit content &&\n"> <LIT_CHARS "\t\trm -f \"$(obj_to_file HEAD:content.t)\"\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup repo with misnamed object">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit init misnamed &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd misnamed &&\n"> <LIT_CHARS "\t\ttest_commit content &&\n"> <LIT_CHARS "\t\tgood=$(obj_to_file HEAD:content.t) &&\n"> <LIT_CHARS "\t\tblob=$(echo corrupt | git hash-object -w --stdin) &&\n"> <LIT_CHARS "\t\tbad=$(obj_to_file $blob) &&\n"> <LIT_CHARS "\t\trm -f \"$good\" &&\n"> <LIT_CHARS "\t\tmv \"$bad\" \"$good\"\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "streaming a corrupt blob fails">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd bit-error &&\n"> <LIT_CHARS "\t\ttest_must_fail git cat-file blob HEAD:content.t\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "read-tree -u detects bit-errors in blobs">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd bit-error &&\n"> <LIT_CHARS "\t\trm -f content.t &&\n"> <LIT_CHARS "\t\ttest_must_fail git read-tree --reset -u HEAD\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "read-tree -u detects missing objects">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd missing &&\n"> <LIT_CHARS "\t\trm -f content.t &&\n"> <LIT_CHARS "\t\ttest_must_fail git read-tree --reset -u HEAD\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone --no-local --bare detects corruption">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git clone --no-local --bare bit-error corrupt-transport\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone --no-local --bare detects missing object">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git clone --no-local --bare missing missing-transport\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone --no-local --bare detects misnamed object">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git clone --no-local --bare misnamed misnamed-transport\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone --local detects corruption">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git clone --local bit-error corrupt-checkout\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "error detected during checkout leaves repo intact">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_path_is_dir corrupt-checkout/.git\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone --local detects missing objects">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git clone --local missing missing-checkout\n">]})
  (Com {[LIT_CHARS test_expect_failure]} {[SQ <LIT_CHARS "clone --local detects misnamed objects">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git clone --local misnamed misnamed-checkout\n">]})
  (Com {[LIT_CHARS test_done]})
)