(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 cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS svn-authors-prog]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "#!/usr/bin/perl\n"] [LIT_CHARS "$_ = shift;\n"] [LIT_CHARS "if (s/-sub$//)  {\n"] [LIT_CHARS "\tprint \"$_ <$_\\@sub.example.com>\\n\";\n"] [LIT_CHARS "}\n"] [LIT_CHARS "else {\n"] [LIT_CHARS "\tprint \"$_ <$_\\@example.com>\\n\";\n"] [LIT_CHARS "}\n"]} <REDIR_DLESS "<<"> 0),
    >
  )
  (Com {[LIT_CHARS chmod]} {[LIT_OTHER "+"] [LIT_CHARS x]} {[LIT_CHARS svn-authors-prog]}  )
  (Com {[LIT_CHARS cat]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS svn-authors]} <REDIR_GREAT ">"> 1),
    (HereDocRedirectNode here_end='EOF' do_expansion=False body_word={[LIT_CHARS "ff = FFFFFFF FFFFFFF <fFf@other.example.com>\n"]} <REDIR_DLESS "<<"> 0),
    >
  )
  (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"> <LIT_CHARS "\t">]}  )
  (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"> <LIT_CHARS "\t">]}  )
  (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"> <LIT_CHARS "\t">]}  )
  (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"> <LIT_CHARS "\t">]}  )
  (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"> <LIT_CHARS "\t">]}  )
  (Com {[LIT_CHARS git]} {[LIT_CHARS --git-dir] [LIT_DBRACKET_LIKE "="] [LIT_CHARS x/.git]} {[LIT_CHARS config]} {[LIT_CHARS --unset]} {[LIT_CHARS svn.authorsfile]}  )
  (Com {[LIT_CHARS git]} {[LIT_CHARS --git-dir] [LIT_DBRACKET_LIKE "="] [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]}  )
)