(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "Test workflows involving pull request.">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS setup>]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit init --bare upstream.git &&\n"> <LIT_CHARS "\tgit init --bare downstream.git &&\n"> <LIT_CHARS "\tgit clone upstream.git upstream-private &&\n"> <LIT_CHARS "\tgit clone downstream.git local &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\ttrash_url=\"file://$TRASH_DIRECTORY\" &&\n"> <LIT_CHARS "\tdownstream_url=\"$trash_url/downstream.git/\" &&\n"> <LIT_CHARS "\tupstream_url=\"$trash_url/upstream.git/\" &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd upstream-private &&\n"> <LIT_CHARS "\t\tcat <<-\\EOT >mnemonic.txt &&\n"> <LIT_CHARS "\t\tThirtey days hath November,\n"> <LIT_CHARS "\t\tAprile, June, and September:\n"> <LIT_CHARS "\t\tEOT\n"> <LIT_CHARS "\t\tgit add mnemonic.txt &&\n"> <LIT_CHARS "\t\ttest_tick &&\n"> <LIT_CHARS "\t\tgit commit -m \"\\\"Thirty days\\\", a reminder of month lengths\" &&\n"> <LIT_CHARS "\t\tgit tag -m \"version 1\" -a initial &&\n"> <LIT_CHARS "\t\tgit push --tags origin master\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd local &&\n"> <LIT_CHARS "\t\tgit remote add upstream \"$trash_url/upstream.git\" &&\n"> <LIT_CHARS "\t\tgit fetch upstream &&\n"> <LIT_CHARS "\t\tgit pull upstream master &&\n"> <LIT_CHARS "\t\tcat <<-\\EOT >>mnemonic.txt &&\n"> <LIT_CHARS "\t\tOf twyecescore-eightt is but eine,\n"> <LIT_CHARS "\t\tAnd all the remnante be thrycescore-eine.\n"> <LIT_CHARS "\t\tO\u2019course Leap yare comes an\u2019pynes,\n"> <LIT_CHARS "\t\tEv\u2019rie foure yares, gote it ryghth.\n"> <LIT_CHARS "\t\tAn\u2019twyecescore-eight is but twyecescore-nyne.\n"> <LIT_CHARS "\t\tEOT\n"> <LIT_CHARS "\t\tgit add mnemonic.txt &&\n"> <LIT_CHARS "\t\ttest_tick &&\n"> <LIT_CHARS "\t\tgit commit -m \"More detail\" &&\n"> <LIT_CHARS "\t\tgit tag -m \"version 2\" -a full &&\n"> <LIT_CHARS "\t\tgit checkout -b simplify HEAD^ &&\n"> <LIT_CHARS "\t\tmv mnemonic.txt mnemonic.standard &&\n"> <LIT_CHARS "\t\tcat <<-\\EOT >mnemonic.clarified &&\n"> <LIT_CHARS "\t\tThirty days has September,\n"> <LIT_CHARS "\t\tAll the rest I can\u2019t remember.\n"> <LIT_CHARS "\t\tEOT\n"> <LIT_CHARS "\t\tgit add -N mnemonic.standard mnemonic.clarified &&\n"> <LIT_CHARS "\t\tgit commit -a -m \"Adapt to use modern, simpler English\n"> <LIT_CHARS "\n"> <LIT_CHARS "But keep the old version, too, in case some people prefer it.\" &&\n"> <LIT_CHARS "\t\tgit checkout master\n"> <LIT_CHARS "\t)\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup: two scripts for reading pull requests">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tdownstream_url_for_sed=$(\n"> <LIT_CHARS "\t\tprintf \"%s\\n\" \"$downstream_url\" |\n"> <LIT_CHARS "\t\tsed -e ">] [\ LIT_ESCAPED_CHAR "\\'"] [SQ <LIT_CHARS "s/\\\\/\\\\\\\\/g">] [\ LIT_ESCAPED_CHAR "\\'"] [SQ <LIT_CHARS " -e ">] [\ LIT_ESCAPED_CHAR "\\'"] [SQ <LIT_CHARS "s/[[/.*^$]/\\\\&/g">] [\ LIT_ESCAPED_CHAR "\\'"] [SQ <LIT_CHARS "\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tcat <<-\\EOT >read-request.sed &&\n"> <LIT_CHARS "\t#!/bin/sed -nf\n"> <LIT_CHARS "\t# Note that a request could ask for \"tag $tagname\"\n"> <LIT_CHARS "\t/ in the git repository at:$/!d\n"> <LIT_CHARS "\tn\n"> <LIT_CHARS "\t/^$/ n\n"> <LIT_CHARS "\ts/ tag \\([^ ]*\\)$/ tag--\\1/\n"> <LIT_CHARS "\ts/^[ \t]*\\(.*\\) \\([^ ]*\\)/please pull\\\n"> <LIT_CHARS "\t\\1\\\n"> <LIT_CHARS "\t\\2/p\n"> <LIT_CHARS "\tq\n"> <LIT_CHARS "\tEOT\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tcat <<-EOT >fuzz.sed\n"> <LIT_CHARS "\t#!/bin/sed -nf\n"> <LIT_CHARS "\ts/$downstream_url_for_sed/URL/g\n"> <LIT_CHARS "\ts/$_x40/OBJECT_NAME/g\n"> <LIT_CHARS "\ts/A U Thor/AUTHOR/g\n"> <LIT_CHARS "\ts/[-0-9]\\{10\\} [:0-9]\\{8\\} [-+][0-9]\\{4\\}/DATE/g\n"> <LIT_CHARS "\ts/        [^ ].*/        SUBJECT/g\n"> <LIT_CHARS "\ts/  [^ ].* (DATE)/  SUBJECT (DATE)/g\n"> <LIT_CHARS "\ts|tags/full|BRANCH|g\n"> <LIT_CHARS "\ts/mnemonic.txt/FILENAME/g\n"> <LIT_CHARS "\ts/^version [0-9]/VERSION/\n"> <LIT_CHARS "\t/^ FILENAME | *[0-9]* [-+]*\\$/ b diffstat\n"> <LIT_CHARS "\t/^AUTHOR ([0-9]*):\\$/ b shortlog\n"> <LIT_CHARS "\tp\n"> <LIT_CHARS "\tb\n"> <LIT_CHARS "\t: diffstat\n"> <LIT_CHARS "\tn\n"> <LIT_CHARS "\t/ [0-9]* files* changed/ {\n"> <LIT_CHARS "\t\ta\\\\\n"> <LIT_CHARS "\tDIFFSTAT\n"> <LIT_CHARS "\t\tb\n"> <LIT_CHARS "\t}\n"> <LIT_CHARS "\tb diffstat\n"> <LIT_CHARS "\t: shortlog\n"> <LIT_CHARS "\t/^        [a-zA-Z]/ n\n"> <LIT_CHARS "\t/^[a-zA-Z]* ([0-9]*):\\$/ n\n"> <LIT_CHARS "\t/^\\$/ N\n"> <LIT_CHARS "\t/^\\n[a-zA-Z]* ([0-9]*):\\$/!{\n"> <LIT_CHARS "\t\ta\\\\\n"> <LIT_CHARS "\tSHORTLOG\n"> <LIT_CHARS "\t\tD\n"> <LIT_CHARS "\t}\n"> <LIT_CHARS "\tn\n"> <LIT_CHARS "\tb shortlog\n"> <LIT_CHARS "\tEOT\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pull request when forgot to push">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\trm -fr downstream.git &&\n"> <LIT_CHARS "\tgit init --bare downstream.git &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd local &&\n"> <LIT_CHARS "\t\tgit checkout initial &&\n"> <LIT_CHARS "\t\tgit merge --ff-only master &&\n"> <LIT_CHARS "\t\ttest_must_fail git request-pull initial \"$downstream_url\" \\\n"> <LIT_CHARS "\t\t\t2>../err\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tgrep \"No match for commit .*\" err &&\n"> <LIT_CHARS "\tgrep \"Are you sure you pushed\" err\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pull request after push">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\trm -fr downstream.git &&\n"> <LIT_CHARS "\tgit init --bare downstream.git &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd local &&\n"> <LIT_CHARS "\t\tgit checkout initial &&\n"> <LIT_CHARS "\t\tgit merge --ff-only master &&\n"> <LIT_CHARS "\t\tgit push origin master:for-upstream &&\n"> <LIT_CHARS "\t\tgit request-pull initial origin master:for-upstream >../request\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tsed -nf read-request.sed <request >digest &&\n"> <LIT_CHARS "\tcat digest &&\n"> <LIT_CHARS "\t{\n"> <LIT_CHARS "\t\tread task &&\n"> <LIT_CHARS "\t\tread repository &&\n"> <LIT_CHARS "\t\tread branch\n"> <LIT_CHARS "\t} <digest &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd upstream-private &&\n"> <LIT_CHARS "\t\tgit checkout initial &&\n"> <LIT_CHARS "\t\tgit pull --ff-only \"$repository\" \"$branch\"\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\ttest \"$branch\" = for-upstream &&\n"> <LIT_CHARS "\ttest_cmp local/mnemonic.txt upstream-private/mnemonic.txt\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "request asks HEAD to be pulled">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\trm -fr downstream.git &&\n"> <LIT_CHARS "\tgit init --bare downstream.git &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd local &&\n"> <LIT_CHARS "\t\tgit checkout initial &&\n"> <LIT_CHARS "\t\tgit merge --ff-only master &&\n"> <LIT_CHARS "\t\tgit push --tags origin master simplify &&\n"> <LIT_CHARS "\t\tgit push origin master:for-upstream &&\n"> <LIT_CHARS "\t\tgit request-pull initial \"$downstream_url\" >../request\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tsed -nf read-request.sed <request >digest &&\n"> <LIT_CHARS "\tcat digest &&\n"> <LIT_CHARS "\t{\n"> <LIT_CHARS "\t\tread task &&\n"> <LIT_CHARS "\t\tread repository &&\n"> <LIT_CHARS "\t\tread branch\n"> <LIT_CHARS "\t} <digest &&\n"> <LIT_CHARS "\ttest -z \"$branch\"\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pull request format">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\trm -fr downstream.git &&\n"> <LIT_CHARS "\tgit init --bare downstream.git &&\n"> <LIT_CHARS "\tcat <<-\\EOT >expect &&\n"> <LIT_CHARS "\tThe following changes since commit OBJECT_NAME:\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t  SUBJECT (DATE)\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tare available in the git repository at:\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t  URL BRANCH\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tfor you to fetch changes up to OBJECT_NAME:\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t  SUBJECT (DATE)\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t----------------------------------------------------------------\n"> <LIT_CHARS "\tVERSION\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t----------------------------------------------------------------\n"> <LIT_CHARS "\tSHORTLOG\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tDIFFSTAT\n"> <LIT_CHARS "\tEOT\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd local &&\n"> <LIT_CHARS "\t\tgit checkout initial &&\n"> <LIT_CHARS "\t\tgit merge --ff-only master &&\n"> <LIT_CHARS "\t\tgit push origin tags/full &&\n"> <LIT_CHARS "\t\tgit request-pull initial \"$downstream_url\" tags/full >../request\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\t<request sed -nf fuzz.sed >request.fuzzy &&\n"> <LIT_CHARS "\ttest_i18ncmp expect request.fuzzy &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd local &&\n"> <LIT_CHARS "\t\tgit request-pull initial \"$downstream_url\" tags/full:refs/tags/full\n"> <LIT_CHARS "\t) >request &&\n"> <LIT_CHARS "\tsed -nf fuzz.sed <request >request.fuzzy &&\n"> <LIT_CHARS "\ttest_i18ncmp expect request.fuzzy &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd local &&\n"> <LIT_CHARS "\t\tgit request-pull initial \"$downstream_url\" full\n"> <LIT_CHARS "\t) >request &&\n"> <LIT_CHARS "\tgrep \" tags/full\\$\" request\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "request-pull ignores OPTIONS_KEEPDASHDASH poison">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd local &&\n"> <LIT_CHARS "\t\tOPTIONS_KEEPDASHDASH=Yes &&\n"> <LIT_CHARS "\t\texport OPTIONS_KEEPDASHDASH &&\n"> <LIT_CHARS "\t\tgit checkout initial &&\n"> <LIT_CHARS "\t\tgit merge --ff-only master &&\n"> <LIT_CHARS "\t\tgit push origin master:for-upstream &&\n"> <LIT_CHARS "\t\tgit request-pull -- initial \"$downstream_url\" master:for-upstream >../request\n"> <LIT_CHARS "\t)\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_done]})
)