(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "test git fast-import unpack limit">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "create loose objects on import">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tcat >input <<-INPUT_END &&\n"> <LIT_CHARS "\tcommit refs/heads/master\n"> <LIT_CHARS "\tcommitter $GIT_COMMITTER_NAME <$GIT_COMMITTER_EMAIL> $GIT_COMMITTER_DATE\n"> <LIT_CHARS "\tdata <<COMMIT\n"> <LIT_CHARS "\tinitial\n"> <LIT_CHARS "\tCOMMIT\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tdone\n"> <LIT_CHARS "\tINPUT_END\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit -c fastimport.unpackLimit=2 fast-import --done <input &&\n"> <LIT_CHARS "\tgit fsck --no-progress &&\n"> <LIT_CHARS "\ttest $(find .git/objects/?? -type f | wc -l) -eq 2 &&\n"> <LIT_CHARS "\ttest $(find .git/objects/pack -type f | wc -l) -eq 0\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "bigger packs are preserved">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tcat >input <<-INPUT_END &&\n"> <LIT_CHARS "\tcommit refs/heads/master\n"> <LIT_CHARS "\tcommitter $GIT_COMMITTER_NAME <$GIT_COMMITTER_EMAIL> $GIT_COMMITTER_DATE\n"> <LIT_CHARS "\tdata <<COMMIT\n"> <LIT_CHARS "\tincremental should create a pack\n"> <LIT_CHARS "\tCOMMIT\n"> <LIT_CHARS "\tfrom refs/heads/master^0\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tcommit refs/heads/branch\n"> <LIT_CHARS "\tcommitter $GIT_COMMITTER_NAME <$GIT_COMMITTER_EMAIL> $GIT_COMMITTER_DATE\n"> <LIT_CHARS "\tdata <<COMMIT\n"> <LIT_CHARS "\tbranch\n"> <LIT_CHARS "\tCOMMIT\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tdone\n"> <LIT_CHARS "\tINPUT_END\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit -c fastimport.unpackLimit=2 fast-import --done <input &&\n"> <LIT_CHARS "\tgit fsck --no-progress &&\n"> <LIT_CHARS "\ttest $(find .git/objects/?? -type f | wc -l) -eq 2 &&\n"> <LIT_CHARS "\ttest $(find .git/objects/pack -type f | wc -l) -eq 2\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "lookups after checkpoint works">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\thello_id=$(echo hello | git hash-object --stdin -t blob) &&\n"> <LIT_CHARS "\tid=\"$GIT_COMMITTER_NAME <$GIT_COMMITTER_EMAIL> $GIT_COMMITTER_DATE\" &&\n"> <LIT_CHARS "\tbefore=$(git rev-parse refs/heads/master^0) &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcat <<-INPUT_END &&\n"> <LIT_CHARS "\t\tblob\n"> <LIT_CHARS "\t\tmark :1\n"> <LIT_CHARS "\t\tdata 6\n"> <LIT_CHARS "\t\thello\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\tcommit refs/heads/master\n"> <LIT_CHARS "\t\tmark :2\n"> <LIT_CHARS "\t\tcommitter $id\n"> <LIT_CHARS "\t\tdata <<COMMIT\n"> <LIT_CHARS "\t\tcheckpoint after this\n"> <LIT_CHARS "\t\tCOMMIT\n"> <LIT_CHARS "\t\tfrom refs/heads/master^0\n"> <LIT_CHARS "\t\tM 100644 :1 hello\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\t# pre-checkpoint\n"> <LIT_CHARS "\t\tcat-blob :1\n"> <LIT_CHARS "\t\tcat-blob $hello_id\n"> <LIT_CHARS "\t\tcheckpoint\n"> <LIT_CHARS "\t\t# post-checkpoint\n"> <LIT_CHARS "\t\tcat-blob :1\n"> <LIT_CHARS "\t\tcat-blob $hello_id\n"> <LIT_CHARS "\t\tINPUT_END\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\tn=0 &&\n"> <LIT_CHARS "\t\tfrom=$before &&\n"> <LIT_CHARS "\t\twhile test x\"$from\" = x\"$before\"\n"> <LIT_CHARS "\t\tdo\n"> <LIT_CHARS "\t\t\tif test $n -gt 30\n"> <LIT_CHARS "\t\t\tthen\n"> <LIT_CHARS "\t\t\t\techo >&2 \"checkpoint did not update branch\"\n"> <LIT_CHARS "\t\t\t\texit 1\n"> <LIT_CHARS "\t\t\telse\n"> <LIT_CHARS "\t\t\t\tn=$(($n + 1))\n"> <LIT_CHARS "\t\t\tfi &&\n"> <LIT_CHARS "\t\t\tsleep 1 &&\n"> <LIT_CHARS "\t\t\tfrom=$(git rev-parse refs/heads/master^0)\n"> <LIT_CHARS "\t\tdone &&\n"> <LIT_CHARS "\t\tcat <<-INPUT_END &&\n"> <LIT_CHARS "\t\tcommit refs/heads/master\n"> <LIT_CHARS "\t\tcommitter $id\n"> <LIT_CHARS "\t\tdata <<COMMIT\n"> <LIT_CHARS "\t\tmake sure from \"unpacked sha1 reference\" works, too\n"> <LIT_CHARS "\t\tCOMMIT\n"> <LIT_CHARS "\t\tfrom $from\n"> <LIT_CHARS "\t\tINPUT_END\n"> <LIT_CHARS "\t\techo done\n"> <LIT_CHARS "\t) | git -c fastimport.unpackLimit=100 fast-import --done &&\n"> <LIT_CHARS "\ttest $(find .git/objects/?? -type f | wc -l) -eq 6 &&\n"> <LIT_CHARS "\ttest $(find .git/objects/pack -type f | wc -l) -eq 2\n">]})
  (Com {[LIT_CHARS test_done]})
)