#!/bin/sh

global test_description := ''push to a repository that borrows from elsewhere''

source ./test-lib.sh

test_expect_success setup '
	mkdir alice-pub &&
	(
		cd alice-pub &&
		GIT_DIR=. git init
	) &&
	mkdir alice-work &&
	(
		cd alice-work &&
		git init &&
		>file &&
		git add . &&
		git commit -m initial &&
		git push ../alice-pub master
	) &&

	# Project Bob is a fork of project Alice
	mkdir bob-pub &&
	(
		cd bob-pub &&
		GIT_DIR=. git init &&
		mkdir -p objects/info &&
		echo ../../alice-pub/objects >objects/info/alternates
	) &&
	git clone alice-pub bob-work &&
	(
		cd bob-work &&
		git push ../bob-pub master
	)
'

test_expect_success 'alice works and pushes' '
	(
		cd alice-work &&
		echo more >file &&
		git commit -a -m second &&
		git push ../alice-pub :
	)
'

test_expect_success 'bob fetches from alice, works and pushes' '
	(
		# Bob acquires what Alice did in his work tree first.
		# Even though these objects are not directly in
		# the public repository of Bob, this push does not
		# need to send the commit Bob received from Alice
		# to his public repository, as all the object Alice
		# has at her public repository are available to it
		# via its alternates.
		cd bob-work &&
		git pull ../alice-pub master &&
		echo more bob >file &&
		git commit -a -m third &&
		git push ../bob-pub :
	) &&

	# Check that the second commit by Alice is not sent
	# to ../bob-pub
	(
		cd bob-pub &&
		second=$(git rev-parse HEAD^) &&
		rm -f objects/info/alternates &&
		test_must_fail git cat-file -t $second &&
		echo ../../alice-pub/objects >objects/info/alternates
	)
'

test_expect_success 'clean-up in case the previous failed' '
	(
		cd bob-pub &&
		echo ../../alice-pub/objects >objects/info/alternates
	)
'

test_expect_success 'alice works and pushes again' '
	(
		# Alice does not care what Bob does.  She does not
		# even have to be aware of his existence.  She just
		# keeps working and pushing
		cd alice-work &&
		echo more alice >file &&
		git commit -a -m fourth &&
		git push ../alice-pub :
	)
'

test_expect_success 'bob works and pushes' '
	(
		# This time Bob does not pull from Alice, and
		# the master branch at her public repository points
		# at a commit Bob does not know about.  This should
		# not prevent the push by Bob from succeeding.
		cd bob-work &&
		echo yet more bob >file &&
		git commit -a -m fifth &&
		git push ../bob-pub :
	)
'

test_expect_success 'alice works and pushes yet again' '
	(
		# Alice does not care what Bob does.  She does not
		# even have to be aware of his existence.  She just
		# keeps working and pushing
		cd alice-work &&
		echo more and more alice >file &&
		git commit -a -m sixth.1 &&
		echo more and more alice >>file &&
		git commit -a -m sixth.2 &&
		echo more and more alice >>file &&
		git commit -a -m sixth.3 &&
		git push ../alice-pub :
	)
'

test_expect_success 'bob works and pushes again' '
	(
		cd alice-pub &&
		git cat-file commit master >../bob-work/commit
	) &&
	(
		# This time Bob does not pull from Alice, and
		# the master branch at her public repository points
		# at a commit Bob does not fully know about, but
		# he happens to have the commit object (but not the
		# necessary tree) in his repository from Alice.
		# This should not prevent the push by Bob from
		# succeeding.
		cd bob-work &&
		git hash-object -t commit -w commit &&
		echo even more bob >file &&
		git commit -a -m seventh &&
		git push ../bob-pub :
	)
'

