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 cloning a repository with detached HEAD'>)}
          spids: [4]
        )
      ]
    )
    (C {<.>} {<'./test-lib.sh'>})
    (command.ShFunction
      name: head_is_detached
      body: 
        (BraceGroup
          children: [
            (command.AndOr
              ops: [Id.Op_DAmp]
              children: [
                (C {<git>} {<--git-dir> <Id.Lit_Equals '='> ($ Id.VSub_Number '$1') <'/.git'>} 
                  {<rev-parse>} {<--verify>} {<HEAD>}
                )
                (C {<test_must_fail>} {<git>} 
                  {<--git-dir> <Id.Lit_Equals '='> ($ Id.VSub_Number '$1') <'/.git'>} {<symbolic-ref>} {<HEAD>}
                )
              ]
            )
          ]
        )
    )
    (C {<test_expect_success>} {(SQ <setup>)} 
      {
        (SQ <'\n'> <'\techo one >file &&\n'> <'\tgit add file &&\n'> <'\tgit commit -m one &&\n'> 
          <'\techo two >file &&\n'> <'\tgit commit -a -m two &&\n'> <'\tgit tag two &&\n'> <'\techo three >file &&\n'> 
          <'\tgit commit -a -m three\n'>
        )
      }
    )
    (C {<test_expect_success>} {(SQ <'clone repo (detached HEAD points to branch)'>)} 
      {(SQ <'\n'> <'\tgit checkout master^0 &&\n'> <'\tgit clone "file://$PWD" detached-branch\n'>)}
    )
    (C {<test_expect_success>} {(SQ <'cloned HEAD matches'>)} 
      {
        (SQ <'\n'> <'\techo three >expect &&\n'> 
          <'\tgit --git-dir=detached-branch/.git log -1 --format=%s >actual &&\n'> <'\ttest_cmp expect actual\n'>
        )
      }
    )
    (C {<test_expect_failure>} {(SQ <'cloned HEAD is detached'>)} 
      {(SQ <'\n'> <'\thead_is_detached detached-branch\n'>)}
    )
    (C {<test_expect_success>} {(SQ <'clone repo (detached HEAD points to tag)'>)} 
      {(SQ <'\n'> <'\tgit checkout two^0 &&\n'> <'\tgit clone "file://$PWD" detached-tag\n'>)}
    )
    (C {<test_expect_success>} {(SQ <'cloned HEAD matches'>)} 
      {
        (SQ <'\n'> <'\techo two >expect &&\n'> 
          <'\tgit --git-dir=detached-tag/.git log -1 --format=%s >actual &&\n'> <'\ttest_cmp expect actual\n'>
        )
      }
    )
    (C {<test_expect_success>} {(SQ <'cloned HEAD is detached'>)} 
      {(SQ <'\n'> <'\thead_is_detached detached-tag\n'>)}
    )
    (C {<test_expect_success>} {(SQ <'clone repo (detached HEAD points to history)'>)} 
      {(SQ <'\n'> <'\tgit checkout two^ &&\n'> <'\tgit clone "file://$PWD" detached-history\n'>)}
    )
    (C {<test_expect_success>} {(SQ <'cloned HEAD matches'>)} 
      {
        (SQ <'\n'> <'\techo one >expect &&\n'> 
          <'\tgit --git-dir=detached-history/.git log -1 --format=%s >actual &&\n'> <'\ttest_cmp expect actual\n'>
        )
      }
    )
    (C {<test_expect_success>} {(SQ <'cloned HEAD is detached'>)} 
      {(SQ <'\n'> <'\thead_is_detached detached-history\n'>)}
    )
    (C {<test_expect_success>} {(SQ <'clone repo (orphan detached HEAD)'>)} 
      {
        (SQ <'\n'> <'\tgit checkout master^0 &&\n'> <'\techo four >file &&\n'> 
          <'\tgit commit -a -m four &&\n'> <'\tgit clone "file://$PWD" detached-orphan\n'>
        )
      }
    )
    (C {<test_expect_success>} {(SQ <'cloned HEAD matches'>)} 
      {
        (SQ <'\n'> <'\techo four >expect &&\n'> 
          <'\tgit --git-dir=detached-orphan/.git log -1 --format=%s >actual &&\n'> <'\ttest_cmp expect actual\n'>
        )
      }
    )
    (C {<test_expect_success>} {(SQ <'cloned HEAD is detached'>)} 
      {(SQ <'\n'> <'\thead_is_detached detached-orphan\n'>)}
    )
    (C {<test_done>})
  ]
)