(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <'tests for the peel_ref optimization of packed-refs'>)}
          spids: [4]
        )
      ]
      spids: [4]
    )
    (C {(.)} {(./test-lib.sh)})
    (C {(test_expect_success)} {(SQ <'create annotated tag in refs/tags'>)} 
      {(SQ <'\n'> <'\ttest_commit base &&\n'> <'\tgit tag -m annotated foo\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'create annotated tag outside of refs/tags'>)} 
      {(SQ <'\n'> <'\tgit update-ref refs/outside/foo refs/tags/foo\n'>)}
    )
    (FuncDef
      name: print_ref
      body: 
        (BraceGroup
          children: [
            (C {(echo)} 
              {
                (DQ 
                  (CommandSubPart
                    command_list: 
                      (CommandList
                        children: [(C {(git)} {(rev-parse)} {(DQ ($ VSub_Number '$1'))})]
                      )
                    left_token: <Left_CommandSub '$('>
                    spids: [52 60]
                  ) (' ') ($ VSub_Number '$1')
                )
              }
            )
          ]
          spids: [46]
        )
      spids: [42 45]
    )
    (C {(test_expect_success)} {(SQ <'set up expected show-ref output'>)} 
      {
        (SQ <'\n'> <'\t{\n'> <'\t\tprint_ref "refs/heads/master" &&\n'> 
          <'\t\tprint_ref "refs/outside/foo" &&\n'> <'\t\tprint_ref "refs/outside/foo^{}" &&\n'> <'\t\tprint_ref "refs/tags/base" &&\n'> 
          <'\t\tprint_ref "refs/tags/foo" &&\n'> <'\t\tprint_ref "refs/tags/foo^{}"\n'> <'\t} >expect\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'refs are peeled outside of refs/tags (loose)'>)} 
      {(SQ <'\n'> <'\tgit show-ref -d >actual &&\n'> <'\ttest_cmp expect actual\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'refs are peeled outside of refs/tags (packed)'>)} 
      {
        (SQ <'\n'> <'\tgit pack-refs --all &&\n'> <'\tgit show-ref -d >actual &&\n'> 
          <'\ttest_cmp expect actual\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'create old-style pack-refs without fully-peeled'>)} 
      {
        (SQ <'\n'> <'\t# Git no longer writes without fully-peeled, so we just write our own\n'> 
          <'\t# from scratch; we could also munge the existing file to remove the\n'> <'\t# fully-peeled bits, but that seems even more prone to failure,\n'> 
          <'\t# especially if the format ever changes again. At least this way we\n'> <'\t# know we are emulating exactly what an older git would have written.\n'> <'\t{\n'> 
          <'\t\techo "# pack-refs with: peeled " &&\n'> <'\t\tprint_ref "refs/heads/master" &&\n'> <'\t\tprint_ref "refs/outside/foo" &&\n'> 
          <'\t\tprint_ref "refs/tags/base" &&\n'> <'\t\tprint_ref "refs/tags/foo" &&\n'> <'\t\techo "^$(git rev-parse "refs/tags/foo^{}")"\n'> 
          <'\t} >tmp &&\n'> <'\tmv tmp .git/packed-refs\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'refs are peeled outside of refs/tags (old packed)'>)} 
      {(SQ <'\n'> <'\tgit show-ref -d >actual &&\n'> <'\ttest_cmp expect actual\n'>)}
    )
    (C {(test_expect_success)} {(SQ <'peeled refs survive deletion of packed ref'>)} 
      {
        (SQ <'\n'> <'\tgit pack-refs --all &&\n'> <'\tcp .git/packed-refs fully-peeled &&\n'> 
          <'\tgit branch yadda &&\n'> <'\tgit pack-refs --all &&\n'> <'\tgit branch -d yadda &&\n'> 
          <'\ttest_cmp fully-peeled .git/packed-refs\n'>
        )
      }
    )
    (C {(test_done)})
  ]
)