(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <'test cloning a repository with detached HEAD'>)}
          spids: [4]
        )
      ]
      spids: [4]
    )
    (C {(.)} {(./test-lib.sh)})
    (FuncDef
      name: head_is_detached
      body: 
        (BraceGroup
          children: [
            (AndOr
              children: [
                (C {(git)} {(--git-dir) (Lit_Other '=') ($ VSub_Number '$1') (/.git)} {(rev-parse)} 
                  {(--verify)} {(HEAD)}
                )
                (C {(test_must_fail)} {(git)} {(--git-dir) (Lit_Other '=') ($ VSub_Number '$1') (/.git)} 
                  {(symbolic-ref)} {(HEAD)}
                )
              ]
              op_id: Op_DAmp
            )
          ]
          spids: [18]
        )
      spids: [14 17]
    )
    (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)})
  ]
)