(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "handling of duplicate objects in incoming packfiles">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (Com {[LIT_CHARS .]} {[DQ [VarSub TEST_DIRECTORY]] [LIT_CHARS /lib-pack.sh]})
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('LO_SHA1', {[LIT_CHARS e68fe8129b546b101aee9510c5328e7f21ca1d18]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('HI_SHA1', {[LIT_CHARS e69de29bb2d1d6434b8b29ae775ad8c2e48c5391]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('MISSING_SHA1', {[SQ <LIT_CHARS e69d000000000000000000000000000000000000>]})])
  (FunctionDef create_pack []
    (AndOr OP_AND_IF
      (Com {[LIT_CHARS pack_header]} {[DQ [ArithSub {A2 AS_OP_STAR {A Atom NODE_ARITH_WORD {[AS_NUM_LITERAL 2]}} {A Atom NODE_ARITH_WORD {[VarSub 2]}}}]]}
        <
        (FilenameRedirectNode filename={[DQ [VarSub 1]]} <REDIR_GREAT ">"> 1),
        >
      )
      (AndOr OP_AND_IF
        (For i [{[ComSub (Com {[LIT_CHARS test_seq]} {[LIT_CHARS 1]} {[DQ [VarSub 2]]})]}])
          (AndOr OP_AND_IF
            (Com {[LIT_CHARS pack_obj]} {[VarSub LO_SHA1]})
            (Com {[LIT_CHARS pack_obj]} {[VarSub HI_SHA1]})
          )
        )
        (Com {[LIT_CHARS pack_trailer]} {[DQ [VarSub 1]]})
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pack with no duplicates">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcreate_pack no-dups.pack 1 &&\n"> <LIT_CHARS "\tgit index-pack --stdin <no-dups.pack\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "index-pack will allow duplicate objects by default">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclear_packs &&\n"> <LIT_CHARS "\tcreate_pack dups.pack 100 &&\n"> <LIT_CHARS "\tgit index-pack --stdin <dups.pack\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "create batch-check test vectors">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >input <<-EOF &&\n"> <LIT_CHARS "\t$LO_SHA1\n"> <LIT_CHARS "\t$HI_SHA1\n"> <LIT_CHARS "\t$MISSING_SHA1\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tcat >expect <<-EOF\n"> <LIT_CHARS "\t$LO_SHA1 blob 2\n"> <LIT_CHARS "\t$HI_SHA1 blob 0\n"> <LIT_CHARS "\t$MISSING_SHA1 missing\n"> <LIT_CHARS "\tEOF\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "lookup in duplicated pack (binary search)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit cat-file --batch-check <input >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "lookup in duplicated pack (GIT_USE_LOOKUP)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tGIT_USE_LOOKUP=1 &&\n"> <LIT_CHARS "\t\texport GIT_USE_LOOKUP &&\n"> <LIT_CHARS "\t\tgit cat-file --batch-check <input >actual\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "index-pack can reject packs with duplicates">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tclear_packs &&\n"> <LIT_CHARS "\tcreate_pack dups.pack 2 &&\n"> <LIT_CHARS "\ttest_must_fail git index-pack --strict --stdin <dups.pack &&\n"> <LIT_CHARS "\ttest_expect_code 1 git cat-file -e $LO_SHA1\n">]})
  (Com {[LIT_CHARS test_done]})
)