(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "\n"> <LIT_CHARS "Test pruning of repositories with minor corruptions. The goal\n"> <LIT_CHARS "here is that we should always be erring on the side of safety. So\n"> <LIT_CHARS "if we see, for example, a ref with a bogus name, it is OK either to\n"> <LIT_CHARS "bail out or to proceed using it as a reachable tip, but it is _not_\n"> <LIT_CHARS "OK to proceed as if it did not exist. Otherwise we might silently\n"> <LIT_CHARS "delete objects that cannot be recovered.\n">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "disable reflogs">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit config core.logallrefupdates false &&\n"> <LIT_CHARS "\tgit reflog expire --expire=all --all\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "create history reachable only from a bogus-named ref">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_tick && git commit --allow-empty -m master &&\n"> <LIT_CHARS "\tbase=$(git rev-parse HEAD) &&\n"> <LIT_CHARS "\ttest_tick && git commit --allow-empty -m bogus &&\n"> <LIT_CHARS "\tbogus=$(git rev-parse HEAD) &&\n"> <LIT_CHARS "\tgit cat-file commit $bogus >saved &&\n"> <LIT_CHARS "\techo $bogus >.git/refs/heads/bogus..name &&\n"> <LIT_CHARS "\tgit reset --hard HEAD^\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pruning does not drop bogus object">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished \"git hash-object -w -t commit saved\" &&\n"> <LIT_CHARS "\ttest_might_fail git prune --expire=now &&\n"> <LIT_CHARS "\tverbose git cat-file -e $bogus\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "put bogus object into pack">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit tag reachable $bogus &&\n"> <LIT_CHARS "\tgit repack -ad &&\n"> <LIT_CHARS "\tgit tag -d reachable &&\n"> <LIT_CHARS "\tverbose git cat-file -e $bogus\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "destructive repack keeps packed object">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_might_fail git repack -Ad --unpack-unreachable=now &&\n"> <LIT_CHARS "\tverbose git cat-file -e $bogus &&\n"> <LIT_CHARS "\ttest_might_fail git repack -ad &&\n"> <LIT_CHARS "\tverbose git cat-file -e $bogus\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "clean up bogus ref">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm .git/refs/heads/bogus..name\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "create history with missing tip commit">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_tick && git commit --allow-empty -m one &&\n"> <LIT_CHARS "\trecoverable=$(git rev-parse HEAD) &&\n"> <LIT_CHARS "\tgit cat-file commit $recoverable >saved &&\n"> <LIT_CHARS "\ttest_tick && git commit --allow-empty -m two &&\n"> <LIT_CHARS "\tmissing=$(git rev-parse HEAD) &&\n"> <LIT_CHARS "\tgit checkout --detach $base &&\n"> <LIT_CHARS "\trm .git/objects/$(echo $missing | sed \"s,..,&/,\") &&\n"> <LIT_CHARS "\ttest_must_fail git cat-file -e $missing\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pruning with a corrupted tip does not drop history">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished \"git hash-object -w -t commit saved\" &&\n"> <LIT_CHARS "\ttest_might_fail git prune --expire=now &&\n"> <LIT_CHARS "\tverbose git cat-file -e $recoverable\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pack-refs does not silently delete broken loose ref">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit pack-refs --all --prune &&\n"> <LIT_CHARS "\techo $missing >expect &&\n"> <LIT_CHARS "\tgit rev-parse refs/heads/master >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "create packed-refs file with broken ref">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -f .git/refs/heads/master &&\n"> <LIT_CHARS "\tcat >.git/packed-refs <<-EOF &&\n"> <LIT_CHARS "\t$missing refs/heads/master\n"> <LIT_CHARS "\t$recoverable refs/heads/other\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\techo $missing >expect &&\n"> <LIT_CHARS "\tgit rev-parse refs/heads/master >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pack-refs does not silently delete broken packed ref">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit pack-refs --all --prune &&\n"> <LIT_CHARS "\tgit rev-parse refs/heads/master >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pack-refs does not drop broken refs during deletion">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit update-ref -d refs/heads/other &&\n"> <LIT_CHARS "\tgit rev-parse refs/heads/master >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_done]})
)