(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]]}        )
      )
    )
  )
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('a_utf8_locale', {[ComSub (Pipeline (Com {[LIT_CHARS locale]} {[LIT_CHARS -a]}) (Com {[LIT_CHARS sed]} {[LIT_CHARS -n]} {[SQ <LIT_CHARS "/\\.[uU][tT][fF]-*8$/{\n"> <LIT_CHARS "\tp\n"> <LIT_CHARS "\tq\n"> <LIT_CHARS "}">]}) )]})])
  (If
    (Com {[LIT_CHARS test]} {[LIT_CHARS -n]} {[DQ [VarSub a_utf8_locale]]}    )
    (Com {[LIT_CHARS test_set_prereq]} {[LIT_CHARS UTF8]}    )
    (ElseTrue)
    (Com {[LIT_CHARS say]} {[DQ [LIT_CHARS "# UTF-8 locale not available, some tests are skipped"]]}    )
  )
  (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 {[DQ [VarSub PERL_PATH]]} {[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]}  )
)