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