#!/bin/sh

global test_description := ''test cloning a repository with detached HEAD''
source ./test-lib.sh

proc head_is_detached {
	git --git-dir=$1/.git rev-parse --verify HEAD &&
	test_must_fail git --git-dir=$1/.git symbolic-ref HEAD
}

test_expect_success 'setup' '
	echo one >file &&
	git add file &&
	git commit -m one &&
	echo two >file &&
	git commit -a -m two &&
	git tag two &&
	echo three >file &&
	git commit -a -m three
'

test_expect_success 'clone repo (detached HEAD points to branch)' '
	git checkout master^0 &&
	git clone "file://$PWD" detached-branch
'
test_expect_success 'cloned HEAD matches' '
	echo three >expect &&
	git --git-dir=detached-branch/.git log -1 --format=%s >actual &&
	test_cmp expect actual
'
test_expect_failure 'cloned HEAD is detached' '
	head_is_detached detached-branch
'

test_expect_success 'clone repo (detached HEAD points to tag)' '
	git checkout two^0 &&
	git clone "file://$PWD" detached-tag
'
test_expect_success 'cloned HEAD matches' '
	echo two >expect &&
	git --git-dir=detached-tag/.git log -1 --format=%s >actual &&
	test_cmp expect actual
'
test_expect_success 'cloned HEAD is detached' '
	head_is_detached detached-tag
'

test_expect_success 'clone repo (detached HEAD points to history)' '
	git checkout two^ &&
	git clone "file://$PWD" detached-history
'
test_expect_success 'cloned HEAD matches' '
	echo one >expect &&
	git --git-dir=detached-history/.git log -1 --format=%s >actual &&
	test_cmp expect actual
'
test_expect_success 'cloned HEAD is detached' '
	head_is_detached detached-history
'

test_expect_success 'clone repo (orphan detached HEAD)' '
	git checkout master^0 &&
	echo four >file &&
	git commit -a -m four &&
	git clone "file://$PWD" detached-orphan
'
test_expect_success 'cloned HEAD matches' '
	echo four >expect &&
	git --git-dir=detached-orphan/.git log -1 --format=%s >actual &&
	test_cmp expect actual
'
test_expect_success 'cloned HEAD is detached' '
	head_is_detached detached-orphan
'

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