(command.CommandList
  children: [
    (command.Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (lhs_expr.LhsName name:test_description spids:[12])
          op: Equal
          rhs: {(SQ <'tests for the peel_ref optimization of packed-refs'>)}
          spids: [12]
        )
      ]
      spids: [12]
    )
    (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'>)}
    )
    (command.FuncDef
      name: print_ref
      body: 
        (command.BraceGroup
          children: [
            (C {(echo)} 
              {
                (DQ 
                  (word_part.CommandSubPart
                    command_list: 
                      (command.CommandList
                        children: [(C {(git)} {(rev-parse)} {(DQ ($ VSub_Number '$1'))})]
                      )
                    left_token: <Left_CommandSub '$('>
                    spids: [60 68]
                  ) (' ') ($ VSub_Number '$1')
                )
              }
            )
          ]
          spids: [54]
        )
      spids: [50 53]
    )
    (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)})
  ]
)