#!/bin/sh

global test_description := ''check problems with relative GIT_DIR

This test creates a working tree state with a file and subdir:

  top (committed several times)
  subdir (a subdirectory)

It creates a commit-hook and tests it, then moves .git
into the subdir while keeping the worktree location,
and tries commits from the top and the subdir, checking
that the commit-hook still gets called.''

source ./test-lib.sh

global COMMIT_FILE := ""$[pwd]/output""
export COMMIT_FILE

test_expect_success 'Setting up post-commit hook' '
mkdir -p .git/hooks &&
echo >.git/hooks/post-commit "#!/bin/sh
touch \"\${COMMIT_FILE}\"
echo Post commit hook was called." &&
chmod +x .git/hooks/post-commit'

test_expect_success 'post-commit hook used ordinarily' '
echo initial >top &&
git add top &&
git commit -m initial &&
test -r "${COMMIT_FILE}"
'

rm -rf $(COMMIT_FILE)
mkdir subdir
mv .git subdir

test_expect_success 'post-commit-hook created and used from top dir' '
echo changed >top &&
git --git-dir subdir/.git add top &&
git --git-dir subdir/.git commit -m topcommit &&
test -r "${COMMIT_FILE}"
'

rm -rf $(COMMIT_FILE)

test_expect_success 'post-commit-hook from sub dir' '
echo changed again >top &&
cd subdir &&
git --git-dir .git --work-tree .. add ../top &&
git --git-dir .git --work-tree .. commit -m subcommit &&
test -r "${COMMIT_FILE}"
'

test_done
(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: 
            {
              (SQ <"check problems with relative GIT_DIR\n"> <"\n"> 
                <"This test creates a working tree state with a file and subdir:\n"> <"\n"> <"  top (committed several times)\n"> <"  subdir (a subdirectory)\n"> <"\n"> 
                <"It creates a commit-hook and tests it, then moves .git\n"> <"into the subdir while keeping the worktree location,\n"> 
                <"and tries commits from the top and the subdir, checking\n"> <"that the commit-hook still gets called.">
              )
            }
          spids: [4]
        )
      ]
      spids: [4]
    )
    (C {(.)} {(./test-lib.sh)})
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:COMMIT_FILE)
          op: Equal
          rhs: 
            {
              (DQ 
                (CommandSubPart
                  command_list: (CommandList children:[(C {(pwd)})])
                  left_token: <Left_CommandSub "$(">
                  spids: [27 29]
                ) (/output)
              )
            }
          spids: [25]
        )
      ]
      spids: [25]
    )
    (C {(export)} {(COMMIT_FILE)})
    (C {(test_expect_success)} {(SQ <"Setting up post-commit hook">)} 
      {
        (SQ <"\n"> <"mkdir -p .git/hooks &&\n"> <"echo >.git/hooks/post-commit \"#!/bin/sh\n"> 
          <"touch \\\"\\${COMMIT_FILE}\\\"\n"> <"echo Post commit hook was called.\" &&\n"> <"chmod +x .git/hooks/post-commit">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"post-commit hook used ordinarily">)} 
      {
        (SQ <"\n"> <"echo initial >top &&\n"> <"git add top &&\n"> <"git commit -m initial &&\n"> 
          <"test -r \"${COMMIT_FILE}\"\n">
        )
      }
    )
    (C {(rm)} {(-rf)} {(DQ (${ VSub_Name COMMIT_FILE))})
    (C {(mkdir)} {(subdir)})
    (C {(mv)} {(.git)} {(subdir)})
    (C {(test_expect_success)} {(SQ <"post-commit-hook created and used from top dir">)} 
      {
        (SQ <"\n"> <"echo changed >top &&\n"> <"git --git-dir subdir/.git add top &&\n"> 
          <"git --git-dir subdir/.git commit -m topcommit &&\n"> <"test -r \"${COMMIT_FILE}\"\n">
        )
      }
    )
    (C {(rm)} {(-rf)} {(DQ (${ VSub_Name COMMIT_FILE))})
    (C {(test_expect_success)} {(SQ <"post-commit-hook from sub dir">)} 
      {
        (SQ <"\n"> <"echo changed again >top &&\n"> <"cd subdir &&\n"> 
          <"git --git-dir .git --work-tree .. add ../top &&\n"> <"git --git-dir .git --work-tree .. commit -m subcommit &&\n"> <"test -r \"${COMMIT_FILE}\"\n">
        )
      }
    )
    (C {(test_done)})
  ]
)