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