(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "various format-patch tests">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (Com {[LIT_CHARS .]} {[DQ [VarSub TEST_DIRECTORY]] [LIT_CHARS /lib-terminal.sh]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS setup]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tfor i in 1 2 3 4 5 6 7 8 9 10; do echo \"$i\"; done >file &&\n"> <LIT_CHARS "\tcat file >elif &&\n"> <LIT_CHARS "\tgit add file elif &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -m Initial &&\n"> <LIT_CHARS "\tgit checkout -b side &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tfor i in 1 2 5 6 A B C 7 8 9 10; do echo \"$i\"; done >file &&\n"> <LIT_CHARS "\ttest_chmod +x elif &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -m \"Side changes #1\" &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tfor i in D E F; do echo \"$i\"; done >>file &&\n"> <LIT_CHARS "\tgit update-index file &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -m \"Side changes #2\" &&\n"> <LIT_CHARS "\tgit tag C2 &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tfor i in 5 6 1 2 3 A 4 B C 7 8 9 10 D E F; do echo \"$i\"; done >file &&\n"> <LIT_CHARS "\tgit update-index file &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -m \"Side changes #3 with \\\\n backslash-n in it.\" &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout master &&\n"> <LIT_CHARS "\tgit diff-tree -p C2 | git apply --index &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -m \"Master accepts moral equivalent of #2\"\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "format-patch --ignore-if-in-upstream"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit format-patch --stdout master..side >patch0 &&\n"> <LIT_CHARS "\tcnt=$(grep \"^From \" patch0 | wc -l) &&\n"> <LIT_CHARS "\ttest $cnt = 3\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "format-patch --ignore-if-in-upstream"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit format-patch --stdout \\\n"> <LIT_CHARS "\t\t--ignore-if-in-upstream master..side >patch1 &&\n"> <LIT_CHARS "\tcnt=$(grep \"^From \" patch1 | wc -l) &&\n"> <LIT_CHARS "\ttest $cnt = 2\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "format-patch --ignore-if-in-upstream handles tags"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit tag -a v1 -m tag side &&\n"> <LIT_CHARS "\tgit tag -a v2 -m tag master &&\n"> <LIT_CHARS "\tgit format-patch --stdout --ignore-if-in-upstream v2..v1 >patch1 &&\n"> <LIT_CHARS "\tcnt=$(grep \"^From \" patch1 | wc -l) &&\n"> <LIT_CHARS "\ttest $cnt = 2\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "format-patch doesn't consider merge commits"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout -b slave master &&\n"> <LIT_CHARS "\techo \"Another line\" >>file &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -am \"Slave change #1\" &&\n"> <LIT_CHARS "\techo \"Yet another line\" >>file &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -am \"Slave change #2\" &&\n"> <LIT_CHARS "\tgit checkout -b merger master &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit merge --no-ff slave &&\n"> <LIT_CHARS "\tcnt=$(git format-patch -3 --stdout | grep \"^From \" | wc -l) &&\n"> <LIT_CHARS "\ttest $cnt = 3\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "format-patch result applies"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout -b rebuild-0 master &&\n"> <LIT_CHARS "\tgit am -3 patch0 &&\n"> <LIT_CHARS "\tcnt=$(git rev-list master.. | wc -l) &&\n"> <LIT_CHARS "\ttest $cnt = 2\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "format-patch --ignore-if-in-upstream result applies"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout -b rebuild-1 master &&\n"> <LIT_CHARS "\tgit am -3 patch1 &&\n"> <LIT_CHARS "\tcnt=$(git rev-list master.. | wc -l) &&\n"> <LIT_CHARS "\ttest $cnt = 2\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "commit did not screw up the log message">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit cat-file commit side | grep \"^Side .* with .* backslash-n\"\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch did not screw up the log message">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgrep \"^Subject: .*Side changes #3 with .* backslash-n\" patch0 &&\n"> <LIT_CHARS "\tgrep \"^Subject: .*Side changes #3 with .* backslash-n\" patch1\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "replay did not screw up the log message">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit cat-file commit rebuild-1 | grep \"^Side .* with .* backslash-n\"\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "extra headers">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit config format.headers \"To: R E Cipient <rcipient@example.com>\n"> <LIT_CHARS "\" &&\n"> <LIT_CHARS "\tgit config --add format.headers \"Cc: S E Cipient <scipient@example.com>\n"> <LIT_CHARS "\" &&\n"> <LIT_CHARS "\tgit format-patch --stdout master..side > patch2 &&\n"> <LIT_CHARS "\tsed -e \"/^\\$/q\" patch2 > hdrs2 &&\n"> <LIT_CHARS "\tgrep \"^To: R E Cipient <rcipient@example.com>\\$\" hdrs2 &&\n"> <LIT_CHARS "\tgrep \"^Cc: S E Cipient <scipient@example.com>\\$\" hdrs2\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "extra headers without newlines">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit config --replace-all format.headers \"To: R E Cipient <rcipient@example.com>\" &&\n"> <LIT_CHARS "\tgit config --add format.headers \"Cc: S E Cipient <scipient@example.com>\" &&\n"> <LIT_CHARS "\tgit format-patch --stdout master..side >patch3 &&\n"> <LIT_CHARS "\tsed -e \"/^\\$/q\" patch3 > hdrs3 &&\n"> <LIT_CHARS "\tgrep \"^To: R E Cipient <rcipient@example.com>\\$\" hdrs3 &&\n"> <LIT_CHARS "\tgrep \"^Cc: S E Cipient <scipient@example.com>\\$\" hdrs3\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "extra headers with multiple To:s">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit config --replace-all format.headers \"To: R E Cipient <rcipient@example.com>\" &&\n"> <LIT_CHARS "\tgit config --add format.headers \"To: S E Cipient <scipient@example.com>\" &&\n"> <LIT_CHARS "\tgit format-patch --stdout master..side > patch4 &&\n"> <LIT_CHARS "\tsed -e \"/^\\$/q\" patch4 > hdrs4 &&\n"> <LIT_CHARS "\tgrep \"^To: R E Cipient <rcipient@example.com>,\\$\" hdrs4 &&\n"> <LIT_CHARS "\tgrep \"^ *S E Cipient <scipient@example.com>\\$\" hdrs4\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "additional command line cc (ascii)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit config --replace-all format.headers \"Cc: R E Cipient <rcipient@example.com>\" &&\n"> <LIT_CHARS "\tgit format-patch --cc=\"S E Cipient <scipient@example.com>\" --stdout master..side | sed -e \"/^\\$/q\" >patch5 &&\n"> <LIT_CHARS "\tgrep \"^Cc: R E Cipient <rcipient@example.com>,\\$\" patch5 &&\n"> <LIT_CHARS "\tgrep \"^ *S E Cipient <scipient@example.com>\\$\" patch5\n">]})
  (Com {[LIT_CHARS test_expect_failure]} {[SQ <LIT_CHARS "additional command line cc (rfc822)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit config --replace-all format.headers \"Cc: R E Cipient <rcipient@example.com>\" &&\n"> <LIT_CHARS "\tgit format-patch --cc=\"S. E. Cipient <scipient@example.com>\" --stdout master..side | sed -e \"/^\\$/q\" >patch5 &&\n"> <LIT_CHARS "\tgrep \"^Cc: R E Cipient <rcipient@example.com>,\\$\" patch5 &&\n"> <LIT_CHARS "\tgrep \"^ *\\\"S. E. Cipient\\\" <scipient@example.com>\\$\" patch5\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "command line headers">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit config --unset-all format.headers &&\n"> <LIT_CHARS "\tgit format-patch --add-header=\"Cc: R E Cipient <rcipient@example.com>\" --stdout master..side | sed -e \"/^\\$/q\" >patch6 &&\n"> <LIT_CHARS "\tgrep \"^Cc: R E Cipient <rcipient@example.com>\\$\" patch6\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "configuration headers and command line headers">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit config --replace-all format.headers \"Cc: R E Cipient <rcipient@example.com>\" &&\n"> <LIT_CHARS "\tgit format-patch --add-header=\"Cc: S E Cipient <scipient@example.com>\" --stdout master..side | sed -e \"/^\\$/q\" >patch7 &&\n"> <LIT_CHARS "\tgrep \"^Cc: R E Cipient <rcipient@example.com>,\\$\" patch7 &&\n"> <LIT_CHARS "\tgrep \"^ *S E Cipient <scipient@example.com>\\$\" patch7\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "command line To: header (ascii)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit config --unset-all format.headers &&\n"> <LIT_CHARS "\tgit format-patch --to=\"R E Cipient <rcipient@example.com>\" --stdout master..side | sed -e \"/^\\$/q\" >patch8 &&\n"> <LIT_CHARS "\tgrep \"^To: R E Cipient <rcipient@example.com>\\$\" patch8\n">]})
  (Com {[LIT_CHARS test_expect_failure]} {[SQ <LIT_CHARS "command line To: header (rfc822)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit format-patch --to=\"R. E. Cipient <rcipient@example.com>\" --stdout master..side | sed -e \"/^\\$/q\" >patch8 &&\n"> <LIT_CHARS "\tgrep \"^To: \\\"R. E. Cipient\\\" <rcipient@example.com>\\$\" patch8\n">]})
  (Com {[LIT_CHARS test_expect_failure]} {[SQ <LIT_CHARS "command line To: header (rfc2047)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit format-patch --to=\"R \u00c4 Cipient <rcipient@example.com>\" --stdout master..side | sed -e \"/^\\$/q\" >patch8 &&\n"> <LIT_CHARS "\tgrep \"^To: =?UTF-8?q?R=20=C3=84=20Cipient?= <rcipient@example.com>\\$\" patch8\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "configuration To: header (ascii)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit config format.to \"R E Cipient <rcipient@example.com>\" &&\n"> <LIT_CHARS "\tgit format-patch --stdout master..side | sed -e \"/^\\$/q\" >patch9 &&\n"> <LIT_CHARS "\tgrep \"^To: R E Cipient <rcipient@example.com>\\$\" patch9\n">]})
  (Com {[LIT_CHARS test_expect_failure]} {[SQ <LIT_CHARS "configuration To: header (rfc822)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit config format.to \"R. E. Cipient <rcipient@example.com>\" &&\n"> <LIT_CHARS "\tgit format-patch --stdout master..side | sed -e \"/^\\$/q\" >patch9 &&\n"> <LIT_CHARS "\tgrep \"^To: \\\"R. E. Cipient\\\" <rcipient@example.com>\\$\" patch9\n">]})
  (Com {[LIT_CHARS test_expect_failure]} {[SQ <LIT_CHARS "configuration To: header (rfc2047)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit config format.to \"R \u00c4 Cipient <rcipient@example.com>\" &&\n"> <LIT_CHARS "\tgit format-patch --stdout master..side | sed -e \"/^\\$/q\" >patch9 &&\n"> <LIT_CHARS "\tgrep \"^To: =?UTF-8?q?R=20=C3=84=20Cipient?= <rcipient@example.com>\\$\" patch9\n">]})
  (FunctionDef check_patch []
    (AndOr OP_AND_IF
      (Com {[LIT_CHARS grep]} {[LIT_CHARS -e]} {[DQ [LIT_CHARS "^From:"]]} {[DQ [VarSub 1]]})
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS grep]} {[LIT_CHARS -e]} {[DQ [LIT_CHARS "^Date:"]]} {[DQ [VarSub 1]]})
        (Com {[LIT_CHARS grep]} {[LIT_CHARS -e]} {[DQ [LIT_CHARS "^Subject:"]]} {[DQ [VarSub 1]]})
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format.from=false">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit -c format.from=false format-patch --stdout master..side |\n"> <LIT_CHARS "\tsed -e \"/^\\$/q\" >patch &&\n"> <LIT_CHARS "\tcheck_patch patch &&\n"> <LIT_CHARS "\t! grep \"^From: C O Mitter <committer@example.com>\\$\" patch\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format.from=true">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit -c format.from=true format-patch --stdout master..side |\n"> <LIT_CHARS "\tsed -e \"/^\\$/q\" >patch &&\n"> <LIT_CHARS "\tcheck_patch patch &&\n"> <LIT_CHARS "\tgrep \"^From: C O Mitter <committer@example.com>\\$\" patch\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format.from with address">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit -c format.from=\"F R Om <from@example.com>\" format-patch --stdout master..side |\n"> <LIT_CHARS "\tsed -e \"/^\\$/q\" >patch &&\n"> <LIT_CHARS "\tcheck_patch patch &&\n"> <LIT_CHARS "\tgrep \"^From: F R Om <from@example.com>\\$\" patch\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "--no-from overrides format.from">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit -c format.from=\"F R Om <from@example.com>\" format-patch --no-from --stdout master..side |\n"> <LIT_CHARS "\tsed -e \"/^\\$/q\" >patch &&\n"> <LIT_CHARS "\tcheck_patch patch &&\n"> <LIT_CHARS "\t! grep \"^From: F R Om <from@example.com>\\$\" patch\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "--from overrides format.from">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit -c format.from=\"F R Om <from@example.com>\" format-patch --from --stdout master..side |\n"> <LIT_CHARS "\tsed -e \"/^\\$/q\" >patch &&\n"> <LIT_CHARS "\tcheck_patch patch &&\n"> <LIT_CHARS "\t! grep \"^From: F R Om <from@example.com>\\$\" patch\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "--no-to overrides config.to">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit config --replace-all format.to \\\n"> <LIT_CHARS "\t\t\"R E Cipient <rcipient@example.com>\" &&\n"> <LIT_CHARS "\tgit format-patch --no-to --stdout master..side |\n"> <LIT_CHARS "\tsed -e \"/^\\$/q\" >patch10 &&\n"> <LIT_CHARS "\tcheck_patch patch10 &&\n"> <LIT_CHARS "\t! grep \"^To: R E Cipient <rcipient@example.com>\\$\" patch10\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "--no-to and --to replaces config.to">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit config --replace-all format.to \\\n"> <LIT_CHARS "\t\t\"Someone <someone@out.there>\" &&\n"> <LIT_CHARS "\tgit format-patch --no-to --to=\"Someone Else <else@out.there>\" \\\n"> <LIT_CHARS "\t\t--stdout master..side |\n"> <LIT_CHARS "\tsed -e \"/^\\$/q\" >patch11 &&\n"> <LIT_CHARS "\tcheck_patch patch11 &&\n"> <LIT_CHARS "\t! grep \"^To: Someone <someone@out.there>\\$\" patch11 &&\n"> <LIT_CHARS "\tgrep \"^To: Someone Else <else@out.there>\\$\" patch11\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "--no-cc overrides config.cc">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit config --replace-all format.cc \\\n"> <LIT_CHARS "\t\t\"C E Cipient <rcipient@example.com>\" &&\n"> <LIT_CHARS "\tgit format-patch --no-cc --stdout master..side |\n"> <LIT_CHARS "\tsed -e \"/^\\$/q\" >patch12 &&\n"> <LIT_CHARS "\tcheck_patch patch12 &&\n"> <LIT_CHARS "\t! grep \"^Cc: C E Cipient <rcipient@example.com>\\$\" patch12\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "--no-add-header overrides config.headers">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit config --replace-all format.headers \\\n"> <LIT_CHARS "\t\t\"Header1: B E Cipient <rcipient@example.com>\" &&\n"> <LIT_CHARS "\tgit format-patch --no-add-header --stdout master..side |\n"> <LIT_CHARS "\tsed -e \"/^\\$/q\" >patch13 &&\n"> <LIT_CHARS "\tcheck_patch patch13 &&\n"> <LIT_CHARS "\t! grep \"^Header1: B E Cipient <rcipient@example.com>\\$\" patch13\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "multiple files">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\trm -rf patches/ &&\n"> <LIT_CHARS "\tgit checkout side &&\n"> <LIT_CHARS "\tgit format-patch -o patches/ master &&\n"> <LIT_CHARS "\tls patches/0001-Side-changes-1.patch patches/0002-Side-changes-2.patch patches/0003-Side-changes-3-with-n-backslash-n-in-it.patch\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "reroll count">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -fr patches &&\n"> <LIT_CHARS "\tgit format-patch -o patches --cover-letter --reroll-count 4 master..side >list &&\n"> <LIT_CHARS "\t! grep -v \"^patches/v4-000[0-3]-\" list &&\n"> <LIT_CHARS "\tsed -n -e \"/^Subject: /p\" $(cat list) >subjects &&\n"> <LIT_CHARS "\t! grep -v \"^Subject: \\[PATCH v4 [0-3]/3\\] \" subjects\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "reroll count (-v)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -fr patches &&\n"> <LIT_CHARS "\tgit format-patch -o patches --cover-letter -v4 master..side >list &&\n"> <LIT_CHARS "\t! grep -v \"^patches/v4-000[0-3]-\" list &&\n"> <LIT_CHARS "\tsed -n -e \"/^Subject: /p\" $(cat list) >subjects &&\n"> <LIT_CHARS "\t! grep -v \"^Subject: \\[PATCH v4 [0-3]/3\\] \" subjects\n">]})
  (FunctionDef check_threading []
    (AndOr OP_AND_IF
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('expect', {[DQ [VarSub 1]]})])
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS shift]})
        (AndOr OP_AND_IF
          (Pipeline
            (Subshell
              (List
                (Com {[LIT_CHARS git]} {[LIT_CHARS format-patch]} {[LIT_CHARS --stdout]} {[DQ [VarSub @]]})
                (Com {[LIT_CHARS echo]} {[VarSub ?]}
                  <
                  (FilenameRedirectNode filename={[LIT_CHARS status.out]} <REDIR_GREAT ">"> 1),
                  >
                )
              )
            )
            (Com {[LIT_CHARS perl]} {[LIT_CHARS -ne]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\tif (/^(message-id|references|in-reply-to)/i) {\n"> <LIT_CHARS "\t\t\t$printing = 1;\n"> <LIT_CHARS "\t\t} elsif (/^\\S/) {\n"> <LIT_CHARS "\t\t\t$printing = 0;\n"> <LIT_CHARS "\t\t}\n"> <LIT_CHARS "\t\tif ($printing) {\n"> <LIT_CHARS "\t\t\t$h{$1}=$i++ if (/<([^>]+)>/ and !exists $h{$1});\n"> <LIT_CHARS "\t\t\tfor $k (keys %h) {s/$k/$h{$k}/};\n"> <LIT_CHARS "\t\t\tprint;\n"> <LIT_CHARS "\t\t}\n"> <LIT_CHARS "\t\tprint \"---\\n\" if /^From /i;\n"> <LIT_CHARS "\t">]}
              <
              (FilenameRedirectNode filename={[LIT_CHARS actual]} <REDIR_GREAT ">"> 1),
              >
            )
          )
          (AndOr OP_AND_IF
            (Com {[LIT_CHARS test]} {[LIT_CHARS 0]} {[LIT_OTHER "="]} {[DQ [ComSub (Com {[LIT_CHARS cat]} {[LIT_CHARS status.out]})]]})
            (Com {[LIT_CHARS test_cmp]} {[DQ [VarSub expect]]} {[LIT_CHARS actual]})
          )
        )
      )
    )
  )
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expect.no-threading]} <REDIR_DGREAT ">>"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=True body_word={[DQ [LIT_CHARS "---\n"][LIT_CHARS "---\n"][LIT_CHARS "---\n"]]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "no threading">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout side &&\n"> <LIT_CHARS "\tcheck_threading expect.no-threading master\n">]})
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expect.thread]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=True body_word={[DQ [LIT_CHARS "---\n"][LIT_CHARS "Message-Id: <0>\n"][LIT_CHARS "---\n"][LIT_CHARS "Message-Id: <1>\n"][LIT_CHARS "In-Reply-To: <0>\n"][LIT_CHARS "References: <0>\n"][LIT_CHARS "---\n"][LIT_CHARS "Message-Id: <2>\n"][LIT_CHARS "In-Reply-To: <0>\n"][LIT_CHARS "References: <0>\n"]]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS thread>]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_threading expect.thread --thread master\n">]})
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expect.in-reply-to]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=True body_word={[DQ [LIT_CHARS "---\n"][LIT_CHARS "Message-Id: <0>\n"][LIT_CHARS "In-Reply-To: <1>\n"][LIT_CHARS "References: <1>\n"][LIT_CHARS "---\n"][LIT_CHARS "Message-Id: <2>\n"][LIT_CHARS "In-Reply-To: <1>\n"][LIT_CHARS "References: <1>\n"][LIT_CHARS "---\n"][LIT_CHARS "Message-Id: <3>\n"][LIT_CHARS "In-Reply-To: <1>\n"][LIT_CHARS "References: <1>\n"]]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "thread in-reply-to">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_threading expect.in-reply-to --in-reply-to=\"<test.message>\" \\\n"> <LIT_CHARS "\t\t--thread master\n">]})
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expect.cover-letter]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=True body_word={[DQ [LIT_CHARS "---\n"][LIT_CHARS "Message-Id: <0>\n"][LIT_CHARS "---\n"][LIT_CHARS "Message-Id: <1>\n"][LIT_CHARS "In-Reply-To: <0>\n"][LIT_CHARS "References: <0>\n"][LIT_CHARS "---\n"][LIT_CHARS "Message-Id: <2>\n"][LIT_CHARS "In-Reply-To: <0>\n"][LIT_CHARS "References: <0>\n"][LIT_CHARS "---\n"][LIT_CHARS "Message-Id: <3>\n"][LIT_CHARS "In-Reply-To: <0>\n"][LIT_CHARS "References: <0>\n"]]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "thread cover-letter">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_threading expect.cover-letter --cover-letter --thread master\n">]})
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expect.cl-irt]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=True body_word={[DQ [LIT_CHARS "---\n"][LIT_CHARS "Message-Id: <0>\n"][LIT_CHARS "In-Reply-To: <1>\n"][LIT_CHARS "References: <1>\n"][LIT_CHARS "---\n"][LIT_CHARS "Message-Id: <2>\n"][LIT_CHARS "In-Reply-To: <0>\n"][LIT_CHARS "References: <1>\n"][LIT_CHARS "\t<0>\n"][LIT_CHARS "---\n"][LIT_CHARS "Message-Id: <3>\n"][LIT_CHARS "In-Reply-To: <0>\n"][LIT_CHARS "References: <1>\n"][LIT_CHARS "\t<0>\n"][LIT_CHARS "---\n"][LIT_CHARS "Message-Id: <4>\n"][LIT_CHARS "In-Reply-To: <0>\n"][LIT_CHARS "References: <1>\n"][LIT_CHARS "\t<0>\n"]]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "thread cover-letter in-reply-to">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_threading expect.cl-irt --cover-letter \\\n"> <LIT_CHARS "\t\t--in-reply-to=\"<test.message>\" --thread master\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "thread explicit shallow">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_threading expect.cl-irt --cover-letter \\\n"> <LIT_CHARS "\t\t--in-reply-to=\"<test.message>\" --thread=shallow master\n">]})
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expect.deep]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=True body_word={[DQ [LIT_CHARS "---\n"][LIT_CHARS "Message-Id: <0>\n"][LIT_CHARS "---\n"][LIT_CHARS "Message-Id: <1>\n"][LIT_CHARS "In-Reply-To: <0>\n"][LIT_CHARS "References: <0>\n"][LIT_CHARS "---\n"][LIT_CHARS "Message-Id: <2>\n"][LIT_CHARS "In-Reply-To: <1>\n"][LIT_CHARS "References: <0>\n"][LIT_CHARS "\t<1>\n"]]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "thread deep">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_threading expect.deep --thread=deep master\n">]})
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expect.deep-irt]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=True body_word={[DQ [LIT_CHARS "---\n"][LIT_CHARS "Message-Id: <0>\n"][LIT_CHARS "In-Reply-To: <1>\n"][LIT_CHARS "References: <1>\n"][LIT_CHARS "---\n"][LIT_CHARS "Message-Id: <2>\n"][LIT_CHARS "In-Reply-To: <0>\n"][LIT_CHARS "References: <1>\n"][LIT_CHARS "\t<0>\n"][LIT_CHARS "---\n"][LIT_CHARS "Message-Id: <3>\n"][LIT_CHARS "In-Reply-To: <2>\n"][LIT_CHARS "References: <1>\n"][LIT_CHARS "\t<0>\n"][LIT_CHARS "\t<2>\n"]]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "thread deep in-reply-to">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_threading expect.deep-irt  --thread=deep \\\n"> <LIT_CHARS "\t\t--in-reply-to=\"<test.message>\" master\n">]})
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expect.deep-cl]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=True body_word={[DQ [LIT_CHARS "---\n"][LIT_CHARS "Message-Id: <0>\n"][LIT_CHARS "---\n"][LIT_CHARS "Message-Id: <1>\n"][LIT_CHARS "In-Reply-To: <0>\n"][LIT_CHARS "References: <0>\n"][LIT_CHARS "---\n"][LIT_CHARS "Message-Id: <2>\n"][LIT_CHARS "In-Reply-To: <1>\n"][LIT_CHARS "References: <0>\n"][LIT_CHARS "\t<1>\n"][LIT_CHARS "---\n"][LIT_CHARS "Message-Id: <3>\n"][LIT_CHARS "In-Reply-To: <2>\n"][LIT_CHARS "References: <0>\n"][LIT_CHARS "\t<1>\n"][LIT_CHARS "\t<2>\n"]]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "thread deep cover-letter">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_threading expect.deep-cl --cover-letter --thread=deep master\n">]})
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expect.deep-cl-irt]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=True body_word={[DQ [LIT_CHARS "---\n"][LIT_CHARS "Message-Id: <0>\n"][LIT_CHARS "In-Reply-To: <1>\n"][LIT_CHARS "References: <1>\n"][LIT_CHARS "---\n"][LIT_CHARS "Message-Id: <2>\n"][LIT_CHARS "In-Reply-To: <0>\n"][LIT_CHARS "References: <1>\n"][LIT_CHARS "\t<0>\n"][LIT_CHARS "---\n"][LIT_CHARS "Message-Id: <3>\n"][LIT_CHARS "In-Reply-To: <2>\n"][LIT_CHARS "References: <1>\n"][LIT_CHARS "\t<0>\n"][LIT_CHARS "\t<2>\n"][LIT_CHARS "---\n"][LIT_CHARS "Message-Id: <4>\n"][LIT_CHARS "In-Reply-To: <3>\n"][LIT_CHARS "References: <1>\n"][LIT_CHARS "\t<0>\n"][LIT_CHARS "\t<2>\n"][LIT_CHARS "\t<3>\n"]]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "thread deep cover-letter in-reply-to">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_threading expect.deep-cl-irt --cover-letter \\\n"> <LIT_CHARS "\t\t--in-reply-to=\"<test.message>\" --thread=deep master\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "thread via config">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_config format.thread true &&\n"> <LIT_CHARS "\tcheck_threading expect.thread master\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "thread deep via config">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_config format.thread deep &&\n"> <LIT_CHARS "\tcheck_threading expect.deep master\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "thread config + override">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_config format.thread deep &&\n"> <LIT_CHARS "\tcheck_threading expect.thread --thread master\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "thread config + --no-thread">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_config format.thread deep &&\n"> <LIT_CHARS "\tcheck_threading expect.no-threading --no-thread master\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "excessive subject">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\trm -rf patches/ &&\n"> <LIT_CHARS "\tgit checkout side &&\n"> <LIT_CHARS "\tfor i in 5 6 1 2 3 A 4 B C 7 8 9 10 D E F; do echo \"$i\"; done >>file &&\n"> <LIT_CHARS "\tgit update-index file &&\n"> <LIT_CHARS "\tgit commit -m \"This is an excessively long subject line for a message due to the habit some projects have of not having a short, one-line subject at the start of the commit message, but rather sticking a whole paragraph right at the start as the only thing in the commit message. It had better not become the filename for the patch.\" &&\n"> <LIT_CHARS "\tgit format-patch -o patches/ master..side &&\n"> <LIT_CHARS "\tls patches/0004-This-is-an-excessively-long-subject-line-for-a-messa.patch\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cover-letter inherits diff options">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit mv file foo &&\n"> <LIT_CHARS "\tgit commit -m foo &&\n"> <LIT_CHARS "\tgit format-patch --no-renames --cover-letter -1 &&\n"> <LIT_CHARS "\tcheck_patch 0000-cover-letter.patch &&\n"> <LIT_CHARS "\t! grep \"file => foo .* 0 *\\$\" 0000-cover-letter.patch &&\n"> <LIT_CHARS "\tgit format-patch --cover-letter -1 -M &&\n"> <LIT_CHARS "\tgrep \"file => foo .* 0 *\\$\" 0000-cover-letter.patch\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expect]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=True body_word={[DQ [LIT_CHARS "  This is an excessively long subject line for a message due to the\n"][LIT_CHARS "    habit some projects have of not having a short, one-line subject at\n"][LIT_CHARS "    the start of the commit message, but rather sticking a whole\n"][LIT_CHARS "    paragraph right at the start as the only thing in the commit\n"][LIT_CHARS "    message. It had better not become the filename for the patch.\n"][LIT_CHARS "  foo\n"][LIT_CHARS "\n"]]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "shortlog of cover-letter wraps overly-long onelines">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit format-patch --cover-letter -2 &&\n"> <LIT_CHARS "\tsed -e \"1,/A U Thor/d\" -e \"/^\\$/q\" < 0000-cover-letter.patch > output &&\n"> <LIT_CHARS "\ttest_cmp expect output\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expect]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=True body_word={[DQ [LIT_CHARS "index 40f36c6..2dc5c23 100644\n"][LIT_CHARS "--- a/file\n"][LIT_CHARS "+++ b/file\n"][LIT_CHARS "@@ -13,4 +13,20 @@ C\n"][LIT_CHARS " 10\n"][LIT_CHARS " D\n"][LIT_CHARS " E\n"][LIT_CHARS " F\n"][LIT_CHARS "+5\n"]]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch respects -U">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit format-patch -U4 -2 &&\n"> <LIT_CHARS "\tsed -e \"1,/^diff/d\" -e \"/^+5/q\" \\\n"> <LIT_CHARS "\t\t<0001-This-is-an-excessively-long-subject-line-for-a-messa.patch \\\n"> <LIT_CHARS "\t\t>output &&\n"> <LIT_CHARS "\ttest_cmp expect output\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expect]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=True body_word={[DQ [LIT_CHARS "\n"][LIT_CHARS "diff --git a/file b/file\n"][LIT_CHARS "index 40f36c6..2dc5c23 100644\n"][LIT_CHARS "--- a/file\n"][LIT_CHARS "+++ b/file\n"][LIT_CHARS "@@ -14,3 +14,19 @@ C\n"][LIT_CHARS " D\n"][LIT_CHARS " E\n"][LIT_CHARS " F\n"][LIT_CHARS "+5\n"]]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch -p suppresses stat">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit format-patch -p -2 &&\n"> <LIT_CHARS "\tsed -e \"1,/^\\$/d\" -e \"/^+5/q\" < 0001-This-is-an-excessively-long-subject-line-for-a-messa.patch > output &&\n"> <LIT_CHARS "\ttest_cmp expect output\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch from a subdirectory (1)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tfilename=$(\n"> <LIT_CHARS "\t\trm -rf sub &&\n"> <LIT_CHARS "\t\tmkdir -p sub/dir &&\n"> <LIT_CHARS "\t\tcd sub/dir &&\n"> <LIT_CHARS "\t\tgit format-patch -1\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tcase \"$filename\" in\n"> <LIT_CHARS "\t0*)\n"> <LIT_CHARS "\t\t;; # ok\n"> <LIT_CHARS "\t*)\n"> <LIT_CHARS "\t\techo \"Oops? $filename\"\n"> <LIT_CHARS "\t\tfalse\n"> <LIT_CHARS "\t\t;;\n"> <LIT_CHARS "\tesac &&\n"> <LIT_CHARS "\ttest -f \"$filename\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch from a subdirectory (2)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tfilename=$(\n"> <LIT_CHARS "\t\trm -rf sub &&\n"> <LIT_CHARS "\t\tmkdir -p sub/dir &&\n"> <LIT_CHARS "\t\tcd sub/dir &&\n"> <LIT_CHARS "\t\tgit format-patch -1 -o ..\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tcase \"$filename\" in\n"> <LIT_CHARS "\t../0*)\n"> <LIT_CHARS "\t\t;; # ok\n"> <LIT_CHARS "\t*)\n"> <LIT_CHARS "\t\techo \"Oops? $filename\"\n"> <LIT_CHARS "\t\tfalse\n"> <LIT_CHARS "\t\t;;\n"> <LIT_CHARS "\tesac &&\n"> <LIT_CHARS "\tbasename=$(expr \"$filename\" : \".*/\\(.*\\)\") &&\n"> <LIT_CHARS "\ttest -f \"sub/$basename\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch from a subdirectory (3)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -f 0* &&\n"> <LIT_CHARS "\tfilename=$(\n"> <LIT_CHARS "\t\trm -rf sub &&\n"> <LIT_CHARS "\t\tmkdir -p sub/dir &&\n"> <LIT_CHARS "\t\tcd sub/dir &&\n"> <LIT_CHARS "\t\tgit format-patch -1 -o \"$TRASH_DIRECTORY\"\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tbasename=$(expr \"$filename\" : \".*/\\(.*\\)\") &&\n"> <LIT_CHARS "\ttest -f \"$basename\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch --in-reply-to">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit format-patch -1 --stdout --in-reply-to \"baz@foo.bar\" > patch8 &&\n"> <LIT_CHARS "\tgrep \"^In-Reply-To: <baz@foo.bar>\" patch8 &&\n"> <LIT_CHARS "\tgrep \"^References: <baz@foo.bar>\" patch8\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch --signoff">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit format-patch -1 --signoff --stdout >out &&\n"> <LIT_CHARS "\tgrep \"^Signed-off-by: $GIT_COMMITTER_NAME <$GIT_COMMITTER_EMAIL>\" out\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch --notes --signoff">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit notes --ref test add -m \"test message\" HEAD &&\n"> <LIT_CHARS "\tgit format-patch -1 --signoff --stdout --notes=test >out &&\n"> <LIT_CHARS "\t# Three dashes must come after S-o-b\n"> <LIT_CHARS "\t! sed \"/^Signed-off-by: /q\" out | grep \"test message\" &&\n"> <LIT_CHARS "\tsed \"1,/^Signed-off-by: /d\" out | grep \"test message\" &&\n"> <LIT_CHARS "\t# Notes message must come after three dashes\n"> <LIT_CHARS "\t! sed \"/^---$/q\" out | grep \"test message\" &&\n"> <LIT_CHARS "\tsed \"1,/^---$/d\" out | grep \"test message\"\n">]})
  (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "fatal: --name-only does not make sense"]]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expect.name-only]} <REDIR_GREAT ">"> 1),
    >
  )
  (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "fatal: --name-status does not make sense"]]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expect.name-status]} <REDIR_GREAT ">"> 1),
    >
  )
  (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "fatal: --check does not make sense"]]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expect.check]} <REDIR_GREAT ">"> 1),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "options no longer allowed for format-patch">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git format-patch --name-only 2> output &&\n"> <LIT_CHARS "\ttest_i18ncmp expect.name-only output &&\n"> <LIT_CHARS "\ttest_must_fail git format-patch --name-status 2> output &&\n"> <LIT_CHARS "\ttest_i18ncmp expect.name-status output &&\n"> <LIT_CHARS "\ttest_must_fail git format-patch --check 2> output &&\n"> <LIT_CHARS "\ttest_i18ncmp expect.check output">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch --numstat should produce a patch">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit format-patch --numstat --stdout master..side > output &&\n"> <LIT_CHARS "\ttest 5 = $(grep \"^diff --git a/\" output | wc -l)">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch -- <path>">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit format-patch master..side -- file 2>error &&\n"> <LIT_CHARS "\t! grep \"Use .--\" error\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch --ignore-if-in-upstream HEAD">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit format-patch --ignore-if-in-upstream HEAD\n">]})
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('git_version', {[DQ [ComSub (Pipeline (Com {[LIT_CHARS git]} {[LIT_CHARS --version]}) (Com {[LIT_CHARS sed]} {[DQ [LIT_CHARS "s/.* //"]]}) )]]})])
  (FunctionDef signature []
    (Com {[LIT_CHARS printf]} {[DQ [LIT_CHARS "%s"][\ LIT_ESCAPED_CHAR "\\n"][LIT_CHARS "%s"][\ LIT_ESCAPED_CHAR "\\n"][\ LIT_ESCAPED_CHAR "\\n"]]} {[DQ [LIT_CHARS "-- "]]} {[DQ [VarSub 1 test_op=VS_TEST_COLON_HYPHEN {[VarSub git_version]}]]})
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch default signature">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit format-patch --stdout -1 | tail -n 3 >output &&\n"> <LIT_CHARS "\tsignature >expect &&\n"> <LIT_CHARS "\ttest_cmp expect output\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch --signature">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit format-patch --stdout --signature=\"my sig\" -1 | tail -n 3 >output &&\n"> <LIT_CHARS "\tsignature \"my sig\" >expect &&\n"> <LIT_CHARS "\ttest_cmp expect output\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch with format.signature config">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit config format.signature \"config sig\" &&\n"> <LIT_CHARS "\tgit format-patch --stdout -1 >output &&\n"> <LIT_CHARS "\tgrep \"config sig\" output\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch --signature overrides format.signature">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit config format.signature \"config sig\" &&\n"> <LIT_CHARS "\tgit format-patch --stdout --signature=\"overrides\" -1 >output &&\n"> <LIT_CHARS "\t! grep \"config sig\" output &&\n"> <LIT_CHARS "\tgrep \"overrides\" output\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch --no-signature ignores format.signature">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit config format.signature \"config sig\" &&\n"> <LIT_CHARS "\tgit format-patch --stdout --signature=\"my sig\" --no-signature \\\n"> <LIT_CHARS "\t\t-1 >output &&\n"> <LIT_CHARS "\tcheck_patch output &&\n"> <LIT_CHARS "\t! grep \"config sig\" output &&\n"> <LIT_CHARS "\t! grep \"my sig\" output &&\n"> <LIT_CHARS "\t! grep \"^-- \\$\" output\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch --signature --cover-letter">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit config --unset-all format.signature &&\n"> <LIT_CHARS "\tgit format-patch --stdout --signature=\"my sig\" --cover-letter \\\n"> <LIT_CHARS "\t\t-1 >output &&\n"> <LIT_CHARS "\tgrep \"my sig\" output &&\n"> <LIT_CHARS "\ttest 2 = $(grep \"my sig\" output | wc -l)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format.signature=\"\" suppresses signatures">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit config format.signature \"\" &&\n"> <LIT_CHARS "\tgit format-patch --stdout -1 >output &&\n"> <LIT_CHARS "\tcheck_patch output &&\n"> <LIT_CHARS "\t! grep \"^-- \\$\" output\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch --no-signature suppresses signatures">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit config --unset-all format.signature &&\n"> <LIT_CHARS "\tgit format-patch --stdout --no-signature -1 >output &&\n"> <LIT_CHARS "\tcheck_patch output &&\n"> <LIT_CHARS "\t! grep \"^-- \\$\" output\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch --signature=\"\" suppresses signatures">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit format-patch --stdout --signature=\"\" -1 >output &&\n"> <LIT_CHARS "\tcheck_patch output &&\n"> <LIT_CHARS "\t! grep \"^-- \\$\" output\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "prepare mail-signature input">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >mail-signature <<-\\EOF\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tTest User <test.email@kernel.org>\n"> <LIT_CHARS "\thttp://git.kernel.org/cgit/git/git.git\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit.kernel.org/?p=git/git.git;a=summary\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tEOF\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "--signature-file=file works">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit format-patch --stdout --signature-file=mail-signature -1 >output &&\n"> <LIT_CHARS "\tcheck_patch output &&\n"> <LIT_CHARS "\tsed -e \"1,/^-- \\$/d\" <output >actual &&\n"> <LIT_CHARS "\t{\n"> <LIT_CHARS "\t\tcat mail-signature && echo\n"> <LIT_CHARS "\t} >expect &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format.signaturefile works">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_config format.signaturefile mail-signature &&\n"> <LIT_CHARS "\tgit format-patch --stdout -1 >output &&\n"> <LIT_CHARS "\tcheck_patch output &&\n"> <LIT_CHARS "\tsed -e \"1,/^-- \\$/d\" <output >actual &&\n"> <LIT_CHARS "\t{\n"> <LIT_CHARS "\t\tcat mail-signature && echo\n"> <LIT_CHARS "\t} >expect &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "--no-signature suppresses format.signaturefile ">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_config format.signaturefile mail-signature &&\n"> <LIT_CHARS "\tgit format-patch --stdout --no-signature -1 >output &&\n"> <LIT_CHARS "\tcheck_patch output &&\n"> <LIT_CHARS "\t! grep \"^-- \\$\" output\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "--signature-file overrides format.signaturefile">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >other-mail-signature <<-\\EOF &&\n"> <LIT_CHARS "\tUse this other signature instead of mail-signature.\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\ttest_config format.signaturefile mail-signature &&\n"> <LIT_CHARS "\tgit format-patch --stdout \\\n"> <LIT_CHARS "\t\t\t--signature-file=other-mail-signature -1 >output &&\n"> <LIT_CHARS "\tcheck_patch output &&\n"> <LIT_CHARS "\tsed -e \"1,/^-- \\$/d\" <output >actual &&\n"> <LIT_CHARS "\t{\n"> <LIT_CHARS "\t\tcat other-mail-signature && echo\n"> <LIT_CHARS "\t} >expect &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "--signature overrides format.signaturefile">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_config format.signaturefile mail-signature &&\n"> <LIT_CHARS "\tgit format-patch --stdout --signature=\"my sig\" -1 >output &&\n"> <LIT_CHARS "\tcheck_patch output &&\n"> <LIT_CHARS "\tgrep \"my sig\" output\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS TTY]} {[SQ <LIT_CHARS "format-patch --stdout paginates">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -f pager_used &&\n"> <LIT_CHARS "\ttest_terminal env GIT_PAGER=\"wc >pager_used\" git format-patch --stdout --all &&\n"> <LIT_CHARS "\ttest_path_is_file pager_used\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS TTY]} {[SQ <LIT_CHARS "format-patch --stdout pagination can be disabled">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -f pager_used &&\n"> <LIT_CHARS "\ttest_terminal env GIT_PAGER=\"wc >pager_used\" git --no-pager format-patch --stdout --all &&\n"> <LIT_CHARS "\ttest_terminal env GIT_PAGER=\"wc >pager_used\" git -c \"pager.format-patch=false\" format-patch --stdout --all &&\n"> <LIT_CHARS "\ttest_path_is_missing pager_used &&\n"> <LIT_CHARS "\ttest_path_is_missing .git/pager_used\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch handles multi-line subjects">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -rf patches/ &&\n"> <LIT_CHARS "\techo content >>file &&\n"> <LIT_CHARS "\tfor i in one two three; do echo $i; done >msg &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\tgit commit -F msg &&\n"> <LIT_CHARS "\tgit format-patch -o patches -1 &&\n"> <LIT_CHARS "\tgrep ^Subject: patches/0001-one.patch >actual &&\n"> <LIT_CHARS "\techo \"Subject: [PATCH] one two three\" >expect &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch handles multi-line encoded subjects">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -rf patches/ &&\n"> <LIT_CHARS "\techo content >>file &&\n"> <LIT_CHARS "\tfor i in en tv\u00e5 tre; do echo $i; done >msg &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\tgit commit -F msg &&\n"> <LIT_CHARS "\tgit format-patch -o patches -1 &&\n"> <LIT_CHARS "\tgrep ^Subject: patches/0001-en.patch >actual &&\n"> <LIT_CHARS "\techo \"Subject: [PATCH] =?UTF-8?q?en=20tv=C3=A5=20tre?=\" >expect &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('M8', {[DQ [LIT_CHARS "foo bar "]]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('M64', {[VarSub M8] [VarSub M8] [VarSub M8] [VarSub M8] [VarSub M8] [VarSub M8] [VarSub M8] [VarSub M8]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('M512', {[VarSub M64] [VarSub M64] [VarSub M64] [VarSub M64] [VarSub M64] [VarSub M64] [VarSub M64] [VarSub M64]})])
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expect]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "Subject: [PATCH] foo bar foo bar foo bar foo bar foo bar foo bar foo bar foo\n"] [LIT_CHARS " bar foo bar foo bar foo bar foo bar foo bar foo bar foo bar foo bar foo bar\n"] [LIT_CHARS " foo bar foo bar foo bar foo bar foo bar foo bar foo bar foo bar foo bar foo\n"] [LIT_CHARS " bar foo bar foo bar foo bar foo bar foo bar foo bar foo bar foo bar foo bar\n"] [LIT_CHARS " foo bar foo bar foo bar foo bar foo bar foo bar foo bar foo bar foo bar foo\n"] [LIT_CHARS " bar foo bar foo bar foo bar foo bar foo bar foo bar foo bar foo bar foo bar\n"] [LIT_CHARS " foo bar foo bar foo bar foo bar foo bar foo bar foo bar foo bar foo bar\n"]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch wraps extremely long subject (ascii)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo content >>file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\tgit commit -m \"$M512\" &&\n"> <LIT_CHARS "\tgit format-patch --stdout -1 >patch &&\n"> <LIT_CHARS "\tsed -n \"/^Subject/p; /^ /p; /^$/q\" <patch >subject &&\n"> <LIT_CHARS "\ttest_cmp expect subject\n">]})
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('M8', {[DQ [LIT_CHARS "f\u00f6\u00f6 bar "]]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('M64', {[VarSub M8] [VarSub M8] [VarSub M8] [VarSub M8] [VarSub M8] [VarSub M8] [VarSub M8] [VarSub M8]})])
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('M512', {[VarSub M64] [VarSub M64] [VarSub M64] [VarSub M64] [VarSub M64] [VarSub M64] [VarSub M64] [VarSub M64]})])
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expect]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "Subject: [PATCH] =?UTF-8?q?f=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6=20bar=20f?=\n"] [LIT_CHARS " =?UTF-8?q?=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6=20bar?=\n"] [LIT_CHARS " =?UTF-8?q?=20f=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6=20?=\n"] [LIT_CHARS " =?UTF-8?q?bar=20f=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6?=\n"] [LIT_CHARS " =?UTF-8?q?=20bar=20f=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6=20bar=20f=C3=B6?=\n"] [LIT_CHARS " =?UTF-8?q?=C3=B6=20bar=20f=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6=20bar=20f?=\n"] [LIT_CHARS " =?UTF-8?q?=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6=20bar?=\n"] [LIT_CHARS " =?UTF-8?q?=20f=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6=20?=\n"] [LIT_CHARS " =?UTF-8?q?bar=20f=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6?=\n"] [LIT_CHARS " =?UTF-8?q?=20bar=20f=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6=20bar=20f=C3=B6?=\n"] [LIT_CHARS " =?UTF-8?q?=C3=B6=20bar=20f=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6=20bar=20f?=\n"] [LIT_CHARS " =?UTF-8?q?=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6=20bar?=\n"] [LIT_CHARS " =?UTF-8?q?=20f=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6=20?=\n"] [LIT_CHARS " =?UTF-8?q?bar=20f=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6?=\n"] [LIT_CHARS " =?UTF-8?q?=20bar=20f=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6=20bar=20f=C3=B6?=\n"] [LIT_CHARS " =?UTF-8?q?=C3=B6=20bar=20f=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6=20bar=20f?=\n"] [LIT_CHARS " =?UTF-8?q?=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6=20bar?=\n"] [LIT_CHARS " =?UTF-8?q?=20f=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6=20?=\n"] [LIT_CHARS " =?UTF-8?q?bar=20f=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6?=\n"] [LIT_CHARS " =?UTF-8?q?=20bar=20f=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6=20bar=20f=C3=B6?=\n"] [LIT_CHARS " =?UTF-8?q?=C3=B6=20bar=20f=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6=20bar=20f?=\n"] [LIT_CHARS " =?UTF-8?q?=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6=20bar?=\n"] [LIT_CHARS " =?UTF-8?q?=20f=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6=20bar=20f=C3=B6=C3=B6=20?=\n"] [LIT_CHARS " =?UTF-8?q?bar?=\n"]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch wraps extremely long subject (rfc2047)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -rf patches/ &&\n"> <LIT_CHARS "\techo content >>file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\tgit commit -m \"$M512\" &&\n"> <LIT_CHARS "\tgit format-patch --stdout -1 >patch &&\n"> <LIT_CHARS "\tsed -n \"/^Subject/p; /^ /p; /^$/q\" <patch >subject &&\n"> <LIT_CHARS "\ttest_cmp expect subject\n">]})
  (FunctionDef check_author []
    (AndOr OP_AND_IF
      (Com {[LIT_CHARS echo]} {[LIT_CHARS content]}
        <
        (FilenameRedirectNode filename={[LIT_CHARS file]} <REDIR_DGREAT ">>"> 1),
        >
      )
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS git]} {[LIT_CHARS add]} {[LIT_CHARS file]})
        (AndOr OP_AND_IF
          (Com {[LIT_CHARS git]} {[LIT_CHARS commit]} {[LIT_CHARS -m]} {[LIT_CHARS author-check]}
                    more_env=[('GIT_AUTHOR_NAME', {[VarSub 1]})]
          )
          (AndOr OP_AND_IF
            (Com {[LIT_CHARS git]} {[LIT_CHARS format-patch]} {[LIT_CHARS --stdout]} {[LIT_CHARS -1]}
              <
              (FilenameRedirectNode filename={[LIT_CHARS patch]} <REDIR_GREAT ">"> 1),
              >
            )
            (AndOr OP_AND_IF
              (Com {[LIT_CHARS sed]} {[LIT_CHARS -n]} {[DQ [LIT_CHARS "/^From: /p; /^ /p; /^"][LIT_OTHER "$"][LIT_CHARS /q]]}
                <
                (FilenameRedirectNode filename={[LIT_CHARS patch]} <REDIR_LESS "<"> 0),
                (FilenameRedirectNode filename={[LIT_CHARS actual]} <REDIR_GREAT ">"> 1),
                >
              )
              (Com {[LIT_CHARS test_cmp]} {[LIT_CHARS expect]} {[LIT_CHARS actual]})
            )
          )
        )
      )
    )
  )
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expect]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "From: \"Foo B. Bar\" <author@example.com>\n"]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch quotes dot in from-headers">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_author \"Foo B. Bar\"\n">]})
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expect]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "From: \"Foo \\\"The Baz\\\" Bar\" <author@example.com>\n"]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch quotes double-quote in from-headers">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_author \"Foo \\\"The Baz\\\" Bar\"\n">]})
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expect]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "From: =?UTF-8?q?F=C3=B6o=20Bar?= <author@example.com>\n"]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch uses rfc2047-encoded from-headers when necessary">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_author \"F\u00f6o Bar\"\n">]})
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expect]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "From: =?UTF-8?q?F=C3=B6o=20B=2E=20Bar?= <author@example.com>\n"]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "rfc2047-encoded from-headers leave no rfc822 specials">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_author \"F\u00f6o B. Bar\"\n">]})
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expect]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=True body_word={[DQ [LIT_CHARS "From: foo_bar_foo_bar_foo_bar_foo_bar_foo_bar_foo_bar_foo_bar_foo_bar_\n"][LIT_CHARS " <author@example.com>\n"]]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch wraps moderately long from-header (ascii)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_author \"foo_bar_foo_bar_foo_bar_foo_bar_foo_bar_foo_bar_foo_bar_foo_bar_\"\n">]})
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expect]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "From: Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar\n"] [LIT_CHARS " Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo\n"] [LIT_CHARS " Bar Foo Bar Foo Bar Foo Bar <author@example.com>\n"]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch wraps extremely long from-header (ascii)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_author \"Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar\"\n">]})
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expect]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "From: \"Foo.Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar\n"] [LIT_CHARS " Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo\n"] [LIT_CHARS " Bar Foo Bar Foo Bar Foo Bar\" <author@example.com>\n"]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch wraps extremely long from-header (rfc822)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_author \"Foo.Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar\"\n">]})
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expect]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "From: =?UTF-8?q?Fo=C3=B6=20Bar=20Foo=20Bar=20Foo=20Bar=20Foo=20Bar=20Foo?=\n"] [LIT_CHARS " =?UTF-8?q?=20Bar=20Foo=20Bar=20Foo=20Bar=20Foo=20Bar=20Foo=20Bar=20Foo=20?=\n"] [LIT_CHARS " =?UTF-8?q?Bar=20Foo=20Bar=20Foo=20Bar=20Foo=20Bar=20Foo=20Bar=20Foo=20Bar?=\n"] [LIT_CHARS " =?UTF-8?q?=20Foo=20Bar=20Foo=20Bar=20Foo=20Bar=20Foo=20Bar=20Foo=20Bar=20?=\n"] [LIT_CHARS " =?UTF-8?q?Foo=20Bar=20Foo=20Bar?= <author@example.com>\n"]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch wraps extremely long from-header (rfc2047)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_author \"Fo\u00f6 Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar Foo Bar\"\n">]})
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expect]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "Subject: header with . in it\n"]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "subject lines do not have 822 atom-quoting">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo content >>file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\tgit commit -m \"header with . in it\" &&\n"> <LIT_CHARS "\tgit format-patch -k -1 --stdout >patch &&\n"> <LIT_CHARS "\tgrep ^Subject: patch >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expect]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "Subject: [PREFIX 1/1] header with . in it\n"]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "subject prefixes have space prepended">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit format-patch -n -1 --stdout --subject-prefix=PREFIX >patch &&\n"> <LIT_CHARS "\tgrep ^Subject: patch >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expect]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "Subject: [1/1] header with . in it\n"]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "empty subject prefix does not have extra space">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit format-patch -n -1 --stdout --subject-prefix= >patch &&\n"> <LIT_CHARS "\tgrep ^Subject: patch >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS --rfc>]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expect <<-\\EOF &&\n"> <LIT_CHARS "\tSubject: [RFC PATCH 1/1] header with . in it\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tgit format-patch -n -1 --stdout --rfc >patch &&\n"> <LIT_CHARS "\tgrep ^Subject: patch >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "--from=ident notices bogus ident">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git format-patch -1 --stdout --from=foo >patch\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "--from=ident replaces author">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit format-patch -1 --stdout --from=\"Me <me@example.com>\" >patch &&\n"> <LIT_CHARS "\tcat >expect <<-\\EOF &&\n"> <LIT_CHARS "\tFrom: Me <me@example.com>\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tFrom: A U Thor <author@example.com>\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tsed -ne \"/^From:/p; /^$/p; /^---$/q\" <patch >patch.head &&\n"> <LIT_CHARS "\ttest_cmp expect patch.head\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "--from uses committer ident">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit format-patch -1 --stdout --from >patch &&\n"> <LIT_CHARS "\tcat >expect <<-\\EOF &&\n"> <LIT_CHARS "\tFrom: C O Mitter <committer@example.com>\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tFrom: A U Thor <author@example.com>\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tsed -ne \"/^From:/p; /^$/p; /^---$/q\" <patch >patch.head &&\n"> <LIT_CHARS "\ttest_cmp expect patch.head\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "--from omits redundant in-body header">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit format-patch -1 --stdout --from=\"A U Thor <author@example.com>\" >patch &&\n"> <LIT_CHARS "\tcat >expect <<-\\EOF &&\n"> <LIT_CHARS "\tFrom: A U Thor <author@example.com>\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tsed -ne \"/^From:/p; /^$/p; /^---$/q\" <patch >patch.head &&\n"> <LIT_CHARS "\ttest_cmp expect patch.head\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "in-body headers trigger content encoding">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_env GIT_AUTHOR_NAME=\"\u00e9x\u00f6t\u00ecc\" test_commit exotic &&\n"> <LIT_CHARS "\ttest_when_finished \"git reset --hard HEAD^\" &&\n"> <LIT_CHARS "\tgit format-patch -1 --stdout --from >patch &&\n"> <LIT_CHARS "\tcat >expect <<-\\EOF &&\n"> <LIT_CHARS "\tFrom: C O Mitter <committer@example.com>\n"> <LIT_CHARS "\tContent-Type: text/plain; charset=UTF-8\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tFrom: \u00e9x\u00f6t\u00ecc <author@example.com>\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tsed -ne \"/^From:/p; /^$/p; /^Content-Type/p; /^---$/q\" <patch >patch.head &&\n"> <LIT_CHARS "\ttest_cmp expect patch.head\n">]})
  (FunctionDef append_signoff []
    (AndOr OP_AND_IF
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('C', {[ComSub (Com {[LIT_CHARS git]} {[LIT_CHARS commit-tree]} {[LIT_CHARS HEAD] [LIT_OTHER "^"] [LIT_OTHER "^"] [LIT_LBRACE "{"] [LIT_CHARS tree] [LIT_RBRACE "}"]} {[LIT_CHARS -p]} {[LIT_CHARS HEAD]})]})])
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS git]} {[LIT_CHARS format-patch]} {[LIT_CHARS --stdout]} {[LIT_CHARS --signoff]} {[VarSub C] [LIT_OTHER "^"] [LIT_CHARS ..] [VarSub C]}
          <
          (FilenameRedirectNode filename={[LIT_CHARS append_signoff.patch]} <REDIR_GREAT ">"> 1),
          >
        )
        (Pipeline
          (Com {[LIT_CHARS sed]} {[LIT_CHARS -n]} {[LIT_CHARS -e]} {[DQ [LIT_CHARS "1,/^---"][LIT_OTHER "$"][LIT_CHARS /p]]} {[LIT_CHARS append_signoff.patch]})
          (Com {[LIT_CHARS egrep]} {[LIT_CHARS -n]} {[DQ [LIT_CHARS "^Subject|Sign|^"][LIT_OTHER "$"]]})
        )
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "signoff: commit with no body">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tappend_signoff </dev/null >actual &&\n"> <LIT_CHARS "\tcat <<\\EOF | sed \"s/EOL$//\" >expected &&\n"> <LIT_CHARS "4:Subject: [PATCH] EOL\n"> <LIT_CHARS "8:\n"> <LIT_CHARS "9:Signed-off-by: C O Mitter <committer@example.com>\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\ttest_cmp expected actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "signoff: commit with only subject">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo subject | append_signoff >actual &&\n"> <LIT_CHARS "\tcat >expected <<\\EOF &&\n"> <LIT_CHARS "4:Subject: [PATCH] subject\n"> <LIT_CHARS "8:\n"> <LIT_CHARS "9:Signed-off-by: C O Mitter <committer@example.com>\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\ttest_cmp expected actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "signoff: commit with only subject that does not end with NL">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tprintf subject | append_signoff >actual &&\n"> <LIT_CHARS "\tcat >expected <<\\EOF &&\n"> <LIT_CHARS "4:Subject: [PATCH] subject\n"> <LIT_CHARS "8:\n"> <LIT_CHARS "9:Signed-off-by: C O Mitter <committer@example.com>\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\ttest_cmp expected actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "signoff: no existing signoffs">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tappend_signoff <<\\EOF >actual &&\n"> <LIT_CHARS "subject\n"> <LIT_CHARS "\n"> <LIT_CHARS "body\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\tcat >expected <<\\EOF &&\n"> <LIT_CHARS "4:Subject: [PATCH] subject\n"> <LIT_CHARS "8:\n"> <LIT_CHARS "10:\n"> <LIT_CHARS "11:Signed-off-by: C O Mitter <committer@example.com>\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\ttest_cmp expected actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "signoff: no existing signoffs and no trailing NL">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tprintf \"subject\\n\\nbody\" | append_signoff >actual &&\n"> <LIT_CHARS "\tcat >expected <<\\EOF &&\n"> <LIT_CHARS "4:Subject: [PATCH] subject\n"> <LIT_CHARS "8:\n"> <LIT_CHARS "10:\n"> <LIT_CHARS "11:Signed-off-by: C O Mitter <committer@example.com>\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\ttest_cmp expected actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "signoff: some random signoff">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tappend_signoff <<\\EOF >actual &&\n"> <LIT_CHARS "subject\n"> <LIT_CHARS "\n"> <LIT_CHARS "body\n"> <LIT_CHARS "\n"> <LIT_CHARS "Signed-off-by: my@house\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\tcat >expected <<\\EOF &&\n"> <LIT_CHARS "4:Subject: [PATCH] subject\n"> <LIT_CHARS "8:\n"> <LIT_CHARS "10:\n"> <LIT_CHARS "11:Signed-off-by: my@house\n"> <LIT_CHARS "12:Signed-off-by: C O Mitter <committer@example.com>\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\ttest_cmp expected actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "signoff: misc conforming footer elements">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tappend_signoff <<\\EOF >actual &&\n"> <LIT_CHARS "subject\n"> <LIT_CHARS "\n"> <LIT_CHARS "body\n"> <LIT_CHARS "\n"> <LIT_CHARS "Signed-off-by: my@house\n"> <LIT_CHARS "(cherry picked from commit da39a3ee5e6b4b0d3255bfef95601890afd80709)\n"> <LIT_CHARS "Tested-by: Some One <someone@example.com>\n"> <LIT_CHARS "Bug: 1234\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\tcat >expected <<\\EOF &&\n"> <LIT_CHARS "4:Subject: [PATCH] subject\n"> <LIT_CHARS "8:\n"> <LIT_CHARS "10:\n"> <LIT_CHARS "11:Signed-off-by: my@house\n"> <LIT_CHARS "15:Signed-off-by: C O Mitter <committer@example.com>\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\ttest_cmp expected actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "signoff: some random signoff-alike">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tappend_signoff <<\\EOF >actual &&\n"> <LIT_CHARS "subject\n"> <LIT_CHARS "\n"> <LIT_CHARS "body\n"> <LIT_CHARS "Fooled-by-me: my@house\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\tcat >expected <<\\EOF &&\n"> <LIT_CHARS "4:Subject: [PATCH] subject\n"> <LIT_CHARS "8:\n"> <LIT_CHARS "11:\n"> <LIT_CHARS "12:Signed-off-by: C O Mitter <committer@example.com>\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\ttest_cmp expected actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "signoff: not really a signoff">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tappend_signoff <<\\EOF >actual &&\n"> <LIT_CHARS "subject\n"> <LIT_CHARS "\n"> <LIT_CHARS "I want to mention about Signed-off-by: here.\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\tcat >expected <<\\EOF &&\n"> <LIT_CHARS "4:Subject: [PATCH] subject\n"> <LIT_CHARS "8:\n"> <LIT_CHARS "9:I want to mention about Signed-off-by: here.\n"> <LIT_CHARS "10:\n"> <LIT_CHARS "11:Signed-off-by: C O Mitter <committer@example.com>\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\ttest_cmp expected actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "signoff: not really a signoff (2)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tappend_signoff <<\\EOF >actual &&\n"> <LIT_CHARS "subject\n"> <LIT_CHARS "\n"> <LIT_CHARS "My unfortunate\n"> <LIT_CHARS "Signed-off-by: example happens to be wrapped here.\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\tcat >expected <<\\EOF &&\n"> <LIT_CHARS "4:Subject: [PATCH] subject\n"> <LIT_CHARS "8:\n"> <LIT_CHARS "10:Signed-off-by: example happens to be wrapped here.\n"> <LIT_CHARS "11:\n"> <LIT_CHARS "12:Signed-off-by: C O Mitter <committer@example.com>\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\ttest_cmp expected actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "signoff: valid S-o-b paragraph in the middle">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tappend_signoff <<\\EOF >actual &&\n"> <LIT_CHARS "subject\n"> <LIT_CHARS "\n"> <LIT_CHARS "Signed-off-by: my@house\n"> <LIT_CHARS "Signed-off-by: your@house\n"> <LIT_CHARS "\n"> <LIT_CHARS "A lot of houses.\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\tcat >expected <<\\EOF &&\n"> <LIT_CHARS "4:Subject: [PATCH] subject\n"> <LIT_CHARS "8:\n"> <LIT_CHARS "9:Signed-off-by: my@house\n"> <LIT_CHARS "10:Signed-off-by: your@house\n"> <LIT_CHARS "11:\n"> <LIT_CHARS "13:\n"> <LIT_CHARS "14:Signed-off-by: C O Mitter <committer@example.com>\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\ttest_cmp expected actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "signoff: the same signoff at the end">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tappend_signoff <<\\EOF >actual &&\n"> <LIT_CHARS "subject\n"> <LIT_CHARS "\n"> <LIT_CHARS "body\n"> <LIT_CHARS "\n"> <LIT_CHARS "Signed-off-by: C O Mitter <committer@example.com>\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\tcat >expected <<\\EOF &&\n"> <LIT_CHARS "4:Subject: [PATCH] subject\n"> <LIT_CHARS "8:\n"> <LIT_CHARS "10:\n"> <LIT_CHARS "11:Signed-off-by: C O Mitter <committer@example.com>\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\ttest_cmp expected actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "signoff: the same signoff at the end, no trailing NL">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tprintf \"subject\\n\\nSigned-off-by: C O Mitter <committer@example.com>\" |\n"> <LIT_CHARS "\t\tappend_signoff >actual &&\n"> <LIT_CHARS "\tcat >expected <<\\EOF &&\n"> <LIT_CHARS "4:Subject: [PATCH] subject\n"> <LIT_CHARS "8:\n"> <LIT_CHARS "9:Signed-off-by: C O Mitter <committer@example.com>\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\ttest_cmp expected actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "signoff: the same signoff NOT at the end">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tappend_signoff <<\\EOF >actual &&\n"> <LIT_CHARS "subject\n"> <LIT_CHARS "\n"> <LIT_CHARS "body\n"> <LIT_CHARS "\n"> <LIT_CHARS "Signed-off-by: C O Mitter <committer@example.com>\n"> <LIT_CHARS "Signed-off-by: my@house\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\tcat >expected <<\\EOF &&\n"> <LIT_CHARS "4:Subject: [PATCH] subject\n"> <LIT_CHARS "8:\n"> <LIT_CHARS "10:\n"> <LIT_CHARS "11:Signed-off-by: C O Mitter <committer@example.com>\n"> <LIT_CHARS "12:Signed-off-by: my@house\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\ttest_cmp expected actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "signoff: detect garbage in non-conforming footer">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tappend_signoff <<\\EOF >actual &&\n"> <LIT_CHARS "subject\n"> <LIT_CHARS "\n"> <LIT_CHARS "body\n"> <LIT_CHARS "\n"> <LIT_CHARS "Tested-by: my@house\n"> <LIT_CHARS "Some Trash\n"> <LIT_CHARS "Signed-off-by: C O Mitter <committer@example.com>\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\tcat >expected <<\\EOF &&\n"> <LIT_CHARS "4:Subject: [PATCH] subject\n"> <LIT_CHARS "8:\n"> <LIT_CHARS "10:\n"> <LIT_CHARS "13:Signed-off-by: C O Mitter <committer@example.com>\n"> <LIT_CHARS "14:\n"> <LIT_CHARS "15:Signed-off-by: C O Mitter <committer@example.com>\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\ttest_cmp expected actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "signoff: footer begins with non-signoff without @ sign">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tappend_signoff <<\\EOF >actual &&\n"> <LIT_CHARS "subject\n"> <LIT_CHARS "\n"> <LIT_CHARS "body\n"> <LIT_CHARS "\n"> <LIT_CHARS "Reviewed-id: Noone\n"> <LIT_CHARS "Tested-by: my@house\n"> <LIT_CHARS "Change-id: Ideadbeef\n"> <LIT_CHARS "Signed-off-by: C O Mitter <committer@example.com>\n"> <LIT_CHARS "Bug: 1234\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\tcat >expected <<\\EOF &&\n"> <LIT_CHARS "4:Subject: [PATCH] subject\n"> <LIT_CHARS "8:\n"> <LIT_CHARS "10:\n"> <LIT_CHARS "14:Signed-off-by: C O Mitter <committer@example.com>\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\ttest_cmp expected actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format patch ignores color.ui">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_unconfig color.ui &&\n"> <LIT_CHARS "\tgit format-patch --stdout -1 >expect &&\n"> <LIT_CHARS "\ttest_config color.ui always &&\n"> <LIT_CHARS "\tgit format-patch --stdout -1 >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cover letter using branch description (1)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout rebuild-1 &&\n"> <LIT_CHARS "\ttest_config branch.rebuild-1.description hello &&\n"> <LIT_CHARS "\tgit format-patch --stdout --cover-letter master >actual &&\n"> <LIT_CHARS "\tgrep hello actual >/dev/null\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cover letter using branch description (2)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout rebuild-1 &&\n"> <LIT_CHARS "\ttest_config branch.rebuild-1.description hello &&\n"> <LIT_CHARS "\tgit format-patch --stdout --cover-letter rebuild-1~2..rebuild-1 >actual &&\n"> <LIT_CHARS "\tgrep hello actual >/dev/null\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cover letter using branch description (3)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout rebuild-1 &&\n"> <LIT_CHARS "\ttest_config branch.rebuild-1.description hello &&\n"> <LIT_CHARS "\tgit format-patch --stdout --cover-letter ^master rebuild-1 >actual &&\n"> <LIT_CHARS "\tgrep hello actual >/dev/null\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cover letter using branch description (4)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout rebuild-1 &&\n"> <LIT_CHARS "\ttest_config branch.rebuild-1.description hello &&\n"> <LIT_CHARS "\tgit format-patch --stdout --cover-letter master.. >actual &&\n"> <LIT_CHARS "\tgrep hello actual >/dev/null\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cover letter using branch description (5)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout rebuild-1 &&\n"> <LIT_CHARS "\ttest_config branch.rebuild-1.description hello &&\n"> <LIT_CHARS "\tgit format-patch --stdout --cover-letter -2 HEAD >actual &&\n"> <LIT_CHARS "\tgrep hello actual >/dev/null\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cover letter using branch description (6)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout rebuild-1 &&\n"> <LIT_CHARS "\ttest_config branch.rebuild-1.description hello &&\n"> <LIT_CHARS "\tgit format-patch --stdout --cover-letter -2 >actual &&\n"> <LIT_CHARS "\tgrep hello actual >/dev/null\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cover letter with nothing">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit format-patch --stdout --cover-letter >actual &&\n"> <LIT_CHARS "\ttest_line_count = 0 actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cover letter auto">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir -p tmp &&\n"> <LIT_CHARS "\ttest_when_finished \"rm -rf tmp;\n"> <LIT_CHARS "\t\tgit config --unset format.coverletter\" &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit config format.coverletter auto &&\n"> <LIT_CHARS "\tgit format-patch -o tmp -1 >list &&\n"> <LIT_CHARS "\ttest_line_count = 1 list &&\n"> <LIT_CHARS "\tgit format-patch -o tmp -2 >list &&\n"> <LIT_CHARS "\ttest_line_count = 3 list\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cover letter auto user override">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir -p tmp &&\n"> <LIT_CHARS "\ttest_when_finished \"rm -rf tmp;\n"> <LIT_CHARS "\t\tgit config --unset format.coverletter\" &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit config format.coverletter auto &&\n"> <LIT_CHARS "\tgit format-patch -o tmp --cover-letter -1 >list &&\n"> <LIT_CHARS "\ttest_line_count = 2 list &&\n"> <LIT_CHARS "\tgit format-patch -o tmp --cover-letter -2 >list &&\n"> <LIT_CHARS "\ttest_line_count = 3 list &&\n"> <LIT_CHARS "\tgit format-patch -o tmp --no-cover-letter -1 >list &&\n"> <LIT_CHARS "\ttest_line_count = 1 list &&\n"> <LIT_CHARS "\tgit format-patch -o tmp --no-cover-letter -2 >list &&\n"> <LIT_CHARS "\ttest_line_count = 2 list\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch --zero-commit">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit format-patch --zero-commit --stdout v2..v1 >patch2 &&\n"> <LIT_CHARS "\tgrep \"^From \" patch2 | sort | uniq >actual &&\n"> <LIT_CHARS "\techo \"From $_z40 Mon Sep 17 00:00:00 2001\" >expect &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "From line has expected format">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit format-patch --stdout v2..v1 >patch2 &&\n"> <LIT_CHARS "\tgrep \"^From \" patch2 >from &&\n"> <LIT_CHARS "\tgrep \"^From $_x40 Mon Sep 17 00:00:00 2001$\" patch2 >filtered &&\n"> <LIT_CHARS "\ttest_cmp from filtered\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch format.outputDirectory option">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_config format.outputDirectory patches &&\n"> <LIT_CHARS "\trm -fr patches &&\n"> <LIT_CHARS "\tgit format-patch master..side &&\n"> <LIT_CHARS "\ttest $(git rev-list master..side | wc -l) -eq $(ls patches | wc -l)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch -o overrides format.outputDirectory">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_config format.outputDirectory patches &&\n"> <LIT_CHARS "\trm -fr patches patchset &&\n"> <LIT_CHARS "\tgit format-patch master..side -o patchset &&\n"> <LIT_CHARS "\ttest_path_is_missing patches &&\n"> <LIT_CHARS "\ttest_path_is_dir patchset\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch --base">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout side &&\n"> <LIT_CHARS "\tgit format-patch --stdout --base=HEAD~3 -1 | tail -n 7 >actual &&\n"> <LIT_CHARS "\techo >expected &&\n"> <LIT_CHARS "\techo \"base-commit: $(git rev-parse HEAD~3)\" >>expected &&\n"> <LIT_CHARS "\techo \"prerequisite-patch-id: $(git show --patch HEAD~2 | git patch-id --stable | awk \"{print \\$1}\")\" >>expected &&\n"> <LIT_CHARS "\techo \"prerequisite-patch-id: $(git show --patch HEAD~1 | git patch-id --stable | awk \"{print \\$1}\")\" >>expected &&\n"> <LIT_CHARS "\tsignature >> expected &&\n"> <LIT_CHARS "\ttest_cmp expected actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch --base errors out when base commit is in revision list">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git format-patch --base=HEAD -2 &&\n"> <LIT_CHARS "\ttest_must_fail git format-patch --base=HEAD~1 -2 &&\n"> <LIT_CHARS "\tgit format-patch --stdout --base=HEAD~2 -2 >patch &&\n"> <LIT_CHARS "\tgrep \"^base-commit:\" patch >actual &&\n"> <LIT_CHARS "\techo \"base-commit: $(git rev-parse HEAD~2)\" >expected &&\n"> <LIT_CHARS "\ttest_cmp expected actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch --base errors out when base commit is not ancestor of revision list">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# For history as below:\n"> <LIT_CHARS "\t#\n"> <LIT_CHARS "\t#    ---Q---P---Z---Y---*---X\n"> <LIT_CHARS "\t#\t \\             /\n"> <LIT_CHARS "\t#\t  ------------W\n"> <LIT_CHARS "\t#\n"> <LIT_CHARS "\t# If \"format-patch Z..X\" is given, P and Z can not be specified as the base commit\n"> <LIT_CHARS "\tgit checkout -b topic1 master &&\n"> <LIT_CHARS "\tgit rev-parse HEAD >commit-id-base &&\n"> <LIT_CHARS "\ttest_commit P &&\n"> <LIT_CHARS "\tgit rev-parse HEAD >commit-id-P &&\n"> <LIT_CHARS "\ttest_commit Z &&\n"> <LIT_CHARS "\tgit rev-parse HEAD >commit-id-Z &&\n"> <LIT_CHARS "\ttest_commit Y &&\n"> <LIT_CHARS "\tgit checkout -b topic2 master &&\n"> <LIT_CHARS "\ttest_commit W &&\n"> <LIT_CHARS "\tgit merge topic1 &&\n"> <LIT_CHARS "\ttest_commit X &&\n"> <LIT_CHARS "\ttest_must_fail git format-patch --base=$(cat commit-id-P) -3 &&\n"> <LIT_CHARS "\ttest_must_fail git format-patch --base=$(cat commit-id-Z) -3 &&\n"> <LIT_CHARS "\tgit format-patch --stdout --base=$(cat commit-id-base) -3 >patch &&\n"> <LIT_CHARS "\tgrep \"^base-commit:\" patch >actual &&\n"> <LIT_CHARS "\techo \"base-commit: $(cat commit-id-base)\" >expected &&\n"> <LIT_CHARS "\ttest_cmp expected actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch --base=auto">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout -b upstream master &&\n"> <LIT_CHARS "\tgit checkout -b local upstream &&\n"> <LIT_CHARS "\tgit branch --set-upstream-to=upstream &&\n"> <LIT_CHARS "\ttest_commit N1 &&\n"> <LIT_CHARS "\ttest_commit N2 &&\n"> <LIT_CHARS "\tgit format-patch --stdout --base=auto -2 >patch &&\n"> <LIT_CHARS "\tgrep \"^base-commit:\" patch >actual &&\n"> <LIT_CHARS "\techo \"base-commit: $(git rev-parse upstream)\" >expected &&\n"> <LIT_CHARS "\ttest_cmp expected actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch errors out when history involves criss-cross">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# setup criss-cross history\n"> <LIT_CHARS "\t#\n"> <LIT_CHARS "\t#   B---M1---D\n"> <LIT_CHARS "\t#  / \\ /\n"> <LIT_CHARS "\t# A   X\n"> <LIT_CHARS "\t#  \\ / \\\n"> <LIT_CHARS "\t#   C---M2---E\n"> <LIT_CHARS "\t#\n"> <LIT_CHARS "\tgit checkout master &&\n"> <LIT_CHARS "\ttest_commit A &&\n"> <LIT_CHARS "\tgit checkout -b xb master &&\n"> <LIT_CHARS "\ttest_commit B &&\n"> <LIT_CHARS "\tgit checkout -b xc master &&\n"> <LIT_CHARS "\ttest_commit C &&\n"> <LIT_CHARS "\tgit checkout -b xbc xb -- &&\n"> <LIT_CHARS "\tgit merge xc &&\n"> <LIT_CHARS "\tgit checkout -b xcb xc -- &&\n"> <LIT_CHARS "\tgit branch --set-upstream-to=xbc &&\n"> <LIT_CHARS "\tgit merge xb &&\n"> <LIT_CHARS "\tgit checkout xbc &&\n"> <LIT_CHARS "\ttest_commit D &&\n"> <LIT_CHARS "\tgit checkout xcb &&\n"> <LIT_CHARS "\ttest_commit E &&\n"> <LIT_CHARS "\ttest_must_fail \tgit format-patch --base=auto -1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch format.useAutoBaseoption">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished \"git config --unset format.useAutoBase\" &&\n"> <LIT_CHARS "\tgit checkout local &&\n"> <LIT_CHARS "\tgit config format.useAutoBase true &&\n"> <LIT_CHARS "\tgit format-patch --stdout -1 >patch &&\n"> <LIT_CHARS "\tgrep \"^base-commit:\" patch >actual &&\n"> <LIT_CHARS "\techo \"base-commit: $(git rev-parse upstream)\" >expected &&\n"> <LIT_CHARS "\ttest_cmp expected actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch --base overrides format.useAutoBase">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_when_finished \"git config --unset format.useAutoBase\" &&\n"> <LIT_CHARS "\tgit config format.useAutoBase true &&\n"> <LIT_CHARS "\tgit format-patch --stdout --base=HEAD~1 -1 >patch &&\n"> <LIT_CHARS "\tgrep \"^base-commit:\" patch >actual &&\n"> <LIT_CHARS "\techo \"base-commit: $(git rev-parse HEAD~1)\" >expected &&\n"> <LIT_CHARS "\ttest_cmp expected actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch --base with --attach">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit format-patch --attach=mimemime --stdout --base=HEAD~ -1 >patch &&\n"> <LIT_CHARS "\tsed -n -e \"/^base-commit:/s/.*/1/p\" -e \"/^---*mimemime--$/s/.*/2/p\" \\\n"> <LIT_CHARS "\t\tpatch >actual &&\n"> <LIT_CHARS "\ttest_write_lines 1 2 >expect &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "format-patch --pretty=mboxrd">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsp=\" \" &&\n"> <LIT_CHARS "\tcat >msg <<-INPUT_END &&\n"> <LIT_CHARS "\tmboxrd should escape the body\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tFrom could trip up a loose mbox parser\n"> <LIT_CHARS "\t>From extra escape for reversibility\n"> <LIT_CHARS "\t>>From extra escape for reversibility 2\n"> <LIT_CHARS "\tfrom lower case not escaped\n"> <LIT_CHARS "\tFromm bad speling not escaped\n"> <LIT_CHARS "\t From with leading space not escaped\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tF\n"> <LIT_CHARS "\tFrom\n"> <LIT_CHARS "\tFrom$sp\n"> <LIT_CHARS "\tFrom    $sp\n"> <LIT_CHARS "\tFrom\t$sp\n"> <LIT_CHARS "\tINPUT_END\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expect <<-INPUT_END &&\n"> <LIT_CHARS "\t>From could trip up a loose mbox parser\n"> <LIT_CHARS "\t>>From extra escape for reversibility\n"> <LIT_CHARS "\t>>>From extra escape for reversibility 2\n"> <LIT_CHARS "\tfrom lower case not escaped\n"> <LIT_CHARS "\tFromm bad speling not escaped\n"> <LIT_CHARS "\t From with leading space not escaped\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tF\n"> <LIT_CHARS "\tFrom\n"> <LIT_CHARS "\tFrom\n"> <LIT_CHARS "\tFrom\n"> <LIT_CHARS "\tFrom\n"> <LIT_CHARS "\tINPUT_END\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tC=$(git commit-tree HEAD^^{tree} -p HEAD <msg) &&\n"> <LIT_CHARS "\tgit format-patch --pretty=mboxrd --stdout -1 $C~1..$C >patch &&\n"> <LIT_CHARS "\tgit grep -h --no-index -A11 \\\n"> <LIT_CHARS "\t\t\"^>From could trip up a loose mbox parser\" patch >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_done]})
)