(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)})
  ]
)