(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]}  )
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('LF', {[SQ <LIT_CHARS "\n">]})])
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS Beer.java]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "public class Beer\n"] [LIT_CHARS "{\n"] [LIT_CHARS "\tint special;\n"] [LIT_CHARS "\tpublic static void main(String args[])\n"] [LIT_CHARS "\t{\n"] [LIT_CHARS "\t\tString s=\" \";\n"] [LIT_CHARS "\t\tfor(int x = 99; x > 0; x--)\n"] [LIT_CHARS "\t\t{\n"] [LIT_CHARS "\t\t\tSystem.out.print(x + \" bottles of beer on the wall \"\n"] [LIT_CHARS "\t\t\t\t+ x + \" bottles of beer\\n\"\n"] [LIT_CHARS "\t\t\t\t+ \"Take one down, pass it around, \" + (x - 1)\n"] [LIT_CHARS "\t\t\t\t+ \" bottles of beer on the wall.\\n\");\n"] [LIT_CHARS "\t\t}\n"] [LIT_CHARS "\t\tSystem.out.print(\"Go to the store, buy some more,\\n\"\n"] [LIT_CHARS "\t\t\t+ \"99 bottles of beer on the wall.\\n\");\n"] [LIT_CHARS "\t}\n"] [LIT_CHARS "}\n"]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS sed]} {[SQ <LIT_CHARS "s/beer\\\\/beer,\\\\/">]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS Beer.java]} <REDIR_LESS "<"> 0),
    (FilenameRedirectNode filename={[LIT_CHARS Beer-correct.java]} <REDIR_GREAT ">"> 1),
    >
  )
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS Beer.perl]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOT' do_expansion=False body_word={[LIT_CHARS "package Beer;\n"] [LIT_CHARS "\n"] [LIT_CHARS "use strict;\n"] [LIT_CHARS "use warnings;\n"] [LIT_CHARS "use parent qw(Exporter);\n"] [LIT_CHARS "our @EXPORT_OK = qw(round finalround);\n"] [LIT_CHARS "\n"] [LIT_CHARS "sub other; # forward declaration\n"] [LIT_CHARS "\n"] [LIT_CHARS "# hello\n"] [LIT_CHARS "\n"] [LIT_CHARS "sub round {\n"] [LIT_CHARS "\tmy ($n) = @_;\n"] [LIT_CHARS "\tprint \"$n bottles of beer on the wall \";\n"] [LIT_CHARS "\tprint \"$n bottles of beer\\n\";\n"] [LIT_CHARS "\tprint \"Take one down, pass it around, \";\n"] [LIT_CHARS "\t$n = $n - 1;\n"] [LIT_CHARS "\tprint \"$n bottles of beer on the wall.\\n\";\n"] [LIT_CHARS "}\n"] [LIT_CHARS "\n"] [LIT_CHARS "sub finalround\n"] [LIT_CHARS "{\n"] [LIT_CHARS "\tprint \"Go to the store, buy some more\\n\";\n"] [LIT_CHARS "\tprint \"99 bottles of beer on the wall.\\n\");\n"] [LIT_CHARS "}\n"] [LIT_CHARS "\n"] [LIT_CHARS "sub withheredocument {\n"] [LIT_CHARS "\tprint <<\"EOF\"\n"] [LIT_CHARS "decoy here-doc\n"] [LIT_CHARS "EOF\n"] [LIT_CHARS "\t# some lines of context\n"] [LIT_CHARS "\t# to pad it out\n"] [LIT_CHARS "\tprint \"hello\\n\";\n"] [LIT_CHARS "}\n"] [LIT_CHARS "\n"] [LIT_CHARS "__END__\n"] [LIT_CHARS "\n"] [LIT_CHARS "=head1 NAME\n"] [LIT_CHARS "\n"] [LIT_CHARS "Beer - subroutine to output fragment of a drinking song\n"] [LIT_CHARS "\n"] [LIT_CHARS "=head1 SYNOPSIS\n"] [LIT_CHARS "\n"] [LIT_CHARS "\tuse Beer qw(round finalround);\n"] [LIT_CHARS "\n"] [LIT_CHARS "\tsub song {\n"] [LIT_CHARS "\t\tfor (my $i = 99; $i > 0; $i--) {\n"] [LIT_CHARS "\t\t\tround $i;\n"] [LIT_CHARS "\t\t}\n"] [LIT_CHARS "\t\tfinalround;\n"] [LIT_CHARS "\t}\n"] [LIT_CHARS "\n"] [LIT_CHARS "\tsong;\n"] [LIT_CHARS "\n"] [LIT_CHARS "=cut\n"]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS sed]} {[LIT_CHARS -e]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ts/hello/goodbye/\n"> <LIT_CHARS "\ts/beer\\\\/beer,\\\\/\n"> <LIT_CHARS "\ts/more\\\\/more,\\\\/\n"> <LIT_CHARS "\ts/song;/song();/\n">]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS Beer.perl]} <REDIR_LESS "<"> 0),
    (FilenameRedirectNode filename={[LIT_CHARS Beer-correct.perl]} <REDIR_GREAT ">"> 1),
    >
  )
  (FunctionDef test_config []
    (AndOr OP_AND_IF
      (Com {[LIT_CHARS git]} {[LIT_CHARS config]} {[DQ [VarSub 1]]} {[DQ [VarSub 2]]}      )
      (Com {[LIT_CHARS test_when_finished]} {[DQ [LIT_CHARS "git config --unset "][VarSub 1]]}      )
    )
  )
  (FunctionDef test_expect_funcname []
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('lang', {[VarSub 2 test_op=VS_TEST_HYPHEN {[LIT_CHARS java]}]})])
      (AndOr OP_AND_IF
        (Com {[LIT_CHARS test_expect_code]} {[LIT_CHARS 1]} {[LIT_CHARS git]} {[LIT_CHARS diff]} {[LIT_CHARS --no-index]} {[LIT_CHARS -U1]} {[DQ [LIT_CHARS Beer.][VarSub lang]]} {[DQ [LIT_CHARS Beer-correct.][VarSub lang]]}
          <
          (FilenameRedirectNode filename={[LIT_CHARS diff]} <REDIR_GREAT ">"> 1),
          >
        )
        (Com {[LIT_CHARS grep]} {[DQ [LIT_CHARS "^@@.*@@ "][VarSub 1]]} {[LIT_CHARS diff]}        )
      )
    )
  )
  (For p [{[LIT_CHARS bibtex]}, {[LIT_CHARS cpp]}, {[LIT_CHARS csharp]}, {[LIT_CHARS fortran]}, {[LIT_CHARS html]}, {[LIT_CHARS java]}, {[LIT_CHARS matlab]}, {[LIT_CHARS objc]}, {[LIT_CHARS pascal]}, {[LIT_CHARS perl]}, {[LIT_CHARS php]}, {[LIT_CHARS python]}, {[LIT_CHARS ruby]}, {[LIT_CHARS tex]}])
    (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\tBeer.java Beer-correct.java 2>msg &&\n"> <LIT_CHARS "\t\t! grep fatal msg &&\n"> <LIT_CHARS "\t\t! grep 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\tBeer.java Beer-correct.java 2>msg &&\n"> <LIT_CHARS "\t\t! grep fatal msg &&\n"> <LIT_CHARS "\t\t! grep error msg\n"> <LIT_CHARS "\t">]}      )
    )
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "default behaviour">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\trm -f .gitattributes &&\n"> <LIT_CHARS "\ttest_expect_funcname \"public class Beer\\$\"\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "set up .gitattributes declaring drivers to test">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >.gitattributes <<-\\EOF\n"> <LIT_CHARS "\t*.java diff=java\n"> <LIT_CHARS "\t*.perl diff=perl\n"> <LIT_CHARS "\tEOF\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "preset java pattern">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_expect_funcname \"public static void main(\"\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "preset perl pattern">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_expect_funcname \"sub round {\\$\" perl\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "perl pattern accepts K&R style brace placement, too">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_expect_funcname \"sub finalround\\$\" perl\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "but is not distracted by end of <<here document">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_expect_funcname \"sub withheredocument {\\$\" perl\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "perl pattern is not distracted by sub within POD">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_expect_funcname \"=head\" perl\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "perl pattern gets full line of POD header">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_expect_funcname \"=head1 SYNOPSIS\\$\" perl\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "perl pattern is not distracted by forward declaration">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_expect_funcname \"package Beer;\\$\" perl\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "custom pattern">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_config diff.java.funcname \"!static\n"> <LIT_CHARS "!String\n"> <LIT_CHARS "[^ \t].*s.*\" &&\n"> <LIT_CHARS "\ttest_expect_funcname \"int special;\\$\"\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "last regexp must not be negated">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_config diff.java.funcname \"!static\" &&\n"> <LIT_CHARS "\ttest_expect_code 128 git diff --no-index Beer.java Beer-correct.java 2>msg &&\n"> <LIT_CHARS "\tgrep \": Last expression must not be negated:\" msg\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "pattern which matches to end of line">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_config diff.java.funcname \"Beer\\$\" &&\n"> <LIT_CHARS "\ttest_expect_funcname \"Beer\\$\"\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "alternation in pattern">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest_config diff.java.funcname \"Beer$\" &&\n"> <LIT_CHARS "\ttest_config diff.java.xfuncname \"^[ \t]*((public|static).*)$\" &&\n"> <LIT_CHARS "\ttest_expect_funcname \"public static void main(\"\n">]}  )
  (Com {[LIT_CHARS test_done]}  )
)