(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "errors in upload-pack">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]}  )
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('D', {[ComSub (Com {[LIT_CHARS pwd]})]})])
  (FunctionDef corrupt_repo []
    (AndOr OP_AND_IF
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('object_sha1', {[ComSub (Com {[LIT_CHARS git]} {[LIT_CHARS rev-parse]} {[DQ [VarSub 1]]})]})])
      (AndOr OP_AND_IF
        (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('ob', {[ComSub (Com {[LIT_CHARS expr]} {[DQ [VarSub object_sha1]]} {[LIT_OTHER ":"]} {[DQ [\ LIT_ESCAPED_CHAR "\\("][LIT_CHARS ..][\ LIT_ESCAPED_CHAR "\\)"]]})]})])
        (AndOr OP_AND_IF
          (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('ject', {[ComSub (Com {[LIT_CHARS expr]} {[DQ [VarSub object_sha1]]} {[LIT_OTHER ":"]} {[DQ [LIT_CHARS ..][\ LIT_ESCAPED_CHAR "\\("][LIT_CHARS "..*"][\ LIT_ESCAPED_CHAR "\\)"]]})]})])
          (Com {[LIT_CHARS rm]} {[LIT_CHARS -f]} {[DQ [LIT_CHARS .git/objects/][VarSub ob][LIT_CHARS /][VarSub ject]]}          )
        )
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup and corrupt repository">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\techo file >file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\tgit rev-parse :file &&\n"> <LIT_CHARS "\tgit commit -a -m original &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\techo changed >file &&\n"> <LIT_CHARS "\tgit commit -a -m changed &&\n"> <LIT_CHARS "\tcorrupt_repo HEAD:file\n"> <LIT_CHARS "\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "fsck fails">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git fsck\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "upload-pack fails due to error in pack-objects packing">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tprintf \"0032want %s\\n00000009done\\n0000\" \\\n"> <LIT_CHARS "\t\t$(git rev-parse HEAD) >input &&\n"> <LIT_CHARS "\ttest_must_fail git upload-pack . <input >/dev/null 2>output.err &&\n"> <LIT_CHARS "\ttest_i18ngrep \"unable to read\" output.err &&\n"> <LIT_CHARS "\ttest_i18ngrep \"pack-objects died\" output.err\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "corrupt repo differently">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit hash-object -w file &&\n"> <LIT_CHARS "\tcorrupt_repo HEAD^^{tree}\n"> <LIT_CHARS "\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "fsck fails">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git fsck\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "upload-pack fails due to error in rev-list">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tprintf \"0032want %s\\n0034shallow %s00000009done\\n0000\" \\\n"> <LIT_CHARS "\t\t$(git rev-parse HEAD) $(git rev-parse HEAD^) >input &&\n"> <LIT_CHARS "\ttest_must_fail git upload-pack . <input >/dev/null 2>output.err &&\n"> <LIT_CHARS "\t# pack-objects survived\n"> <LIT_CHARS "\tgrep \"Total.*, reused\" output.err &&\n"> <LIT_CHARS "\t# but there was an error, which must have been in rev-list\n"> <LIT_CHARS "\tgrep \"bad tree object\" output.err\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "upload-pack error message when bad ref requested">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tprintf \"0045want %s multi_ack_detailed\\n00000009done\\n0000\" \\\n"> <LIT_CHARS "\t\t\"deadbeefdeadbeefdeadbeefdeadbeefdeadbeef\" >input &&\n"> <LIT_CHARS "\ttest_must_fail git upload-pack . <input >output 2>output.err &&\n"> <LIT_CHARS "\tgrep -q \"not our ref\" output.err &&\n"> <LIT_CHARS "\t! grep -q multi_ack_detailed output.err\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "upload-pack fails due to error in pack-objects enumeration">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tprintf \"0032want %s\\n00000009done\\n0000\" \\\n"> <LIT_CHARS "\t\t$(git rev-parse HEAD) >input &&\n"> <LIT_CHARS "\ttest_must_fail git upload-pack . <input >/dev/null 2>output.err &&\n"> <LIT_CHARS "\tgrep \"bad tree object\" output.err &&\n"> <LIT_CHARS "\tgrep \"pack-objects died\" output.err\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "create empty repository">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir foo &&\n"> <LIT_CHARS "\tcd foo &&\n"> <LIT_CHARS "\tgit init\n"> <LIT_CHARS "\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "fetch fails">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git fetch .. master\n"> <LIT_CHARS "\n">]}  )
  (Com {[LIT_CHARS test_done]}  )
)