(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "Test custom diff function name patterns">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./test-lib.sh]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS setup>]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t# a non-trivial custom pattern\n"> <LIT_CHARS "\tgit config diff.custom1.funcname \"!static\n"> <LIT_CHARS "!String\n"> <LIT_CHARS "[^ \t].*s.*\" &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# a custom pattern which matches to end of line\n"> <LIT_CHARS "\tgit config diff.custom2.funcname \"......Beer\\$\" &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# alternation in pattern\n"> <LIT_CHARS "\tgit config diff.custom3.funcname \"Beer$\" &&\n"> <LIT_CHARS "\tgit config diff.custom3.xfuncname \"^[ \t]*((public|static).*)$\" &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# for regexp compilation tests\n"> <LIT_CHARS "\techo A >A.java &&\n"> <LIT_CHARS "\techo B >B.java\n">]})
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('diffpatterns', {[DQ [LIT_CHARS "\n"][LIT_CHARS "\tada\n"][LIT_CHARS "\tbibtex\n"][LIT_CHARS "\tcpp\n"][LIT_CHARS "\tcsharp\n"][LIT_CHARS "\tcss\n"][LIT_CHARS "\tfortran\n"][LIT_CHARS "\tfountain\n"][LIT_CHARS "\thtml\n"][LIT_CHARS "\tjava\n"][LIT_CHARS "\tmatlab\n"][LIT_CHARS "\tobjc\n"][LIT_CHARS "\tpascal\n"][LIT_CHARS "\tperl\n"][LIT_CHARS "\tphp\n"][LIT_CHARS "\tpython\n"][LIT_CHARS "\truby\n"][LIT_CHARS "\ttex\n"][LIT_CHARS "\tcustom1\n"][LIT_CHARS "\tcustom2\n"][LIT_CHARS "\tcustom3\n"]]})])
  (For p [{[VarSub diffpatterns]}])
    (List
      (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "builtin "][VarSub p][LIT_CHARS " pattern compiles"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\techo \"*.java diff=$p\" >.gitattributes &&\n"> <LIT_CHARS "\t\ttest_expect_code 1 git diff --no-index \\\n"> <LIT_CHARS "\t\t\tA.java B.java 2>msg &&\n"> <LIT_CHARS "\t\ttest_i18ngrep ! fatal msg &&\n"> <LIT_CHARS "\t\ttest_i18ngrep ! error msg\n"> <LIT_CHARS "\t">]})
      (Com {[LIT_CHARS test_expect_success]} {[DQ [LIT_CHARS "builtin "][VarSub p][LIT_CHARS " wordRegex pattern compiles"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\techo \"*.java diff=$p\" >.gitattributes &&\n"> <LIT_CHARS "\t\ttest_expect_code 1 git diff --no-index --word-diff \\\n"> <LIT_CHARS "\t\t\tA.java B.java 2>msg &&\n"> <LIT_CHARS "\t\ttest_i18ngrep ! fatal msg &&\n"> <LIT_CHARS "\t\ttest_i18ngrep ! error msg\n"> <LIT_CHARS "\t">]})
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "last regexp must not be negated">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo \"*.java diff=java\" >.gitattributes &&\n"> <LIT_CHARS "\ttest_config diff.java.funcname \"!static\" &&\n"> <LIT_CHARS "\ttest_expect_code 128 git diff --no-index A.java B.java 2>msg &&\n"> <LIT_CHARS "\ttest_i18ngrep \": Last expression must not be negated:\" msg\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup hunk header tests">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tfor i in $diffpatterns\n"> <LIT_CHARS "\tdo\n"> <LIT_CHARS "\t\techo \"$i-* diff=$i\"\n"> <LIT_CHARS "\tdone > .gitattributes &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# add all test files to the index\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd \"$TEST_DIRECTORY\"/t4018 &&\n"> <LIT_CHARS "\t\tgit --git-dir=\"$TRASH_DIRECTORY/.git\" add .\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# place modified files in the worktree\n"> <LIT_CHARS "\tfor i in $(git ls-files)\n"> <LIT_CHARS "\tdo\n"> <LIT_CHARS "\t\tsed -e \"s/ChangeMe/IWasChanged/\" <\"$TEST_DIRECTORY/t4018/$i\" >\"$i\" || return 1\n"> <LIT_CHARS "\tdone\n">]})
  (For i [{[ComSub (Com {[LIT_CHARS git]} {[LIT_CHARS ls-files]})]}])
    (List
      (If
        (Com {[LIT_CHARS grep]} {[LIT_CHARS broken]} {[DQ [VarSub i]]}
          <
          (FilenameRedirectNode filename={[LIT_CHARS /dev/null]} <REDIR_GREAT ">"> 1),
          (DescriptorRedirectNode target={[LIT_CHARS 1]} <REDIR_GREATAND "2>&"> 2),
          >
        )
        (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('result', {[LIT_CHARS failure]})])
        (ElseTrue)
        (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('result', {[LIT_CHARS success]})])
      )
      (Com {[LIT_CHARS test_expect_] [VarSub result]} {[DQ [LIT_CHARS "hunk header: "][VarSub i]]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\t\ttest_when_finished 'cat actual' &&\t# for debugging only\n"][LIT_CHARS "\t\tgit diff -U1 "][VarSub i][LIT_CHARS " >actual &&\n"][LIT_CHARS "\t\tgrep '@@ .* @@.*RIGHT' actual\n"][LIT_CHARS "\t"]]})
    )
  )
  (Com {[LIT_CHARS test_done]})
)