#!/bin/sh
#
# Copyright (c) 2016 Dan Aloni
# Copyright (c) 2016 Jeff King
#

global test_description := ''per-repo forced setting of email address''

source ./test-lib.sh

test_expect_success 'setup a likely user.useConfigOnly use case' '
	# we want to make sure a reflog is written, since that needs
	# a non-strict ident. So be sure we have an actual commit.
	test_commit foo &&

	sane_unset GIT_AUTHOR_NAME GIT_AUTHOR_EMAIL &&
	sane_unset GIT_COMMITTER_NAME GIT_COMMITTER_EMAIL &&
	git config user.name "test" &&
	git config --global user.useConfigOnly true
'

test_expect_success 'fails committing if clone email is not set' '
	test_must_fail git commit --allow-empty -m msg
'

test_expect_success 'fails committing if clone email is not set, but EMAIL set' '
	test_must_fail env EMAIL=test@fail.com git commit --allow-empty -m msg
'

test_expect_success 'succeeds committing if clone email is set' '
	test_config user.email "test@ok.com" &&
	git commit --allow-empty -m msg
'

test_expect_success 'succeeds cloning if global email is not set' '
	git clone . clone
'

test_expect_success 'set up rebase scenarios' '
	# temporarily enable an actual ident for this setup
	test_config user.email foo@example.com &&
	test_commit new &&
	git branch side-without-commit HEAD^ &&
	git checkout -b side-with-commit HEAD^ &&
	test_commit side
'

test_expect_success 'fast-forward rebase does not care about ident' '
	git checkout -B tmp side-without-commit &&
	git rebase master
'

test_expect_success 'non-fast-forward rebase refuses to write commits' '
	test_when_finished "git rebase --abort || true" &&
	git checkout -B tmp side-with-commit &&
	test_must_fail git rebase master
'

test_expect_success 'fast-forward rebase does not care about ident (interactive)' '
	git checkout -B tmp side-without-commit &&
	git rebase -i master
'

test_expect_success 'non-fast-forward rebase refuses to write commits (interactive)' '
	test_when_finished "git rebase --abort || true" &&
	git checkout -B tmp side-with-commit &&
	test_must_fail git rebase -i master
'

test_expect_success 'noop interactive rebase does not care about ident' '
	git checkout -B tmp side-with-commit &&
	git rebase -i HEAD^
'

test_expect_success 'fast-forward rebase does not care about ident (preserve)' '
	git checkout -B tmp side-without-commit &&
	git rebase -p master
'

test_expect_success 'non-fast-forward rebase refuses to write commits (preserve)' '
	test_when_finished "git rebase --abort || true" &&
	git checkout -B tmp side-with-commit &&
	test_must_fail git rebase -p master
'

test_done
(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <"per-repo forced setting of email address">)}
          spids: [16]
        )
      ]
      spids: [16]
    )
    (C {(.)} {(./test-lib.sh)})
    (C {(test_expect_success)} {(SQ <"setup a likely user.useConfigOnly use case">)} 
      {
        (SQ <"\n"> <"\t# we want to make sure a reflog is written, since that needs\n"> 
          <"\t# a non-strict ident. So be sure we have an actual commit.\n"> <"\ttest_commit foo &&\n"> <"\n"> <"\tsane_unset GIT_AUTHOR_NAME GIT_AUTHOR_EMAIL &&\n"> 
          <"\tsane_unset GIT_COMMITTER_NAME GIT_COMMITTER_EMAIL &&\n"> <"\tgit config user.name \"test\" &&\n"> <"\tgit config --global user.useConfigOnly true\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"fails committing if clone email is not set">)} 
      {(SQ <"\n"> <"\ttest_must_fail git commit --allow-empty -m msg\n">)}
    )
    (C {(test_expect_success)} {(SQ <"fails committing if clone email is not set, but EMAIL set">)} 
      {(SQ <"\n"> <"\ttest_must_fail env EMAIL=test@fail.com git commit --allow-empty -m msg\n">)}
    )
    (C {(test_expect_success)} {(SQ <"succeeds committing if clone email is set">)} 
      {
        (SQ <"\n"> <"\ttest_config user.email \"test@ok.com\" &&\n"> 
          <"\tgit commit --allow-empty -m msg\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"succeeds cloning if global email is not set">)} 
      {(SQ <"\n"> <"\tgit clone . clone\n">)}
    )
    (C {(test_expect_success)} {(SQ <"set up rebase scenarios">)} 
      {
        (SQ <"\n"> <"\t# temporarily enable an actual ident for this setup\n"> 
          <"\ttest_config user.email foo@example.com &&\n"> <"\ttest_commit new &&\n"> <"\tgit branch side-without-commit HEAD^ &&\n"> 
          <"\tgit checkout -b side-with-commit HEAD^ &&\n"> <"\ttest_commit side\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"fast-forward rebase does not care about ident">)} 
      {(SQ <"\n"> <"\tgit checkout -B tmp side-without-commit &&\n"> <"\tgit rebase master\n">)}
    )
    (C {(test_expect_success)} {(SQ <"non-fast-forward rebase refuses to write commits">)} 
      {
        (SQ <"\n"> <"\ttest_when_finished \"git rebase --abort || true\" &&\n"> 
          <"\tgit checkout -B tmp side-with-commit &&\n"> <"\ttest_must_fail git rebase master\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"fast-forward rebase does not care about ident (interactive)">)} 
      {(SQ <"\n"> <"\tgit checkout -B tmp side-without-commit &&\n"> <"\tgit rebase -i master\n">)}
    )
    (C {(test_expect_success)} {(SQ <"non-fast-forward rebase refuses to write commits (interactive)">)} 
      {
        (SQ <"\n"> <"\ttest_when_finished \"git rebase --abort || true\" &&\n"> 
          <"\tgit checkout -B tmp side-with-commit &&\n"> <"\ttest_must_fail git rebase -i master\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"noop interactive rebase does not care about ident">)} 
      {(SQ <"\n"> <"\tgit checkout -B tmp side-with-commit &&\n"> <"\tgit rebase -i HEAD^\n">)}
    )
    (C {(test_expect_success)} {(SQ <"fast-forward rebase does not care about ident (preserve)">)} 
      {(SQ <"\n"> <"\tgit checkout -B tmp side-without-commit &&\n"> <"\tgit rebase -p master\n">)}
    )
    (C {(test_expect_success)} {(SQ <"non-fast-forward rebase refuses to write commits (preserve)">)} 
      {
        (SQ <"\n"> <"\ttest_when_finished \"git rebase --abort || true\" &&\n"> 
          <"\tgit checkout -B tmp side-with-commit &&\n"> <"\ttest_must_fail git rebase -p master\n">
        )
      }
    )
    (C {(test_done)})
  ]
)