test_done
(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <"push to a repository that borrows from elsewhere">)}
          spids: [4]
        )
      ]
      spids: [4]
    )
    (C {(.)} {(./test-lib.sh)})
    (C {(test_expect_success)} {(setup)} 
      {
        (SQ <"\n"> <"\tmkdir alice-pub &&\n"> <"\t(\n"> <"\t\tcd alice-pub &&\n"> 
          <"\t\tGIT_DIR=. git init\n"> <"\t) &&\n"> <"\tmkdir alice-work &&\n"> <"\t(\n"> <"\t\tcd alice-work &&\n"> <"\t\tgit init &&\n"> 
          <"\t\t>file &&\n"> <"\t\tgit add . &&\n"> <"\t\tgit commit -m initial &&\n"> <"\t\tgit push ../alice-pub master\n"> 
          <"\t) &&\n"> <"\n"> <"\t# Project Bob is a fork of project Alice\n"> <"\tmkdir bob-pub &&\n"> <"\t(\n"> 
          <"\t\tcd bob-pub &&\n"> <"\t\tGIT_DIR=. git init &&\n"> <"\t\tmkdir -p objects/info &&\n"> 
          <"\t\techo ../../alice-pub/objects >objects/info/alternates\n"> <"\t) &&\n"> <"\tgit clone alice-pub bob-work &&\n"> <"\t(\n"> <"\t\tcd bob-work &&\n"> 
          <"\t\tgit push ../bob-pub master\n"> <"\t)\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"alice works and pushes">)} 
      {
        (SQ <"\n"> <"\t(\n"> <"\t\tcd alice-work &&\n"> <"\t\techo more >file &&\n"> 
          <"\t\tgit commit -a -m second &&\n"> <"\t\tgit push ../alice-pub :\n"> <"\t)\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"bob fetches from alice, works and pushes">)} 
      {
        (SQ <"\n"> <"\t(\n"> <"\t\t# Bob acquires what Alice did in his work tree first.\n"> 
          <"\t\t# Even though these objects are not directly in\n"> <"\t\t# the public repository of Bob, this push does not\n"> 
          <"\t\t# need to send the commit Bob received from Alice\n"> <"\t\t# to his public repository, as all the object Alice\n"> 
          <"\t\t# has at her public repository are available to it\n"> <"\t\t# via its alternates.\n"> <"\t\tcd bob-work &&\n"> <"\t\tgit pull ../alice-pub master &&\n"> 
          <"\t\techo more bob >file &&\n"> <"\t\tgit commit -a -m third &&\n"> <"\t\tgit push ../bob-pub :\n"> <"\t) &&\n"> <"\n"> 
          <"\t# Check that the second commit by Alice is not sent\n"> <"\t# to ../bob-pub\n"> <"\t(\n"> <"\t\tcd bob-pub &&\n"> <"\t\tsecond=$(git rev-parse HEAD^) &&\n"> 
          <"\t\trm -f objects/info/alternates &&\n"> <"\t\ttest_must_fail git cat-file -t $second &&\n"> 
          <"\t\techo ../../alice-pub/objects >objects/info/alternates\n"> <"\t)\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"clean-up in case the previous failed">)} 
      {
        (SQ <"\n"> <"\t(\n"> <"\t\tcd bob-pub &&\n"> 
          <"\t\techo ../../alice-pub/objects >objects/info/alternates\n"> <"\t)\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"alice works and pushes again">)} 
      {
        (SQ <"\n"> <"\t(\n"> <"\t\t# Alice does not care what Bob does.  She does not\n"> 
          <"\t\t# even have to be aware of his existence.  She just\n"> <"\t\t# keeps working and pushing\n"> <"\t\tcd alice-work &&\n"> <"\t\techo more alice >file &&\n"> 
          <"\t\tgit commit -a -m fourth &&\n"> <"\t\tgit push ../alice-pub :\n"> <"\t)\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"bob works and pushes">)} 
      {
        (SQ <"\n"> <"\t(\n"> <"\t\t# This time Bob does not pull from Alice, and\n"> 
          <"\t\t# the master branch at her public repository points\n"> <"\t\t# at a commit Bob does not know about.  This should\n"> 
          <"\t\t# not prevent the push by Bob from succeeding.\n"> <"\t\tcd bob-work &&\n"> <"\t\techo yet more bob >file &&\n"> <"\t\tgit commit -a -m fifth &&\n"> 
          <"\t\tgit push ../bob-pub :\n"> <"\t)\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"alice works and pushes yet again">)} 
      {
        (SQ <"\n"> <"\t(\n"> <"\t\t# Alice does not care what Bob does.  She does not\n"> 
          <"\t\t# even have to be aware of his existence.  She just\n"> <"\t\t# keeps working and pushing\n"> <"\t\tcd alice-work &&\n"> 
          <"\t\techo more and more alice >file &&\n"> <"\t\tgit commit -a -m sixth.1 &&\n"> <"\t\techo more and more alice >>file &&\n"> 
          <"\t\tgit commit -a -m sixth.2 &&\n"> <"\t\techo more and more alice >>file &&\n"> <"\t\tgit commit -a -m sixth.3 &&\n"> 
          <"\t\tgit push ../alice-pub :\n"> <"\t)\n">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"bob works and pushes again">)} 
      {
        (SQ <"\n"> <"\t(\n"> <"\t\tcd alice-pub &&\n"> 
          <"\t\tgit cat-file commit master >../bob-work/commit\n"> <"\t) &&\n"> <"\t(\n"> <"\t\t# This time Bob does not pull from Alice, and\n"> 
          <"\t\t# the master branch at her public repository points\n"> <"\t\t# at a commit Bob does not fully know about, but\n"> 
          <"\t\t# he happens to have the commit object (but not the\n"> <"\t\t# necessary tree) in his repository from Alice.\n"> 
          <"\t\t# This should not prevent the push by Bob from\n"> <"\t\t# succeeding.\n"> <"\t\tcd bob-work &&\n"> <"\t\tgit hash-object -t commit -w commit &&\n"> 
          <"\t\techo even more bob >file &&\n"> <"\t\tgit commit -a -m seventh &&\n"> <"\t\tgit push ../bob-pub :\n"> <"\t)\n">
        )
      }
    )
    (C {(test_done)})
  ]
)