(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "git svn authors prog tests">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./lib-git-svn.sh]})
  (Com {[LIT_CHARS write_script]} {[LIT_CHARS svn-authors-prog]} {[DQ [VarSub PERL_PATH]]}
    <
    (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "$_ = shift;\n"] [LIT_CHARS "if (s/-sub$//)  {\n"] [LIT_CHARS "print \"$_ <$_\\@sub.example.com>\\n\";\n"] [LIT_CHARS "} else {\n"] [LIT_CHARS "print \"$_ <$_\\@example.com>\\n\";\n"] [LIT_CHARS "}\n"]} <REDIR_DLESSDASH "<<-"> 0),
    >
  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "svn-authors setup">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tcat >svn-authors <<-\\EOF\n"> <LIT_CHARS "\tff = FFFFFFF FFFFFFF <fFf@other.example.com>\n"> <LIT_CHARS "\tEOF\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup svnrepo">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tfor i in aa bb cc-sub dd-sub ee-foo ff\n"> <LIT_CHARS "\tdo\n"> <LIT_CHARS "\t\tsvn mkdir -m $i --username $i \"$svnrepo\"/$i\n"> <LIT_CHARS "\tdone\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "import authors with prog and file">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit svn clone --authors-prog=./svn-authors-prog \\\n"> <LIT_CHARS "\t    --authors-file=svn-authors \"$svnrepo\" x\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "imported 6 revisions successfully">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd x\n"> <LIT_CHARS "\t\ttest \"$(git rev-list refs/remotes/git-svn | wc -l)\" -eq 6\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "authors-prog ran correctly">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd x\n"> <LIT_CHARS "\t\tgit rev-list -1 --pretty=raw refs/remotes/git-svn~1 | \\\n"> <LIT_CHARS "\t\t  grep \"^author ee-foo <ee-foo@example\\.com> \" &&\n"> <LIT_CHARS "\t\tgit rev-list -1 --pretty=raw refs/remotes/git-svn~2 | \\\n"> <LIT_CHARS "\t\t  grep \"^author dd <dd@sub\\.example\\.com> \" &&\n"> <LIT_CHARS "\t\tgit rev-list -1 --pretty=raw refs/remotes/git-svn~3 | \\\n"> <LIT_CHARS "\t\t  grep \"^author cc <cc@sub\\.example\\.com> \" &&\n"> <LIT_CHARS "\t\tgit rev-list -1 --pretty=raw refs/remotes/git-svn~4 | \\\n"> <LIT_CHARS "\t\t  grep \"^author bb <bb@example\\.com> \" &&\n"> <LIT_CHARS "\t\tgit rev-list -1 --pretty=raw refs/remotes/git-svn~5 | \\\n"> <LIT_CHARS "\t\t  grep \"^author aa <aa@example\\.com> \"\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "authors-file overrode authors-prog">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd x\n"> <LIT_CHARS "\t\tgit rev-list -1 --pretty=raw refs/remotes/git-svn | \\\n"> <LIT_CHARS "\t\t  grep \"^author FFFFFFF FFFFFFF <fFf@other\\.example\\.com> \"\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS git]} {[LIT_CHARS --git-dir] [LIT_OTHER "="] [LIT_CHARS x/.git]} {[LIT_CHARS config]} {[LIT_CHARS --unset]} {[LIT_CHARS svn.authorsfile]})
  (Com {[LIT_CHARS git]} {[LIT_CHARS --git-dir] [LIT_OTHER "="] [LIT_CHARS x/.git]} {[LIT_CHARS config]} {[LIT_CHARS --unset]} {[LIT_CHARS svn.authorsprog]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "authors-prog handled special characters in username">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsvn mkdir -m bad --username \"xyz; touch evil\" \"$svnrepo\"/bad &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd x &&\n"> <LIT_CHARS "\t\tgit svn --authors-prog=../svn-authors-prog fetch &&\n"> <LIT_CHARS "\t\tgit rev-list -1 --pretty=raw refs/remotes/git-svn |\n"> <LIT_CHARS "\t\tgrep \"^author xyz; touch evil <xyz; touch evil@example\\.com> \" &&\n"> <LIT_CHARS "\t\t! test -f evil\n"> <LIT_CHARS "\t)\n">]})
  (Com {[LIT_CHARS test_done]})
)