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