(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "git commit porcelain-ish">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (FunctionDef commit_msg_is []
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('expect', {[LIT_CHARS commit_msg_is.expect]})])
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('actual', {[LIT_CHARS commit_msg_is.actual]})])
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS printf]} {[DQ [LIT_CHARS "%s"]]} {[DQ [ComSub (Com {[LIT_CHARS git]} {[LIT_CHARS log]} {[LIT_CHARS --pretty] [LIT_OTHER "="] [LIT_CHARS format] [LIT_OTHER ":"] [LIT_OTHER "%"] [LIT_CHARS s] [LIT_OTHER "%"] [LIT_CHARS b]} {[LIT_CHARS -1]})]]}
          <
          (FilenameRedirectNode filename={[VarSub actual]} <REDIR_GREAT ">"> 1),
          >
        )
        (AndOr OP_AND_IF
          (Com {[LIT_CHARS printf]} {[DQ [LIT_CHARS "%s"]]} {[DQ [VarSub 1]]}
            <
            (FilenameRedirectNode filename={[VarSub expect]} <REDIR_GREAT ">"> 1),
            >
          )
          (Com {[LIT_CHARS test_i18ncmp]} {[VarSub expect]} {[VarSub actual]})
        )
      )
    )
  )
  (FunctionDef check_summary_oneline []
    (List
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS test_tick]})
        (AndOr OP_AND_IF
          (Pipeline
            (Com {[LIT_CHARS git]} {[LIT_CHARS commit]} {[VarSub 3 test_op=VS_TEST_PLUS {[DQ [VarSub 3]]}]} {[LIT_CHARS -m]} {[DQ [VarSub 2]]})
            (Com {[LIT_CHARS head]} {[LIT_CHARS -1]}
              <
              (FilenameRedirectNode filename={[LIT_CHARS act]} <REDIR_GREAT ">"> 1),
              >
            )
          )
          (AndOr OP_AND_IF
            (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('SUMMARY_PREFIX', {[DQ [ComSub (Com {[LIT_CHARS git]} {[LIT_CHARS name-rev]} {[LIT_CHARS --name-only]} {[LIT_CHARS HEAD]})]]})])
            (If
              (Com {[LIT_CHARS test]} {[LIT_CHARS -n]} {[DQ [VarSub 1]]})
              (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('SUMMARY_PREFIX', {[DQ [VarSub SUMMARY_PREFIX][LIT_CHARS " ("][VarSub 1][LIT_CHARS ")"]]})])
            )
          )
        )
      )
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('SUMMARY_POSTFIX', {[DQ [ComSub (Com {[LIT_CHARS git]} {[LIT_CHARS log]} {[LIT_CHARS -1]} {[LIT_CHARS --pretty] [LIT_OTHER "="] [SQ <LIT_CHARS "format:%h">]})]]})])
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "["][VarSub SUMMARY_PREFIX][LIT_CHARS " "][VarSub SUMMARY_POSTFIX][LIT_CHARS "] "][VarSub 2]]}
          <
          (FilenameRedirectNode filename={[LIT_CHARS exp]} <REDIR_GREAT ">"> 1),
          >
        )
        (Com {[LIT_CHARS test_i18ncmp]} {[LIT_CHARS exp]} {[LIT_CHARS act]})
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "output summary format">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\techo new >file1 &&\n"> <LIT_CHARS "\tgit add file1 &&\n"> <LIT_CHARS "\tcheck_summary_oneline \"root-commit\" \"initial\" &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\techo change >>file1 &&\n"> <LIT_CHARS "\tgit add file1\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "output summary format: root-commit">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_summary_oneline \"\" \"a change\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "output summary format for commit with an empty diff">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tcheck_summary_oneline \"\" \"empty\" \"--allow-empty\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "output summary format for merges">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout -b recursive-base &&\n"> <LIT_CHARS "\ttest_commit base file1 &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout -b recursive-a recursive-base &&\n"> <LIT_CHARS "\ttest_commit commit-a file1 &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit checkout -b recursive-b recursive-base &&\n"> <LIT_CHARS "\ttest_commit commit-b file1 &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# conflict\n"> <LIT_CHARS "\tgit checkout recursive-a &&\n"> <LIT_CHARS "\ttest_must_fail git merge recursive-b &&\n"> <LIT_CHARS "\t# resolve the conflict\n"> <LIT_CHARS "\techo commit-a > file1 &&\n"> <LIT_CHARS "\tgit add file1 &&\n"> <LIT_CHARS "\tcheck_summary_oneline \"\" \"Merge\"\n">]})
  (FunctionDef output_tests_cleanup []
    (AndOr OP_AND_IF
      (Com {[LIT_CHARS git]} {[LIT_CHARS checkout]} {[LIT_CHARS master]})
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS git]} {[LIT_CHARS rm]} {[LIT_CHARS file1]})
        (Com {[LIT_CHARS git]} {[LIT_CHARS commit]} {[LIT_CHARS -m]} {[DQ [LIT_CHARS cleanup]]})
      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "the basics">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\toutput_tests_cleanup &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\techo doing partial >\"commit is\" &&\n"> <LIT_CHARS "\tmkdir not &&\n"> <LIT_CHARS "\techo very much encouraged but we should >not/forbid &&\n"> <LIT_CHARS "\tgit add \"commit is\" not &&\n"> <LIT_CHARS "\techo update added \"commit is\" file >\"commit is\" &&\n"> <LIT_CHARS "\techo also update another >not/forbid &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -a -m \"initial with -a\" &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit cat-file blob HEAD:\"commit is\" >current.1 &&\n"> <LIT_CHARS "\tgit cat-file blob HEAD:not/forbid >current.2 &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tcmp current.1 \"commit is\" &&\n"> <LIT_CHARS "\tcmp current.2 not/forbid\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS partial>]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\techo another >\"commit is\" &&\n"> <LIT_CHARS "\techo another >not/forbid &&\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -m \"partial commit to handle a file\" \"commit is\" &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tchanged=$(git diff-tree --name-only HEAD^ HEAD) &&\n"> <LIT_CHARS "\ttest \"$changed\" = \"commit is\"\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "partial modification in a subdirectory">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\ttest_tick &&\n"> <LIT_CHARS "\tgit commit -m \"partial commit to subdirectory\" not &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tchanged=$(git diff-tree -r --name-only HEAD^ HEAD) &&\n"> <LIT_CHARS "\ttest \"$changed\" = \"not/forbid\"\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "partial removal">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit rm not/forbid &&\n"> <LIT_CHARS "\tgit commit -m \"partial commit to remove not/forbid\" not &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tchanged=$(git diff-tree -r --name-only HEAD^ HEAD) &&\n"> <LIT_CHARS "\ttest \"$changed\" = \"not/forbid\" &&\n"> <LIT_CHARS "\tremain=$(git ls-tree -r --name-only HEAD) &&\n"> <LIT_CHARS "\ttest \"$remain\" = \"commit is\"\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "sign off">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t>positive &&\n"> <LIT_CHARS "\tgit add positive &&\n"> <LIT_CHARS "\tgit commit -s -m \"thank you\" &&\n"> <LIT_CHARS "\tactual=$(git cat-file commit HEAD | sed -ne \"s/Signed-off-by: //p\") &&\n"> <LIT_CHARS "\texpected=$(git var GIT_COMMITTER_IDENT | sed -e \"s/>.*/>/\") &&\n"> <LIT_CHARS "\ttest \"z$actual\" = \"z$expected\"\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "multiple -m">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t>negative &&\n"> <LIT_CHARS "\tgit add negative &&\n"> <LIT_CHARS "\tgit commit -m \"one\" -m \"two\" -m \"three\" &&\n"> <LIT_CHARS "\tactual=$(git cat-file commit HEAD | sed -e \"1,/^\\$/d\") &&\n"> <LIT_CHARS "\texpected=$(echo one; echo; echo two; echo; echo three) &&\n"> <LIT_CHARS "\ttest \"z$actual\" = \"z$expected\"\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS verbose>]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\techo minus >negative &&\n"> <LIT_CHARS "\tgit add negative &&\n"> <LIT_CHARS "\tgit status -v | sed -ne \"/^diff --git /p\" >actual &&\n"> <LIT_CHARS "\techo \"diff --git a/negative b/negative\" >expect &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "verbose respects diff config">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\ttest_config color.diff always &&\n"> <LIT_CHARS "\tgit status -v >actual &&\n"> <LIT_CHARS "\tgrep \"\\[1mdiff --git\" actual\n">]})
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('mesg_with_comment_and_newlines', {[SQ <LIT_CHARS "\n"> <LIT_CHARS "# text\n"> <LIT_CHARS "\n">]})])
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "prepare file with comment line and trailing newlines">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tprintf \"%s\" \"$mesg_with_comment_and_newlines\" >expect\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cleanup commit messages (verbatim option,-t)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\techo >>negative &&\n"> <LIT_CHARS "\tgit commit --cleanup=verbatim --no-status -t expect -a &&\n"> <LIT_CHARS "\tgit cat-file -p HEAD |sed -e \"1,/^\\$/d\" >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cleanup commit messages (verbatim option,-F)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\techo >>negative &&\n"> <LIT_CHARS "\tgit commit --cleanup=verbatim -F expect -a &&\n"> <LIT_CHARS "\tgit cat-file -p HEAD |sed -e \"1,/^\\$/d\">actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cleanup commit messages (verbatim option,-m)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\techo >>negative &&\n"> <LIT_CHARS "\tgit commit --cleanup=verbatim -m \"$mesg_with_comment_and_newlines\" -a &&\n"> <LIT_CHARS "\tgit cat-file -p HEAD |sed -e \"1,/^\\$/d\">actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cleanup commit messages (whitespace option,-F)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\techo >>negative &&\n"> <LIT_CHARS "\t{ echo;echo \"# text\";echo; } >text &&\n"> <LIT_CHARS "\techo \"# text\" >expect &&\n"> <LIT_CHARS "\tgit commit --cleanup=whitespace -F text -a &&\n"> <LIT_CHARS "\tgit cat-file -p HEAD |sed -e \"1,/^\\$/d\">actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cleanup commit messages (scissors option,-F,-e)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\techo >>negative &&\n"> <LIT_CHARS "\tcat >text <<EOF &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "# to be kept\n"> <LIT_CHARS "\n"> <LIT_CHARS "  # ------------------------ >8 ------------------------\n"> <LIT_CHARS "# to be kept, too\n"> <LIT_CHARS "# ------------------------ >8 ------------------------\n"> <LIT_CHARS "to be removed\n"> <LIT_CHARS "# ------------------------ >8 ------------------------\n"> <LIT_CHARS "to be removed, too\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tcat >expect <<EOF &&\n"> <LIT_CHARS "# to be kept\n"> <LIT_CHARS "\n"> <LIT_CHARS "  # ------------------------ >8 ------------------------\n"> <LIT_CHARS "# to be kept, too\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\tgit commit --cleanup=scissors -e -F text -a &&\n"> <LIT_CHARS "\tgit cat-file -p HEAD |sed -e \"1,/^\\$/d\">actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cleanup commit messages (scissors option,-F,-e, scissors on first line)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\techo >>negative &&\n"> <LIT_CHARS "\tcat >text <<EOF &&\n"> <LIT_CHARS "# ------------------------ >8 ------------------------\n"> <LIT_CHARS "to be removed\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\tgit commit --cleanup=scissors -e -F text -a --allow-empty-message &&\n"> <LIT_CHARS "\tgit cat-file -p HEAD |sed -e \"1,/^\\$/d\">actual &&\n"> <LIT_CHARS "\ttest_must_be_empty actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cleanup commit messages (strip option,-F)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\techo >>negative &&\n"> <LIT_CHARS "\t{ echo;echo \"# text\";echo sample;echo; } >text &&\n"> <LIT_CHARS "\techo sample >expect &&\n"> <LIT_CHARS "\tgit commit --cleanup=strip -F text -a &&\n"> <LIT_CHARS "\tgit cat-file -p HEAD |sed -e \"1,/^\\$/d\">actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cleanup commit messages (strip option,-F,-e)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\techo >>negative &&\n"> <LIT_CHARS "\t{ echo;echo sample;echo; } >text &&\n"> <LIT_CHARS "\tgit commit -e -F text -a &&\n"> <LIT_CHARS "\thead -n 4 .git/COMMIT_EDITMSG >actual\n">]})
  (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "sample\n"][LIT_CHARS "\n"][LIT_CHARS "# Please enter the commit message for your changes. Lines starting\n"][LIT_CHARS "# with '#' will be ignored, and an empty message aborts the commit."]]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS expect]} <REDIR_GREAT ">"> 1),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cleanup commit messages (strip option,-F,-e): output">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_i18ncmp expect actual\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cleanup commit message (fail on invalid cleanup mode option)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git commit --cleanup=non-existent\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cleanup commit message (fail on invalid cleanup mode configuration)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_must_fail git -c commit.cleanup=non-existent commit\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cleanup commit message (no config and no option uses default)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo content >>file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t  test_set_editor \"$TEST_DIRECTORY\"/t7500/add-content-and-comment &&\n"> <LIT_CHARS "\t  git commit --no-status\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tcommit_msg_is \"commit message\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cleanup commit message (option overrides default)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo content >>file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t  test_set_editor \"$TEST_DIRECTORY\"/t7500/add-content-and-comment &&\n"> <LIT_CHARS "\t  git commit --cleanup=whitespace --no-status\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tcommit_msg_is \"commit message # comment\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cleanup commit message (config overrides default)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo content >>file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t  test_set_editor \"$TEST_DIRECTORY\"/t7500/add-content-and-comment &&\n"> <LIT_CHARS "\t  git -c commit.cleanup=whitespace commit --no-status\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tcommit_msg_is \"commit message # comment\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cleanup commit message (option overrides config)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo content >>file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t  test_set_editor \"$TEST_DIRECTORY\"/t7500/add-content-and-comment &&\n"> <LIT_CHARS "\t  git -c commit.cleanup=whitespace commit --cleanup=default\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\tcommit_msg_is \"commit message\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cleanup commit message (default, -m)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo content >>file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\tgit commit -m \"message #comment \" &&\n"> <LIT_CHARS "\tcommit_msg_is \"message #comment\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cleanup commit message (whitespace option, -m)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo content >>file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\tgit commit --cleanup=whitespace --no-status -m \"message #comment \" &&\n"> <LIT_CHARS "\tcommit_msg_is \"message #comment\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cleanup commit message (whitespace config, -m)">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo content >>file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\tgit -c commit.cleanup=whitespace commit --no-status -m \"message #comment \" &&\n"> <LIT_CHARS "\tcommit_msg_is \"message #comment\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "message shows author when it is not equal to committer">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo >>negative &&\n"> <LIT_CHARS "\tgit commit -e -m \"sample\" -a &&\n"> <LIT_CHARS "\ttest_i18ngrep \\\n"> <LIT_CHARS "\t  \"^# Author: *A U Thor <author@example.com>\\$\" \\\n"> <LIT_CHARS "\t  .git/COMMIT_EDITMSG\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "message shows date when it is explicitly set">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit commit --allow-empty -e -m foo --date=\"2010-01-02T03:04:05\" &&\n"> <LIT_CHARS "\ttest_i18ngrep \\\n"> <LIT_CHARS "\t  \"^# Date: *Sat Jan 2 03:04:05 2010 +0000\" \\\n"> <LIT_CHARS "\t  .git/COMMIT_EDITMSG\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS AUTOIDENT]} {[SQ <LIT_CHARS "message shows committer when it is automatic">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\techo >>negative &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tsane_unset GIT_COMMITTER_EMAIL &&\n"> <LIT_CHARS "\t\tsane_unset GIT_COMMITTER_NAME &&\n"> <LIT_CHARS "\t\tgit commit -e -m \"sample\" -a\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\t# the ident is calculated from the system, so we cannot\n"> <LIT_CHARS "\t# check the actual value, only that it is there\n"> <LIT_CHARS "\ttest_i18ngrep \"^# Committer: \" .git/COMMIT_EDITMSG\n">]})
  (Com {[LIT_CHARS write_script]} {[LIT_CHARS .git/FAKE_EDITOR]}
    <
    (HereDocRedirectNode here_end='EOF' do_expansion=True body_word={[DQ [LIT_CHARS "echo editor started > "][RIGHT_D_QUOTE "\""][ComSub (Com {[LIT_CHARS pwd]})][LIT_CHARS /.git/result][RIGHT_D_QUOTE "\""][LIT_CHARS "\n"][LIT_CHARS "exit 0\n"]]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_OTHER "!"] [LIT_CHARS AUTOIDENT]} {[SQ <LIT_CHARS "do not fire editor when committer is bogus">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t>.git/result &&\n"> <LIT_CHARS "\t>expect &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\techo >>negative &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tsane_unset GIT_COMMITTER_EMAIL &&\n"> <LIT_CHARS "\t\tsane_unset GIT_COMMITTER_NAME &&\n"> <LIT_CHARS "\t\tGIT_EDITOR=\"\\\"$(pwd)/.git/FAKE_EDITOR\\\"\" &&\n"> <LIT_CHARS "\t\texport GIT_EDITOR &&\n"> <LIT_CHARS "\t\ttest_must_fail git commit -e -m sample -a\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\ttest_cmp expect .git/result\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "do not fire editor if -m <msg> was given">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo tick >file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\techo \"editor not started\" >.git/result &&\n"> <LIT_CHARS "\t(GIT_EDITOR=\"\\\"$(pwd)/.git/FAKE_EDITOR\\\"\" git commit -m tick) &&\n"> <LIT_CHARS "\ttest \"$(cat .git/result)\" = \"editor not started\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "do not fire editor if -m \"\" was given">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo tock >file &&\n"> <LIT_CHARS "\tgit add file &&\n"> <LIT_CHARS "\techo \"editor not started\" >.git/result &&\n"> <LIT_CHARS "\t(GIT_EDITOR=\"\\\"$(pwd)/.git/FAKE_EDITOR\\\"\" \\\n"> <LIT_CHARS "\t git commit -m \"\" --allow-empty-message) &&\n"> <LIT_CHARS "\ttest \"$(cat .git/result)\" = \"editor not started\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "do not fire editor in the presence of conflicts">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit clean -f &&\n"> <LIT_CHARS "\techo f >g &&\n"> <LIT_CHARS "\tgit add g &&\n"> <LIT_CHARS "\tgit commit -m \"add g\" &&\n"> <LIT_CHARS "\tgit branch second &&\n"> <LIT_CHARS "\techo master >g &&\n"> <LIT_CHARS "\techo g >h &&\n"> <LIT_CHARS "\tgit add g h &&\n"> <LIT_CHARS "\tgit commit -m \"modify g and add h\" &&\n"> <LIT_CHARS "\tgit checkout second &&\n"> <LIT_CHARS "\techo second >g &&\n"> <LIT_CHARS "\tgit add g &&\n"> <LIT_CHARS "\tgit commit -m second &&\n"> <LIT_CHARS "\t# Must fail due to conflict\n"> <LIT_CHARS "\ttest_must_fail git cherry-pick -n master &&\n"> <LIT_CHARS "\techo \"editor not started\" >.git/result &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tGIT_EDITOR=\"\\\"$(pwd)/.git/FAKE_EDITOR\\\"\" &&\n"> <LIT_CHARS "\t\texport GIT_EDITOR &&\n"> <LIT_CHARS "\t\ttest_must_fail git commit\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\ttest \"$(cat .git/result)\" = \"editor not started\"\n">]})
  (Com {[LIT_CHARS write_script]} {[LIT_CHARS .git/FAKE_EDITOR]}
    <
    (HereDocRedirectNode here_end='EOF' do_expansion=True body_word={[DQ [LIT_CHARS "# kill -TERM command added below.\n"]]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS EXECKEEPSPID]} {[SQ <LIT_CHARS "a SIGTERM should break locks">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo >>negative &&\n"> <LIT_CHARS "\t! \"$SHELL_PATH\" -c ">] [\ LIT_ESCAPED_CHAR "\\'"] [SQ <LIT_CHARS "\n"> <LIT_CHARS "\t  echo kill -TERM $$ >> .git/FAKE_EDITOR\n"> <LIT_CHARS "\t  GIT_EDITOR=.git/FAKE_EDITOR\n"> <LIT_CHARS "\t  export GIT_EDITOR\n"> <LIT_CHARS "\t  exec git commit -a">] [\ LIT_ESCAPED_CHAR "\\'"] [SQ <LIT_CHARS " &&\n"> <LIT_CHARS "\ttest ! -f .git/index.lock\n">]})
  (Com {[LIT_CHARS rm]} {[LIT_CHARS -f]} {[LIT_CHARS .git/MERGE_MSG]} {[LIT_CHARS .git/COMMIT_EDITMSG]})
  (Com {[LIT_CHARS git]} {[LIT_CHARS reset]} {[LIT_CHARS -q]} {[LIT_CHARS --hard]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "Hand committing of a redundant merge removes dups">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit rev-parse second master >expect &&\n"> <LIT_CHARS "\ttest_must_fail git merge second master &&\n"> <LIT_CHARS "\tgit checkout master g &&\n"> <LIT_CHARS "\tEDITOR=: git commit -a &&\n"> <LIT_CHARS "\tgit cat-file commit HEAD | sed -n -e \"s/^parent //p\" -e \"/^$/q\" >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "A single-liner subject with a token plus colon is not a footer">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tgit reset --hard &&\n"> <LIT_CHARS "\tgit commit -s -m \"hello: kitty\" --allow-empty &&\n"> <LIT_CHARS "\tgit cat-file commit HEAD | sed -e \"1,/^$/d\" >actual &&\n"> <LIT_CHARS "\ttest_line_count = 3 actual\n"> <LIT_CHARS "\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "commit -s places sob on third line after two empty lines">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit commit -s --allow-empty --allow-empty-message &&\n"> <LIT_CHARS "\tcat <<-EOF >expect &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tSigned-off-by: $GIT_COMMITTER_NAME <$GIT_COMMITTER_EMAIL>\n"> <LIT_CHARS "\n"> <LIT_CHARS "\tEOF\n"> <LIT_CHARS "\tsed -e \"/^#/d\" -e \"s/^:.*//\" .git/COMMIT_EDITMSG >actual &&\n"> <LIT_CHARS "\ttest_cmp expect actual\n">]})
  (Com {[LIT_CHARS write_script]} {[LIT_CHARS .git/FAKE_EDITOR]}
    <
    (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "mv \"$1\" \"$1.orig\"\n"] [LIT_CHARS "(\n"] [LIT_CHARS "\techo message\n"] [LIT_CHARS "\tcat \"$1.orig\"\n"] [LIT_CHARS ") >\"$1\"\n"]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS echo]} {[SQ <LIT_CHARS "## Custom template">]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS template]} <REDIR_GREAT ">"> 1),
    >
  )
  (FunctionDef try_commit []
    (AndOr OP_AND_IF
      (Com {[LIT_CHARS git]} {[LIT_CHARS reset]} {[LIT_CHARS --hard]})
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS echo]}
          <
          (FilenameRedirectNode filename={[LIT_CHARS negative]} <REDIR_DGREAT ">>"> 1),
          >
        )
        (AndOr OP_AND_IF
          (Com {[LIT_CHARS git]} {[LIT_CHARS commit]} {[LIT_CHARS -a]} {[VarSub *]} {[VarSub use_template]}
                    more_env=[('GIT_EDITOR', {[LIT_CHARS .git/FAKE_EDITOR]})]
          )
          (Case to_match={[DQ [VarSub use_template]]}, pat_word_list=[[{[SQ ]}], [{[LIT_OTHER "*"]}]]
            (Com {[LIT_CHARS test_i18ngrep]} {[LIT_OTHER "!"]} {[DQ [LIT_CHARS "^## Custom template"]]} {[LIT_CHARS .git/COMMIT_EDITMSG]})
            (Com {[LIT_CHARS test_i18ngrep]} {[DQ [LIT_CHARS "^## Custom template"]]} {[LIT_CHARS .git/COMMIT_EDITMSG]})
          )
        )
      )
    )
  )
  (FunctionDef try_commit_status_combo []
    (List
      (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS commit>]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\ttry_commit \"\" &&\n"> <LIT_CHARS "\t\ttest_i18ngrep \"^# Changes to be committed:\" .git/COMMIT_EDITMSG\n"> <LIT_CHARS "\t">]})
      (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "commit --status">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\ttry_commit --status &&\n"> <LIT_CHARS "\t\ttest_i18ngrep \"^# Changes to be committed:\" .git/COMMIT_EDITMSG\n"> <LIT_CHARS "\t">]})
      (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "commit --no-status">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\ttry_commit --no-status &&\n"> <LIT_CHARS "\t\ttest_i18ngrep ! \"^# Changes to be committed:\" .git/COMMIT_EDITMSG\n"> <LIT_CHARS "\t">]})
      (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "commit with commit.status = yes">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\ttest_config commit.status yes &&\n"> <LIT_CHARS "\t\ttry_commit \"\" &&\n"> <LIT_CHARS "\t\ttest_i18ngrep \"^# Changes to be committed:\" .git/COMMIT_EDITMSG\n"> <LIT_CHARS "\t">]})
      (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "commit with commit.status = no">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\ttest_config commit.status no &&\n"> <LIT_CHARS "\t\ttry_commit \"\" &&\n"> <LIT_CHARS "\t\ttest_i18ngrep ! \"^# Changes to be committed:\" .git/COMMIT_EDITMSG\n"> <LIT_CHARS "\t">]})
      (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "commit --status with commit.status = yes">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\ttest_config commit.status yes &&\n"> <LIT_CHARS "\t\ttry_commit --status &&\n"> <LIT_CHARS "\t\ttest_i18ngrep \"^# Changes to be committed:\" .git/COMMIT_EDITMSG\n"> <LIT_CHARS "\t">]})
      (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "commit --no-status with commit.status = yes">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\ttest_config commit.status yes &&\n"> <LIT_CHARS "\t\ttry_commit --no-status &&\n"> <LIT_CHARS "\t\ttest_i18ngrep ! \"^# Changes to be committed:\" .git/COMMIT_EDITMSG\n"> <LIT_CHARS "\t">]})
      (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "commit --status with commit.status = no">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\ttest_config commit.status no &&\n"> <LIT_CHARS "\t\ttry_commit --status &&\n"> <LIT_CHARS "\t\ttest_i18ngrep \"^# Changes to be committed:\" .git/COMMIT_EDITMSG\n"> <LIT_CHARS "\t">]})
      (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "commit --no-status with commit.status = no">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\ttest_config commit.status no &&\n"> <LIT_CHARS "\t\ttry_commit --no-status &&\n"> <LIT_CHARS "\t\ttest_i18ngrep ! \"^# Changes to be committed:\" .git/COMMIT_EDITMSG\n"> <LIT_CHARS "\t">]})
    )
  )
  (Com {[LIT_CHARS try_commit_status_combo]})
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('use_template', {[DQ [LIT_CHARS "-t template"]]})])
  (Com {[LIT_CHARS try_commit_status_combo]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "commit --status with custom comment character">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_config core.commentchar \";\" &&\n"> <LIT_CHARS "\ttry_commit --status &&\n"> <LIT_CHARS "\ttest_i18ngrep \"^; Changes to be committed:\" .git/COMMIT_EDITMSG\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "switch core.commentchar">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_commit \"#foo\" foo &&\n"> <LIT_CHARS "\tGIT_EDITOR=.git/FAKE_EDITOR git -c core.commentChar=auto commit --amend &&\n"> <LIT_CHARS "\ttest_i18ngrep \"^; Changes to be committed:\" .git/COMMIT_EDITMSG\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "switch core.commentchar but out of options">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >text <<\\EOF &&\n"> <LIT_CHARS "# 1\n"> <LIT_CHARS "; 2\n"> <LIT_CHARS "@ 3\n"> <LIT_CHARS "! 4\n"> <LIT_CHARS "$ 5\n"> <LIT_CHARS "% 6\n"> <LIT_CHARS "^ 7\n"> <LIT_CHARS "& 8\n"> <LIT_CHARS "| 9\n"> <LIT_CHARS ": 10\n"> <LIT_CHARS "EOF\n"> <LIT_CHARS "\tgit commit --amend -F text &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\ttest_set_editor .git/FAKE_EDITOR &&\n"> <LIT_CHARS "\t\ttest_must_fail git -c core.commentChar=auto commit --amend\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_done]})
)