oil AST

(command.CommandList
  children: [
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name name:test_description)
          op: assign_op.Equal
          rhs: {(SQ <'test various @{X} syntax combinations together'>)}
          spids: [4]
        )
      ]
    )
    (C {<.>} {<./test-lib.sh>})
    (command.ShFunction
      name: check
      body: 
        (command.BraceGroup
          children: [
            (C 
              {<test_expect_> 
                (braced_var_sub
                  token: <Id.VSub_Number 4>
                  suffix_op: (suffix_op.Unary op_id:Id.VTest_ColonHyphen arg_word:{<success>})
                )
              } {(DQ ($ Id.VSub_Number '$1') <' = '> ($ Id.VSub_Number '$3'))} 
              {
                (DQ <'\n'> <"\t\techo '"> ($ Id.VSub_Number '$3') <"' >expect &&\n"> <"\t\tif test '"> 
                  ($ Id.VSub_Number '$2') <"' = 'commit'\n"> <'\t\tthen\n'> <"\t\t\tgit log -1 --format=%s '"> ($ Id.VSub_Number '$1') 
                  <"' >actual\n"> <"\t\telif test '"> ($ Id.VSub_Number '$2') <"' = 'ref'\n"> <'\t\tthen\n'> 
                  <"\t\t\tgit rev-parse --symbolic-full-name '"> ($ Id.VSub_Number '$1') <"' >actual\n"> <'\t\telse\n'> <"\t\t\tgit cat-file -p '"> 
                  ($ Id.VSub_Number '$1') <"' >actual\n"> <'\t\tfi &&\n'> <'\t\ttest_cmp expect actual\n'> <'\t'>
                )
              }
            )
          ]
        )
    )
    (command.ShFunction
      name: nonsense
      body: 
        (command.BraceGroup
          children: [
            (C 
              {<test_expect_> 
                (braced_var_sub
                  token: <Id.VSub_Number 2>
                  suffix_op: (suffix_op.Unary op_id:Id.VTest_ColonHyphen arg_word:{<success>})
                )
              } {(DQ ($ Id.VSub_Number '$1') <' is nonsensical'>)} 
              {
                (DQ <'\n'> <"\t\ttest_must_fail git rev-parse --verify '"> ($ Id.VSub_Number '$1') 
                  <"'\n"> <'\t'>
                )
              }
            )
          ]
        )
    )
    (command.ShFunction
      name: fail
      body: (command.BraceGroup children:[(C {(DQ ($ Id.VSub_At '$@'))} {<failure>})])
    )
    (C {<test_expect_success>} {(SQ <setup>)} 
      {
        (SQ <'\n'> <'\ttest_commit master-one &&\n'> <'\ttest_commit master-two &&\n'> 
          <'\tgit checkout -b upstream-branch &&\n'> <'\ttest_commit upstream-one &&\n'> <'\ttest_commit upstream-two &&\n'> 
          <'\tif test_have_prereq !MINGW\n'> <'\tthen\n'> <'\t\tgit checkout -b @/at-test\n'> <'\tfi &&\n'> <'\tgit checkout -b @@/at-test &&\n'> 
          <'\tgit checkout -b @at-test &&\n'> <'\tgit checkout -b old-branch &&\n'> <'\ttest_commit old-one &&\n'> <'\ttest_commit old-two &&\n'> 
          <'\tgit checkout -b new-branch &&\n'> <'\ttest_commit new-one &&\n'> <'\ttest_commit new-two &&\n'> 
          <'\tgit branch -u master old-branch &&\n'> <'\tgit branch -u upstream-branch new-branch\n'>
        )
      }
    )
    (C {<check>} {<HEAD>} {<ref>} {<refs/heads/new-branch>})
    (C {<check>} {(DQ <'@{1}'>)} {<commit>} {<new-one>})
    (C {<check>} {(DQ <'HEAD@{1}'>)} {<commit>} {<new-one>})
    (C {<check>} {(DQ <'@{now}'>)} {<commit>} {<new-two>})
    (C {<check>} {(DQ <'HEAD@{now}'>)} {<commit>} {<new-two>})
    (C {<check>} {(DQ <'@{-1}'>)} {<ref>} {<refs/heads/old-branch>})
    (C {<check>} {(DQ <'@{-1}@{0}'>)} {<commit>} {<old-two>})
    (C {<check>} {(DQ <'@{-1}@{1}'>)} {<commit>} {<old-one>})
    (C {<check>} {(DQ <'@{u}'>)} {<ref>} {<refs/heads/upstream-branch>})
    (C {<check>} {(DQ <'HEAD@{u}'>)} {<ref>} {<refs/heads/upstream-branch>})
    (C {<check>} {(DQ <'@{u}@{1}'>)} {<commit>} {<upstream-one>})
    (C {<check>} {(DQ <'@{-1}@{u}'>)} {<ref>} {<refs/heads/master>})
    (C {<check>} {(DQ <'@{-1}@{u}@{1}'>)} {<commit>} {<master-one>})
    (C {<check>} {(DQ <'@'>)} {<commit>} {<new-two>})
    (C {<check>} {(DQ <'@@{u}'>)} {<ref>} {<refs/heads/upstream-branch>})
    (C {<check>} {(DQ <'@@/at-test'>)} {<ref>} 
      {<refs/heads/> <Id.Lit_Other '@'> <Id.Lit_Other '@'> </at-test>}
    )
    (command.AndOr
      ops: [Id.Op_DPipe]
      children: [
        (C {<test_have_prereq>} {<MINGW>})
        (C {<check>} {(DQ <'@/at-test'>)} {<ref>} {<refs/heads/> <Id.Lit_Other '@'> </at-test>})
      ]
    )
    (C {<check>} {(DQ <'@at-test'>)} {<ref>} {<refs/heads/> <Id.Lit_Splice '@at'> <-test>})
    (C {<nonsense>} {(DQ <'@{u}@{-1}'>)})
    (C {<nonsense>} {(DQ <'@{0}@{0}'>)})
    (C {<nonsense>} {(DQ <'@{1}@{u}'>)})
    (C {<nonsense>} {(DQ <'HEAD@{-1}'>)})
    (C {<nonsense>} {(DQ <'@{-1}@{-1}'>)})
    (C {<check>} {(DQ <'HEAD@{3}'>)} {<commit>} {<old-two>})
    (C {<nonsense>} {(DQ <'@{3}'>)})
    (C {<test_expect_success>} {(SQ <'switch to old-branch'>)} 
      {(SQ <'\n'> <'\tgit checkout old-branch\n'>)}
    )
    (C {<check>} {<HEAD>} {<ref>} {<refs/heads/old-branch>})
    (C {<check>} {(DQ <'HEAD@{1}'>)} {<commit>} {<new-two>})
    (C {<check>} {(DQ <'@{1}'>)} {<commit>} {<old-one>})
    (C {<test_expect_success>} {(SQ <'create path with @'>)} 
      {
        (SQ <'\n'> <'\techo content >normal &&\n'> <'\techo content >fun@ny &&\n'> 
          <'\tgit add normal fun@ny &&\n'> <'\tgit commit -m "funny path"\n'>
        )
      }
    )
    (C {<check>} {(DQ <'@:normal'>)} {<blob>} {<content>})
    (C {<check>} {(DQ <'@:fun@ny'>)} {<blob>} {<content>})
    (C {<test_done>})
  ]
)