(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "exercise basic bitmap functionality">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (FunctionDef objpath []
    (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS .git/objects/][ComSub (Pipeline (Com {[LIT_CHARS echo]} {[DQ [VarSub 1]]}) (Com {[LIT_CHARS sed]} {[LIT_CHARS -e]} {[SQ <LIT_CHARS "s|\\(..\\)|\\1/|">]}) )]]})
  )
  (FunctionDef list_packed_objects []
    (Pipeline
      (Com {[LIT_CHARS git]} {[LIT_CHARS show-index]}
        <
        (FilenameRedirectNode filename={[DQ [VarSub 1]]} <REDIR_LESS "<"> 0),
        >
      )
      (Com {[LIT_CHARS cut]} {[LIT_CHARS -d] [SQ <LIT_CHARS " ">]} {[LIT_CHARS -f2]})
    )
  )
  (FunctionDef has_any []
    (Com {[LIT_CHARS grep]} {[LIT_CHARS -Ff]} {[DQ [VarSub 1]]} {[DQ [VarSub 2]]})
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup repo with moderate-sized history">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tfor i in $(test_seq 1 10); do\n"> <LIT_CHARS "\t\ttest_commit $i\n"> <LIT_CHARS "\tdone &&\n"> <LIT_CHARS "\tgit checkout -b other HEAD~5 &&\n"> <LIT_CHARS "\tfor i in $(test_seq 1 10); do\n"> <LIT_CHARS "\t\ttest_commit side-$i\n"> <LIT_CHARS "\tdone &&\n"> <LIT_CHARS "\tgit checkout master &&\n"> <LIT_CHARS "\tbitmaptip=$(git rev-parse master) &&\n"> <LIT_CHARS "\tblob=$(echo tagged-blob | git hash-object -w --stdin) &&\n"> <LIT_CHARS "\tgit tag tagged-blob $blob &&\n"> <LIT_CHARS "\tgit config repack.writebitmaps true &&\n"> <LIT_CHARS "\tgit config pack.writebitmaphashcache true\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "full repack creates bitmaps">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit repack -ad &&\n"> <LIT_CHARS "\tls .git/objects/pack/ | grep bitmap >output &&\n"> <LIT_CHARS "\ttest_line_count = 1 output\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "rev-list --test-bitmap verifies bitmaps">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit rev-list --test-bitmap HEAD\n">]})
  (FunctionDef rev_list_tests []
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('state', {[VarSub 1]})])
      (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "counting commits via bitmap ("][VarSub state][LIT_CHARS ")"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\tgit rev-list --count HEAD >expect &&\n"> <LIT_CHARS "\t\tgit rev-list --use-bitmap-index --count HEAD >actual &&\n"> <LIT_CHARS "\t\ttest_cmp expect actual\n"> <LIT_CHARS "\t">]})
      (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "counting partial commits via bitmap ("][VarSub state][LIT_CHARS ")"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\tgit rev-list --count HEAD~5..HEAD >expect &&\n"> <LIT_CHARS "\t\tgit rev-list --use-bitmap-index --count HEAD~5..HEAD >actual &&\n"> <LIT_CHARS "\t\ttest_cmp expect actual\n"> <LIT_CHARS "\t">]})
      (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "counting commits with limit ("][VarSub state][LIT_CHARS ")"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\tgit rev-list --count -n 1 HEAD >expect &&\n"> <LIT_CHARS "\t\tgit rev-list --use-bitmap-index --count -n 1 HEAD >actual &&\n"> <LIT_CHARS "\t\ttest_cmp expect actual\n"> <LIT_CHARS "\t">]})
      (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "counting non-linear history ("][VarSub state][LIT_CHARS ")"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\tgit rev-list --count other...master >expect &&\n"> <LIT_CHARS "\t\tgit rev-list --use-bitmap-index --count other...master >actual &&\n"> <LIT_CHARS "\t\ttest_cmp expect actual\n"> <LIT_CHARS "\t">]})
      (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "counting commits with limiting ("][VarSub state][LIT_CHARS ")"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\tgit rev-list --count HEAD -- 1.t >expect &&\n"> <LIT_CHARS "\t\tgit rev-list --use-bitmap-index --count HEAD -- 1.t >actual &&\n"> <LIT_CHARS "\t\ttest_cmp expect actual\n"> <LIT_CHARS "\t">]})
      (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "enumerate --objects ("][VarSub state][LIT_CHARS ")"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\tgit rev-list --objects --use-bitmap-index HEAD >tmp &&\n"> <LIT_CHARS "\t\tcut -d\" \" -f1 <tmp >tmp2 &&\n"> <LIT_CHARS "\t\tsort <tmp2 >actual &&\n"> <LIT_CHARS "\t\tgit rev-list --objects HEAD >tmp &&\n"> <LIT_CHARS "\t\tcut -d\" \" -f1 <tmp >tmp2 &&\n"> <LIT_CHARS "\t\tsort <tmp2 >expect &&\n"> <LIT_CHARS "\t\ttest_cmp expect actual\n"> <LIT_CHARS "\t">]})
      (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "bitmap --objects handles non-commit objects ("][VarSub state][LIT_CHARS ")"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\tgit rev-list --objects --use-bitmap-index HEAD tagged-blob >actual &&\n"> <LIT_CHARS "\t\tgrep $blob actual\n"> <LIT_CHARS "\t">]})
    )
  )
  (Com {[LIT_CHARS rev_list_tests]} {[SQ <LIT_CHARS "full bitmap">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clone from bitmapped repository">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit clone --no-local --bare . clone.git &&\n"> <LIT_CHARS "\tgit rev-parse HEAD >expect &&\n"> <LIT_CHARS "\tgit --git-dir=clone.git rev-parse HEAD >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup further non-bitmapped commits">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tfor i in $(test_seq 1 10); do\n"> <LIT_CHARS "\t\ttest_commit further-$i\n"> <LIT_CHARS "\tdone\n">]})
  (Com {[LIT_CHARS rev_list_tests]} {[SQ <LIT_CHARS "partial bitmap">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "fetch (partial bitmap)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit --git-dir=clone.git fetch origin master:master &&\n"> <LIT_CHARS "\tgit rev-parse HEAD >expect &&\n"> <LIT_CHARS "\tgit --git-dir=clone.git rev-parse HEAD >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "incremental repack cannot create bitmaps">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_commit more-1 &&\n"> <LIT_CHARS "\tfind .git/objects/pack -name \"*.bitmap\" >expect &&\n"> <LIT_CHARS "\tgit repack -d &&\n"> <LIT_CHARS "\tfind .git/objects/pack -name \"*.bitmap\" >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "incremental repack can disable bitmaps">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_commit more-2 &&\n"> <LIT_CHARS "\tgit repack -d --no-write-bitmap-index\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pack-objects respects --local (non-local loose)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit init --bare alt.git &&\n"> <LIT_CHARS "\techo $(pwd)/alt.git/objects >.git/objects/info/alternates &&\n"> <LIT_CHARS "\techo content1 >file1 &&\n"> <LIT_CHARS "\t# non-local loose object which is not present in bitmapped pack\n"> <LIT_CHARS "\taltblob=$(GIT_DIR=alt.git git hash-object -w file1) &&\n"> <LIT_CHARS "\t# non-local loose object which is also present in bitmapped pack\n"> <LIT_CHARS "\tgit cat-file blob $blob | GIT_DIR=alt.git git hash-object -w --stdin &&\n"> <LIT_CHARS "\tgit add file1 &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -m commit_file1 &&\n"> <LIT_CHARS "\techo HEAD | git pack-objects --local --stdout --revs >1.pack &&\n"> <LIT_CHARS "\tgit index-pack 1.pack &&\n"> <LIT_CHARS "\tlist_packed_objects 1.idx >1.objects &&\n"> <LIT_CHARS "\tprintf \"%s\\n\" \"$altblob\" \"$blob\" >nonlocal-loose &&\n"> <LIT_CHARS "\t! has_any nonlocal-loose 1.objects\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pack-objects respects --honor-pack-keep (local non-bitmapped pack)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo content2 >file2 &&\n"> <LIT_CHARS "\tblob2=$(git hash-object -w file2) &&\n"> <LIT_CHARS "\tgit add file2 &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -m commit_file2 &&\n"> <LIT_CHARS "\tprintf \"%s\\n\" \"$blob2\" \"$bitmaptip\" >keepobjects &&\n"> <LIT_CHARS "\tpack2=$(git pack-objects pack2 <keepobjects) &&\n"> <LIT_CHARS "\tmv pack2-$pack2.* .git/objects/pack/ &&\n"> <LIT_CHARS "\t>.git/objects/pack/pack2-$pack2.keep &&\n"> <LIT_CHARS "\trm $(objpath $blob2) &&\n"> <LIT_CHARS "\techo HEAD | git pack-objects --honor-pack-keep --stdout --revs >2a.pack &&\n"> <LIT_CHARS "\tgit index-pack 2a.pack &&\n"> <LIT_CHARS "\tlist_packed_objects 2a.idx >2a.objects &&\n"> <LIT_CHARS "\t! has_any keepobjects 2a.objects\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pack-objects respects --local (non-local pack)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmv .git/objects/pack/pack2-$pack2.* alt.git/objects/pack/ &&\n"> <LIT_CHARS "\techo HEAD | git pack-objects --local --stdout --revs >2b.pack &&\n"> <LIT_CHARS "\tgit index-pack 2b.pack &&\n"> <LIT_CHARS "\tlist_packed_objects 2b.idx >2b.objects &&\n"> <LIT_CHARS "\t! has_any keepobjects 2b.objects\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pack-objects respects --honor-pack-keep (local bitmapped pack)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tls .git/objects/pack/ | grep bitmap >output &&\n"> <LIT_CHARS "\ttest_line_count = 1 output &&\n"> <LIT_CHARS "\tpackbitmap=$(basename $(cat output) .bitmap) &&\n"> <LIT_CHARS "\tlist_packed_objects .git/objects/pack/$packbitmap.idx >packbitmap.objects &&\n"> <LIT_CHARS "\ttest_when_finished \"rm -f .git/objects/pack/$packbitmap.keep\" &&\n"> <LIT_CHARS "\t>.git/objects/pack/$packbitmap.keep &&\n"> <LIT_CHARS "\techo HEAD | git pack-objects --honor-pack-keep --stdout --revs >3a.pack &&\n"> <LIT_CHARS "\tgit index-pack 3a.pack &&\n"> <LIT_CHARS "\tlist_packed_objects 3a.idx >3a.objects &&\n"> <LIT_CHARS "\t! has_any packbitmap.objects 3a.objects\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pack-objects respects --local (non-local bitmapped pack)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmv .git/objects/pack/$packbitmap.* alt.git/objects/pack/ &&\n"> <LIT_CHARS "\ttest_when_finished \"mv alt.git/objects/pack/$packbitmap.* .git/objects/pack/\" &&\n"> <LIT_CHARS "\techo HEAD | git pack-objects --local --stdout --revs >3b.pack &&\n"> <LIT_CHARS "\tgit index-pack 3b.pack &&\n"> <LIT_CHARS "\tlist_packed_objects 3b.idx >3b.objects &&\n"> <LIT_CHARS "\t! has_any packbitmap.objects 3b.objects\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pack-objects to file can use bitmap">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# make sure we still have 1 bitmap index from previous tests\n"> <LIT_CHARS "\tls .git/objects/pack/ | grep bitmap >output &&\n"> <LIT_CHARS "\ttest_line_count = 1 output &&\n"> <LIT_CHARS "\t# verify equivalent packs are generated with/without using bitmap index\n"> <LIT_CHARS "\tpackasha1=$(git pack-objects --no-use-bitmap-index --all packa </dev/null) &&\n"> <LIT_CHARS "\tpackbsha1=$(git pack-objects --use-bitmap-index --all packb </dev/null) &&\n"> <LIT_CHARS "\tlist_packed_objects <packa-$packasha1.idx >packa.objects &&\n"> <LIT_CHARS "\tlist_packed_objects <packb-$packbsha1.idx >packb.objects &&\n"> <LIT_CHARS "\ttest_cmp packa.objects packb.objects\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "full repack, reusing previous bitmaps">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit repack -ad &&\n"> <LIT_CHARS "\tls .git/objects/pack/ | grep bitmap >output &&\n"> <LIT_CHARS "\ttest_line_count = 1 output\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "fetch (full bitmap)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit --git-dir=clone.git fetch origin master:master &&\n"> <LIT_CHARS "\tgit rev-parse HEAD >expect &&\n"> <LIT_CHARS "\tgit --git-dir=clone.git rev-parse HEAD >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "create objects for missing-HAVE tests">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tblob=$(echo \"missing have\" | git hash-object -w --stdin) &&\n"> <LIT_CHARS "\ttree=$(printf \"100644 blob $blob\\tfile\\n\" | git mktree) &&\n"> <LIT_CHARS "\tparent=$(echo parent | git commit-tree $tree) &&\n"> <LIT_CHARS "\tcommit=$(echo commit | git commit-tree $tree -p $parent) &&\n"> <LIT_CHARS "\tcat >revs <<-EOF\n"> <LIT_CHARS "\tHEAD\n"> <LIT_CHARS "\t^HEAD^\n"> <LIT_CHARS "\t^$commit\n"> <LIT_CHARS "\tEOF\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pack-objects respects --incremental">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >revs2 <<-EOF &&\n"> <LIT_CHARS "\tHEAD\n"> <LIT_CHARS "\t$commit\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgit pack-objects --incremental --stdout --revs <revs2 >4.pack &&\n"> <LIT_CHARS "\tgit index-pack 4.pack &&\n"> <LIT_CHARS "\tlist_packed_objects 4.idx >4.objects &&\n"> <LIT_CHARS "\ttest_line_count = 4 4.objects &&\n"> <LIT_CHARS "\tgit rev-list --objects $commit >revlist &&\n"> <LIT_CHARS "\tcut -d\" \" -f1 revlist |sort >objects &&\n"> <LIT_CHARS "\ttest_cmp 4.objects objects\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pack with missing blob">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm $(objpath $blob) &&\n"> <LIT_CHARS "\tgit pack-objects --stdout --revs <revs >/dev/null\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pack with missing tree">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm $(objpath $tree) &&\n"> <LIT_CHARS "\tgit pack-objects --stdout --revs <revs >/dev/null\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pack with missing parent">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm $(objpath $parent) &&\n"> <LIT_CHARS "\tgit pack-objects --stdout --revs <revs >/dev/null\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS JGIT]} {[SQ <LIT_CHARS "we can read jgit bitmaps">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit clone . compat-jgit &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd compat-jgit &&\n"> <LIT_CHARS "\t\trm -f .git/objects/pack/*.bitmap &&\n"> <LIT_CHARS "\t\tjgit gc &&\n"> <LIT_CHARS "\t\tgit rev-list --test-bitmap HEAD\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS JGIT]} {[SQ <LIT_CHARS "jgit can read our bitmaps">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit clone . compat-us &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd compat-us &&\n"> <LIT_CHARS "\t\tgit repack -adb &&\n"> <LIT_CHARS "\t\t# jgit gc will barf if it does not like our bitmaps\n"> <LIT_CHARS "\t\tjgit gc\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "splitting packs does not generate bogus bitmaps">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest-genrandom foo $((1024 * 1024)) >rand &&\n"> <LIT_CHARS "\tgit add rand &&\n"> <LIT_CHARS "\tgit commit -m \"commit with big file\" &&\n"> <LIT_CHARS "\tgit -c pack.packSizeLimit=500k repack -adb &&\n"> <LIT_CHARS "\tgit init --bare no-bitmaps.git &&\n"> <LIT_CHARS "\tgit -C no-bitmaps.git fetch .. HEAD\n">]})
  (Com {[LIT_CHARS test_done]})
)