(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "git svn honors i18n.commitEncoding in config">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./lib-git-svn.sh]})
  (FunctionDef compare_git_head_with []
    (List
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('nr', {[ComSub (Com redirects=[(FilenameRedirectNode filename={[DQ [VarSub 1]]} <REDIR_LESS "<"> 0)]{[LIT_CHARS wc]} {[LIT_CHARS -l]})]})])
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('a', {[LIT_CHARS 7]})])
      (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('b', {[ArithSub {A2 AS_OP_MINUS {A2 AS_OP_PLUS {A Atom NODE_ARITH_WORD {[VarSub a]}} {A Atom NODE_ARITH_WORD {[VarSub nr]}}} {A Atom NODE_ARITH_WORD {[AS_NUM_LITERAL 1]}}}]})])
      (AndOr OP_AND_IF
        (Pipeline
          (Com {[LIT_CHARS git]} {[LIT_CHARS cat-file]} {[LIT_CHARS commit]} {[LIT_CHARS HEAD]})
          (Com {[LIT_CHARS sed]} {[LIT_CHARS -ne]} {[DQ [VarSub a][LIT_CHARS ","][VarSub b][LIT_CHARS p]]}
            <
            (FilenameRedirectNode filename={[LIT_CHARS current]} <REDIR_GREAT ">"> 1),
            >
          )
        )
        (Com {[LIT_CHARS test_cmp]} {[LIT_CHARS current]} {[DQ [VarSub 1]]})
      )
    )
  )
  (Com {[LIT_CHARS prepare_a_utf8_locale]})
  (FunctionDef compare_svn_head_with []
    (AndOr OP_AND_IF
      (Pipeline
        (Com {[LIT_CHARS svn]} {[LIT_CHARS log]} {[ComSub (Com {[LIT_CHARS git]} {[LIT_CHARS svn]} {[LIT_CHARS info]} {[LIT_CHARS --url]})]}
                more_env=[('LC_ALL', {[DQ [VarSub a_utf8_locale]]})]
        )
        (Com {[LIT_CHARS perl]} {[LIT_CHARS -w]} {[LIT_CHARS -e]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\tuse bytes;\n"> <LIT_CHARS "\t\t$/ = (\"-\"x72) . \"\\n\";\n"> <LIT_CHARS "\t\tmy @x = <STDIN>;\n"> <LIT_CHARS "\t\t@x = split(/\\n/, $x[1]);\n"> <LIT_CHARS "\t\tsplice(@x, 0, 2);\n"> <LIT_CHARS "\t\t$x[-1] = \"\";\n"> <LIT_CHARS "\t\tprint join(\"\\n\", @x);\n"> <LIT_CHARS "\t">]}
          <
          (FilenameRedirectNode filename={[LIT_CHARS current]} <REDIR_GREAT ">"> 1),
          >
        )
      )
      (Com {[LIT_CHARS test_cmp]} {[LIT_CHARS current]} {[DQ [VarSub 1]]})
    )
  )
  (For H [{[LIT_CHARS ISO8859-1]}, {[LIT_CHARS eucJP]}, {[LIT_CHARS ISO-2022-JP]}])
    (Com {[LIT_CHARS test_expect_success]} {[DQ [VarSub H][LIT_CHARS " setup"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\tmkdir $H &&\n"> <LIT_CHARS "\t\tsvn_cmd import -m \"$H test\" $H \"$svnrepo\"/$H &&\n"> <LIT_CHARS "\t\tgit svn clone \"$svnrepo\"/$H $H\n"> <LIT_CHARS "\t">]})
  )
  (For H [{[LIT_CHARS ISO8859-1]}, {[LIT_CHARS eucJP]}, {[LIT_CHARS ISO-2022-JP]}])
    (Com {[LIT_CHARS test_expect_success]} {[DQ [VarSub H][LIT_CHARS " commit on git side"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd $H &&\n"> <LIT_CHARS "\t\tgit config i18n.commitencoding $H &&\n"> <LIT_CHARS "\t\tgit checkout -b t refs/remotes/git-svn &&\n"> <LIT_CHARS "\t\techo $H >F &&\n"> <LIT_CHARS "\t\tgit add F &&\n"> <LIT_CHARS "\t\tgit commit -a -F \"$TEST_DIRECTORY\"/t3900/$H.txt &&\n"> <LIT_CHARS "\t\tE=$(git cat-file commit HEAD | sed -ne \"s/^encoding //p\") &&\n"> <LIT_CHARS "\t\ttest \"z$E\" = \"z$H\"\n"> <LIT_CHARS "\t\tcompare_git_head_with \"$TEST_DIRECTORY\"/t3900/$H.txt\n"> <LIT_CHARS "\t)\n"> <LIT_CHARS "\t">]})
  )
  (For H [{[LIT_CHARS ISO8859-1]}, {[LIT_CHARS eucJP]}, {[LIT_CHARS ISO-2022-JP]}])
    (Com {[LIT_CHARS test_expect_success]} {[DQ [VarSub H][LIT_CHARS " dcommit to svn"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd $H &&\n"> <LIT_CHARS "\t\tgit svn dcommit &&\n"> <LIT_CHARS "\t\tgit cat-file commit HEAD | grep git-svn-id: &&\n"> <LIT_CHARS "\t\tE=$(git cat-file commit HEAD | sed -ne \"s/^encoding //p\") &&\n"> <LIT_CHARS "\t\ttest \"z$E\" = \"z$H\" &&\n"> <LIT_CHARS "\t\tcompare_git_head_with \"$TEST_DIRECTORY\"/t3900/$H.txt\n"> <LIT_CHARS "\t)\n"> <LIT_CHARS "\t">]})
  )
  (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS UTF8]} {[SQ <LIT_CHARS "ISO-8859-1 should match UTF-8 in svn">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd ISO8859-1 &&\n"> <LIT_CHARS "\t\tcompare_svn_head_with \"$TEST_DIRECTORY\"/t3900/1-UTF-8.txt\n"> <LIT_CHARS "\t)\n">]})
  (For H [{[LIT_CHARS eucJP]}, {[LIT_CHARS ISO-2022-JP]}])
    (Com {[LIT_CHARS test_expect_success]} {[LIT_CHARS UTF8]} {[DQ [VarSub H][LIT_CHARS " should match UTF-8 in svn"]]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t\t(\n"> <LIT_CHARS "\t\t\tcd $H &&\n"> <LIT_CHARS "\t\t\tcompare_svn_head_with \"$TEST_DIRECTORY\"/t3900/2-UTF-8.txt\n"> <LIT_CHARS "\t\t)\n"> <LIT_CHARS "\t">]})
  )
  (Com {[LIT_CHARS test_done]})
)