(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]})
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('fsha1', {[SQ ]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('csha1', {[SQ ]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('tsha1', {[SQ ]})])
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "-A with -d option leaves unreachable objects unpacked">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo content > file1 &&\n"> <LIT_CHARS "\tgit add . &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -m initial_commit &&\n"> <LIT_CHARS "\t# create a transient branch with unique content\n"> <LIT_CHARS "\tgit checkout -b transient_branch &&\n"> <LIT_CHARS "\techo more content >> file1 &&\n"> <LIT_CHARS "\t# record the objects created in the database for file, commit, tree\n"> <LIT_CHARS "\tfsha1=$(git hash-object file1) &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -a -m more_content &&\n"> <LIT_CHARS "\tcsha1=$(git rev-parse HEAD^{commit}) &&\n"> <LIT_CHARS "\ttsha1=$(git rev-parse HEAD^{tree}) &&\n"> <LIT_CHARS "\tgit checkout master &&\n"> <LIT_CHARS "\techo even more content >> file1 &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -a -m even_more_content &&\n"> <LIT_CHARS "\t# delete the transient branch\n"> <LIT_CHARS "\tgit branch -D transient_branch &&\n"> <LIT_CHARS "\t# pack the repo\n"> <LIT_CHARS "\tgit repack -A -d -l &&\n"> <LIT_CHARS "\t# verify objects are packed in repository\n"> <LIT_CHARS "\ttest 3 = $(git verify-pack -v -- .git/objects/pack/*.idx |\n"> <LIT_CHARS "\t\t   egrep \"^($fsha1|$csha1|$tsha1) \" |\n"> <LIT_CHARS "\t\t   sort | uniq | wc -l) &&\n"> <LIT_CHARS "\tgit show $fsha1 &&\n"> <LIT_CHARS "\tgit show $csha1 &&\n"> <LIT_CHARS "\tgit show $tsha1 &&\n"> <LIT_CHARS "\t# now expire the reflog, while keeping reachable ones but expiring\n"> <LIT_CHARS "\t# unreachables immediately\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tsometimeago=$(( $test_tick - 10000 )) &&\n"> <LIT_CHARS "\tgit reflog expire --expire=$sometimeago --expire-unreachable=$test_tick --all &&\n"> <LIT_CHARS "\t# and repack\n"> <LIT_CHARS "\tgit repack -A -d -l &&\n"> <LIT_CHARS "\t# verify objects are retained unpacked\n"> <LIT_CHARS "\ttest 0 = $(git verify-pack -v -- .git/objects/pack/*.idx |\n"> <LIT_CHARS "\t\t   egrep \"^($fsha1|$csha1|$tsha1) \" |\n"> <LIT_CHARS "\t\t   sort | uniq | wc -l) &&\n"> <LIT_CHARS "\tgit show $fsha1 &&\n"> <LIT_CHARS "\tgit show $csha1 &&\n"> <LIT_CHARS "\tgit show $tsha1\n">]})
  (FunctionDef compare_mtimes []
    (AndOr OP_AND_IF
      (Com {[LIT_CHARS read]} {[LIT_CHARS tref]} {[LIT_CHARS rest]})
      (While
        (Com {[LIT_CHARS read]} {[LIT_CHARS t]} {[LIT_CHARS rest]})
        (AndOr OP_OR_IF
          (Com {[LIT_CHARS test]} {[DQ [VarSub tref]]} {[LIT_OTHER "="]} {[DQ [VarSub t]]})
          (Com {[LIT_CHARS return]} {[LIT_CHARS 1]})
        )
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "-A without -d option leaves unreachable objects packed">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tfsha1path=$(echo \"$fsha1\" | sed -e \"s|\\(..\\)|\\1/|\") &&\n"> <LIT_CHARS "\tfsha1path=\".git/objects/$fsha1path\" &&\n"> <LIT_CHARS "\tcsha1path=$(echo \"$csha1\" | sed -e \"s|\\(..\\)|\\1/|\") &&\n"> <LIT_CHARS "\tcsha1path=\".git/objects/$csha1path\" &&\n"> <LIT_CHARS "\ttsha1path=$(echo \"$tsha1\" | sed -e \"s|\\(..\\)|\\1/|\") &&\n"> <LIT_CHARS "\ttsha1path=\".git/objects/$tsha1path\" &&\n"> <LIT_CHARS "\tgit branch transient_branch $csha1 &&\n"> <LIT_CHARS "\tgit repack -a -d -l &&\n"> <LIT_CHARS "\ttest ! -f \"$fsha1path\" &&\n"> <LIT_CHARS "\ttest ! -f \"$csha1path\" &&\n"> <LIT_CHARS "\ttest ! -f \"$tsha1path\" &&\n"> <LIT_CHARS "\ttest 1 = $(ls -1 .git/objects/pack/pack-*.pack | wc -l) &&\n"> <LIT_CHARS "\tpackfile=$(ls .git/objects/pack/pack-*.pack) &&\n"> <LIT_CHARS "\tgit branch -D transient_branch &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit repack -A -l &&\n"> <LIT_CHARS "\ttest ! -f \"$fsha1path\" &&\n"> <LIT_CHARS "\ttest ! -f \"$csha1path\" &&\n"> <LIT_CHARS "\ttest ! -f \"$tsha1path\" &&\n"> <LIT_CHARS "\tgit show $fsha1 &&\n"> <LIT_CHARS "\tgit show $csha1 &&\n"> <LIT_CHARS "\tgit show $tsha1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "unpacked objects receive timestamp of pack file">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttmppack=\".git/objects/pack/tmp_pack\" &&\n"> <LIT_CHARS "\tln \"$packfile\" \"$tmppack\" &&\n"> <LIT_CHARS "\tgit repack -A -l -d &&\n"> <LIT_CHARS "\ttest-chmtime -v +0 \"$tmppack\" \"$fsha1path\" \"$csha1path\" \"$tsha1path\" \\\n"> <LIT_CHARS "\t\t> mtimes &&\n"> <LIT_CHARS "\tcompare_mtimes < mtimes\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "do not bother loosening old objects">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tobj1=$(echo one | git hash-object -w --stdin) &&\n"> <LIT_CHARS "\tobj2=$(echo two | git hash-object -w --stdin) &&\n"> <LIT_CHARS "\tpack1=$(echo $obj1 | git pack-objects .git/objects/pack/pack) &&\n"> <LIT_CHARS "\tpack2=$(echo $obj2 | git pack-objects .git/objects/pack/pack) &&\n"> <LIT_CHARS "\tgit prune-packed &&\n"> <LIT_CHARS "\tgit cat-file -p $obj1 &&\n"> <LIT_CHARS "\tgit cat-file -p $obj2 &&\n"> <LIT_CHARS "\ttest-chmtime =-86400 .git/objects/pack/pack-$pack2.pack &&\n"> <LIT_CHARS "\tgit repack -A -d --unpack-unreachable=1.hour.ago &&\n"> <LIT_CHARS "\tgit cat-file -p $obj1 &&\n"> <LIT_CHARS "\ttest_must_fail git cat-file -p $obj2\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "keep packed objects found only in index">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo my-unique-content >file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\tgit commit -m \"make it reachable\" &&\n"> <LIT_CHARS "\tgit gc &&\n"> <LIT_CHARS "\tgit reset HEAD^ &&\n"> <LIT_CHARS "\tgit reflog expire --expire=now --all &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\ttest-chmtime =-86400 .git/objects/pack/* &&\n"> <LIT_CHARS "\tgit gc --prune=1.hour.ago &&\n"> <LIT_CHARS "\tgit cat-file blob :file\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "repack -k keeps unreachable packed objects">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# create packed-but-unreachable object\n"> <LIT_CHARS "\tsha1=$(echo unreachable-packed | git hash-object -w --stdin) &&\n"> <LIT_CHARS "\tpack=$(echo $sha1 | git pack-objects .git/objects/pack/pack) &&\n"> <LIT_CHARS "\tgit prune-packed &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# -k should keep it\n"> <LIT_CHARS "\tgit repack -adk &&\n"> <LIT_CHARS "\tgit cat-file -p $sha1 &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# and double check that without -k it would have been removed\n"> <LIT_CHARS "\tgit repack -ad &&\n"> <LIT_CHARS "\ttest_must_fail git cat-file -p $sha1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "repack -k packs unreachable loose objects">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# create loose unreachable object\n"> <LIT_CHARS "\tsha1=$(echo would-be-deleted-loose | git hash-object -w --stdin) &&\n"> <LIT_CHARS "\tobjpath=.git/objects/$(echo $sha1 | sed \"s,..,&/,\") &&\n"> <LIT_CHARS "\ttest_path_is_file $objpath &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# and confirm that the loose object goes away, but we can\n"> <LIT_CHARS "\t# still access it (ergo, it is packed)\n"> <LIT_CHARS "\tgit repack -adk &&\n"> <LIT_CHARS "\ttest_path_is_missing $objpath &&\n"> <LIT_CHARS "\tgit cat-file -p $sha1\n">]})
  (Com {[LIT_CHARS test_done]})
)