(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "git repack works correctly">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "objects in packs marked .keep are not repacked">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo content1 > file1 &&\n"> <LIT_CHARS "\techo content2 > file2 &&\n"> <LIT_CHARS "\tgit add . &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -m initial_commit &&\n"> <LIT_CHARS "\t# Create two packs\n"> <LIT_CHARS "\t# The first pack will contain all of the objects except one\n"> <LIT_CHARS "\tgit rev-list --objects --all | grep -v file2 |\n"> <LIT_CHARS "\t\tgit pack-objects pack > /dev/null &&\n"> <LIT_CHARS "\t# The second pack will contain the excluded object\n"> <LIT_CHARS "\tpacksha1=$(git rev-list --objects --all | grep file2 |\n"> <LIT_CHARS "\t\tgit pack-objects pack) &&\n"> <LIT_CHARS "\ttouch -r pack-$packsha1.pack pack-$packsha1.keep &&\n"> <LIT_CHARS "\tobjsha1=$(git verify-pack -v pack-$packsha1.idx | head -n 1 |\n"> <LIT_CHARS "\t\tsed -e \"s/^\\([0-9a-f]\\{40\\}\\).*/\\1/\") &&\n"> <LIT_CHARS "\tmv pack-* .git/objects/pack/ &&\n"> <LIT_CHARS "\tgit repack -A -d -l &&\n"> <LIT_CHARS "\tgit prune-packed &&\n"> <LIT_CHARS "\tfor p in .git/objects/pack/*.idx; do\n"> <LIT_CHARS "\t\tidx=$(basename $p)\n"> <LIT_CHARS "\t\ttest \"pack-$packsha1.idx\" = \"$idx\" && continue\n"> <LIT_CHARS "\t\tif git verify-pack -v $p | egrep \"^$objsha1\"; then\n"> <LIT_CHARS "\t\t\tfound_duplicate_object=1\n"> <LIT_CHARS "\t\t\techo \"DUPLICATE OBJECT FOUND\"\n"> <LIT_CHARS "\t\t\tbreak\n"> <LIT_CHARS "\t\tfi\n"> <LIT_CHARS "\tdone &&\n"> <LIT_CHARS "\ttest -z \"$found_duplicate_object\"\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "loose objects in alternate ODB are not repacked">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir alt_objects &&\n"> <LIT_CHARS "\techo `pwd`/alt_objects > .git/objects/info/alternates &&\n"> <LIT_CHARS "\techo content3 > file3 &&\n"> <LIT_CHARS "\tobjsha1=$(GIT_OBJECT_DIRECTORY=alt_objects git hash-object -w file3) &&\n"> <LIT_CHARS "\tgit add file3 &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -m commit_file3 &&\n"> <LIT_CHARS "\tgit repack -a -d -l &&\n"> <LIT_CHARS "\tgit prune-packed &&\n"> <LIT_CHARS "\tfor p in .git/objects/pack/*.idx; do\n"> <LIT_CHARS "\t\tif git verify-pack -v $p | egrep \"^$objsha1\"; then\n"> <LIT_CHARS "\t\t\tfound_duplicate_object=1\n"> <LIT_CHARS "\t\t\techo \"DUPLICATE OBJECT FOUND\"\n"> <LIT_CHARS "\t\t\tbreak\n"> <LIT_CHARS "\t\tfi\n"> <LIT_CHARS "\tdone &&\n"> <LIT_CHARS "\ttest -z \"$found_duplicate_object\"\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "packed obs in alt ODB are repacked even when local repo is packless">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir alt_objects/pack &&\n"> <LIT_CHARS "\tmv .git/objects/pack/* alt_objects/pack &&\n"> <LIT_CHARS "\tgit repack -a &&\n"> <LIT_CHARS "\tmyidx=$(ls -1 .git/objects/pack/*.idx) &&\n"> <LIT_CHARS "\ttest -f \"$myidx\" &&\n"> <LIT_CHARS "\tfor p in alt_objects/pack/*.idx; do\n"> <LIT_CHARS "\t\tgit verify-pack -v $p | sed -n -e \"/^[0-9a-f]\\{40\\}/p\"\n"> <LIT_CHARS "\tdone | while read sha1 rest; do\n"> <LIT_CHARS "\t\tif ! ( git verify-pack -v $myidx | grep \"^$sha1\" ); then\n"> <LIT_CHARS "\t\t\techo \"Missing object in local pack: $sha1\"\n"> <LIT_CHARS "\t\t\treturn 1\n"> <LIT_CHARS "\t\tfi\n"> <LIT_CHARS "\tdone\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "packed obs in alt ODB are repacked when local repo has packs">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -f .git/objects/pack/* &&\n"> <LIT_CHARS "\techo new_content >> file1 &&\n"> <LIT_CHARS "\tgit add file1 &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -m more_content &&\n"> <LIT_CHARS "\tgit repack &&\n"> <LIT_CHARS "\tgit repack -a -d &&\n"> <LIT_CHARS "\tmyidx=$(ls -1 .git/objects/pack/*.idx) &&\n"> <LIT_CHARS "\ttest -f \"$myidx\" &&\n"> <LIT_CHARS "\tfor p in alt_objects/pack/*.idx; do\n"> <LIT_CHARS "\t\tgit verify-pack -v $p | sed -n -e \"/^[0-9a-f]\\{40\\}/p\"\n"> <LIT_CHARS "\tdone | while read sha1 rest; do\n"> <LIT_CHARS "\t\tif ! ( git verify-pack -v $myidx | grep \"^$sha1\" ); then\n"> <LIT_CHARS "\t\t\techo \"Missing object in local pack: $sha1\"\n"> <LIT_CHARS "\t\t\treturn 1\n"> <LIT_CHARS "\t\tfi\n"> <LIT_CHARS "\tdone\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "packed obs in alternate ODB kept pack are repacked">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# swap the .keep so the commit object is in the pack with .keep\n"> <LIT_CHARS "\tfor p in alt_objects/pack/*.pack\n"> <LIT_CHARS "\tdo\n"> <LIT_CHARS "\t\tbase_name=$(basename $p .pack) &&\n"> <LIT_CHARS "\t\tif test -f alt_objects/pack/$base_name.keep\n"> <LIT_CHARS "\t\tthen\n"> <LIT_CHARS "\t\t\trm alt_objects/pack/$base_name.keep\n"> <LIT_CHARS "\t\telse\n"> <LIT_CHARS "\t\t\ttouch alt_objects/pack/$base_name.keep\n"> <LIT_CHARS "\t\tfi\n"> <LIT_CHARS "\tdone &&\n"> <LIT_CHARS "\tgit repack -a -d &&\n"> <LIT_CHARS "\tmyidx=$(ls -1 .git/objects/pack/*.idx) &&\n"> <LIT_CHARS "\ttest -f \"$myidx\" &&\n"> <LIT_CHARS "\tfor p in alt_objects/pack/*.idx; do\n"> <LIT_CHARS "\t\tgit verify-pack -v $p | sed -n -e \"/^[0-9a-f]\\{40\\}/p\"\n"> <LIT_CHARS "\tdone | while read sha1 rest; do\n"> <LIT_CHARS "\t\tif ! ( git verify-pack -v $myidx | grep \"^$sha1\" ); then\n"> <LIT_CHARS "\t\t\techo \"Missing object in local pack: $sha1\"\n"> <LIT_CHARS "\t\t\treturn 1\n"> <LIT_CHARS "\t\tfi\n"> <LIT_CHARS "\tdone\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "packed unreachable obs in alternate ODB are not loosened">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -f alt_objects/pack/*.keep &&\n"> <LIT_CHARS "\tmv .git/objects/pack/* alt_objects/pack/ &&\n"> <LIT_CHARS "\tcsha1=$(git rev-parse HEAD^{commit}) &&\n"> <LIT_CHARS "\tgit reset --hard HEAD^ &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit reflog expire --expire=$test_tick --expire-unreachable=$test_tick --all &&\n"> <LIT_CHARS "\t# The pack-objects call on the next line is equivalent to\n"> <LIT_CHARS "\t# git repack -A -d without the call to prune-packed\n"> <LIT_CHARS "\tgit pack-objects --honor-pack-keep --non-empty --all --reflog \\\n"> <LIT_CHARS "\t    --unpack-unreachable </dev/null pack &&\n"> <LIT_CHARS "\trm -f .git/objects/pack/* &&\n"> <LIT_CHARS "\tmv pack-* .git/objects/pack/ &&\n"> <LIT_CHARS "\ttest 0 = $(git verify-pack -v -- .git/objects/pack/*.idx |\n"> <LIT_CHARS "\t\tegrep \"^$csha1 \" | sort | uniq | wc -l) &&\n"> <LIT_CHARS "\techo > .git/objects/info/alternates &&\n"> <LIT_CHARS "\ttest_must_fail git show $csha1\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "local packed unreachable obs that exist in alternate ODB are not loosened">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo `pwd`/alt_objects > .git/objects/info/alternates &&\n"> <LIT_CHARS "\techo \"$csha1\" | git pack-objects --non-empty --all --reflog pack &&\n"> <LIT_CHARS "\trm -f .git/objects/pack/* &&\n"> <LIT_CHARS "\tmv pack-* .git/objects/pack/ &&\n"> <LIT_CHARS "\t# The pack-objects call on the next line is equivalent to\n"> <LIT_CHARS "\t# git repack -A -d without the call to prune-packed\n"> <LIT_CHARS "\tgit pack-objects --honor-pack-keep --non-empty --all --reflog \\\n"> <LIT_CHARS "\t    --unpack-unreachable </dev/null pack &&\n"> <LIT_CHARS "\trm -f .git/objects/pack/* &&\n"> <LIT_CHARS "\tmv pack-* .git/objects/pack/ &&\n"> <LIT_CHARS "\ttest 0 = $(git verify-pack -v -- .git/objects/pack/*.idx |\n"> <LIT_CHARS "\t\tegrep \"^$csha1 \" | sort | uniq | wc -l) &&\n"> <LIT_CHARS "\techo > .git/objects/info/alternates &&\n"> <LIT_CHARS "\ttest_must_fail git show $csha1\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "objects made unreachable by grafts only are kept">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit --allow-empty -m \"commit 4\" &&\n"> <LIT_CHARS "\tH0=$(git rev-parse HEAD) &&\n"> <LIT_CHARS "\tH1=$(git rev-parse HEAD^) &&\n"> <LIT_CHARS "\tH2=$(git rev-parse HEAD^^) &&\n"> <LIT_CHARS "\techo \"$H0 $H2\" > .git/info/grafts &&\n"> <LIT_CHARS "\tgit reflog expire --expire=$test_tick --expire-unreachable=$test_tick --all &&\n"> <LIT_CHARS "\tgit repack -a -d &&\n"> <LIT_CHARS "\tgit cat-file -t $H1\n"> <LIT_CHARS "\t">]}  )
  (Com {[LIT_CHARS test_done]}  )
)