(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "tests for the peel_ref optimization of packed-refs">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "create annotated tag in refs/tags">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_commit base &&\n"> <LIT_CHARS "\tgit tag -m annotated foo\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "create annotated tag outside of refs/tags">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit update-ref refs/outside/foo refs/tags/foo\n">]})
  (FunctionDef print_ref []
    (Com {[LIT_CHARS echo]} {[DQ [ComSub (Com {[LIT_CHARS git]} {[LIT_CHARS rev-parse]} {[DQ [VarSub 1]]})][LIT_CHARS " "][VarSub 1]]})
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "set up expected show-ref output">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t{\n"> <LIT_CHARS "\t\tprint_ref \"refs/heads/master\" &&\n"> <LIT_CHARS "\t\tprint_ref \"refs/outside/foo\" &&\n"> <LIT_CHARS "\t\tprint_ref \"refs/outside/foo^{}\" &&\n"> <LIT_CHARS "\t\tprint_ref \"refs/tags/base\" &&\n"> <LIT_CHARS "\t\tprint_ref \"refs/tags/foo\" &&\n"> <LIT_CHARS "\t\tprint_ref \"refs/tags/foo^{}\"\n"> <LIT_CHARS "\t} >expect\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "refs are peeled outside of refs/tags (loose)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit show-ref -d >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "refs are peeled outside of refs/tags (packed)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit pack-refs --all &&\n"> <LIT_CHARS "\tgit show-ref -d >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "create old-style pack-refs without fully-peeled">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# Git no longer writes without fully-peeled, so we just write our own\n"> <LIT_CHARS "\t# from scratch; we could also munge the existing file to remove the\n"> <LIT_CHARS "\t# fully-peeled bits, but that seems even more prone to failure,\n"> <LIT_CHARS "\t# especially if the format ever changes again. At least this way we\n"> <LIT_CHARS "\t# know we are emulating exactly what an older git would have written.\n"> <LIT_CHARS "\t{\n"> <LIT_CHARS "\t\techo \"# pack-refs with: peeled \" &&\n"> <LIT_CHARS "\t\tprint_ref \"refs/heads/master\" &&\n"> <LIT_CHARS "\t\tprint_ref \"refs/outside/foo\" &&\n"> <LIT_CHARS "\t\tprint_ref \"refs/tags/base\" &&\n"> <LIT_CHARS "\t\tprint_ref \"refs/tags/foo\" &&\n"> <LIT_CHARS "\t\techo \"^$(git rev-parse \"refs/tags/foo^{}\")\"\n"> <LIT_CHARS "\t} >tmp &&\n"> <LIT_CHARS "\tmv tmp .git/packed-refs\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "refs are peeled outside of refs/tags (old packed)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit show-ref -d >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "peeled refs survive deletion of packed ref">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit pack-refs --all &&\n"> <LIT_CHARS "\tcp .git/packed-refs fully-peeled &&\n"> <LIT_CHARS "\tgit branch yadda &&\n"> <LIT_CHARS "\tgit pack-refs --all &&\n"> <LIT_CHARS "\tgit branch -d yadda &&\n"> <LIT_CHARS "\ttest_cmp fully-peeled .git/packed-refs\n">]})
  (Com {[LIT_CHARS test_done]})
)