(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "performance of tag-following with many tags\n"> <LIT_CHARS "\n"> <LIT_CHARS "This tests a fairly pathological case, so rather than rely on a real-world\n"> <LIT_CHARS "case, we will construct our own repository. The situation is roughly as\n"> <LIT_CHARS "follows.\n"> <LIT_CHARS "\n"> <LIT_CHARS "The parent repository has a large number of tags which are disconnected from\n"> <LIT_CHARS "the rest of history. That makes them candidates for tag-following, but we never\n"> <LIT_CHARS "actually grab them (and thus they will impact each subsequent fetch).\n"> <LIT_CHARS "\n"> <LIT_CHARS "The child repository is a clone of parent, without the tags, and is at least\n"> <LIT_CHARS "one commit behind the parent (meaning that we will fetch one object and then\n"> <LIT_CHARS "examine the tags to see if they need followed). Furthermore, it has a large\n"> <LIT_CHARS "number of packs.\n"> <LIT_CHARS "\n"> <LIT_CHARS "The exact values of \"large\" here are somewhat arbitrary; I picked values that\n"> <LIT_CHARS "start to show a noticeable performance problem on my machine, but without\n"> <LIT_CHARS "taking too long to set up and run the tests.\n">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./perf-lib.sh]})
  (FunctionDef create_history []
    (Pipeline
      (Com {[LIT_CHARS perl]} {[LIT_CHARS -le]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\tmy ($branch, $n, $blob) = @ARGV;\n"> <LIT_CHARS "\t\tfor (1..$n) {\n"> <LIT_CHARS "\t\t\tprint \"commit refs/heads/$branch\";\n"> <LIT_CHARS "\t\t\tprint \"committer nobody <nobody@example.com> now\";\n"> <LIT_CHARS "\t\t\tprint \"data 4\";\n"> <LIT_CHARS "\t\t\tprint \"foo\";\n"> <LIT_CHARS "\t\t\tprint \"M 100644 $blob $_\";\n"> <LIT_CHARS "\t\t}\n"> <LIT_CHARS "\t">]} {[DQ [VarSub @]]})
      (Com {[LIT_CHARS git]} {[LIT_CHARS fast-import]} {[LIT_CHARS --date-format] [LIT_OTHER "="] [LIT_CHARS now]})
    )
  )
  (FunctionDef create_tags []
    (Pipeline
      (Com {[LIT_CHARS git]} {[LIT_CHARS rev-list]} {[DQ [VarSub @]]})
      (Com {[LIT_CHARS perl]} {[LIT_CHARS -lne]} {[SQ <LIT_CHARS "print \"create refs/tags/$. $_\"">]})
      (Com {[LIT_CHARS git]} {[LIT_CHARS update-ref]} {[LIT_CHARS --stdin]})
    )
  )
  (FunctionDef create_packs []
    (AndOr OP_AND_IF
      (Pipeline
        (Com {[LIT_CHARS perl]} {[LIT_CHARS -le]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\tmy ($n) = @ARGV;\n"> <LIT_CHARS "\t\tfor (1..$n) {\n"> <LIT_CHARS "\t\t\tprint \"blob\";\n"> <LIT_CHARS "\t\t\tprint \"data <<EOF\";\n"> <LIT_CHARS "\t\t\tprint \"$_\";\n"> <LIT_CHARS "\t\t\tprint \"EOF\";\n"> <LIT_CHARS "\t\t}\n"> <LIT_CHARS "\t">]} {[DQ [VarSub @]]})
        (Com {[LIT_CHARS git]} {[LIT_CHARS fast-import]})
      )
      (Pipeline
        (Com {[LIT_CHARS git]} {[LIT_CHARS cat-file]} {[LIT_CHARS --batch-all-objects]} {[LIT_CHARS --batch-check] [LIT_OTHER "="] [SQ <LIT_CHARS "%(objectname)">]})
        (While
          (Com {[LIT_CHARS read]} {[LIT_CHARS sha1]})
          (Pipeline
            (Com {[LIT_CHARS echo]} {[VarSub sha1]})
            (Com {[LIT_CHARS git]} {[LIT_CHARS pack-objects]} {[LIT_CHARS .git/objects/pack/pack]})
          )
        )
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "create parent and child">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit init parent &&\n"> <LIT_CHARS "\tgit -C parent commit --allow-empty -m base &&\n"> <LIT_CHARS "\tgit clone parent child &&\n"> <LIT_CHARS "\tgit -C parent commit --allow-empty -m trigger-fetch\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "populate parent tags">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd parent &&\n"> <LIT_CHARS "\t\tblob=$(echo content | git hash-object -w --stdin) &&\n"> <LIT_CHARS "\t\tcreate_history cruft 3000 $blob &&\n"> <LIT_CHARS "\t\tcreate_tags cruft &&\n"> <LIT_CHARS "\t\tgit branch -D cruft\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "create child packs">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd child &&\n"> <LIT_CHARS "\t\tgit config gc.auto 0 &&\n"> <LIT_CHARS "\t\tgit config gc.autopacklimit 0 &&\n"> <LIT_CHARS "\t\tcreate_packs 500\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_perf]} {[SQ <LIT_CHARS fetch>]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# make sure there is something to fetch on each iteration\n"> <LIT_CHARS "\tgit -C child update-ref -d refs/remotes/origin/master &&\n"> <LIT_CHARS "\tgit -C child fetch\n">]})
  (Com {[LIT_CHARS test_done]})
)