(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "git svn authorship">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./lib-git-svn.sh]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "setup svn repository">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsvn_cmd checkout \"$svnrepo\" work.svn &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd work.svn &&\n"> <LIT_CHARS "\t\techo >file\n"> <LIT_CHARS "\t\tsvn_cmd add file\n"> <LIT_CHARS "\t\tsvn_cmd commit -m \"first commit\" file\n"> <LIT_CHARS "\t)\n">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "interact with it via git svn">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir work.git &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd work.git &&\n"> <LIT_CHARS "\t\tgit svn init \"$svnrepo\"\n"> <LIT_CHARS "\t\tgit svn fetch &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\techo modification >file &&\n"> <LIT_CHARS "\t\ttest_tick &&\n"> <LIT_CHARS "\t\tgit commit -a -m second &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\ttest_tick &&\n"> <LIT_CHARS "\t\tgit svn dcommit &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\techo \"further modification\" >file &&\n"> <LIT_CHARS "\t\ttest_tick &&\n"> <LIT_CHARS "\t\tgit commit -a -m third &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\ttest_tick &&\n"> <LIT_CHARS "\t\tgit svn --add-author-from dcommit &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\techo \"yet further modification\" >file &&\n"> <LIT_CHARS "\t\ttest_tick &&\n"> <LIT_CHARS "\t\tgit commit -a -m fourth &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\ttest_tick &&\n"> <LIT_CHARS "\t\tgit svn --add-author-from --use-log-author dcommit &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\tgit log &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t\tgit show -s HEAD^^ >../actual.2 &&\n"> <LIT_CHARS "\t\tgit show -s HEAD^  >../actual.3 &&\n"> <LIT_CHARS "\t\tgit show -s HEAD   >../actual.4\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# Make sure that --add-author-from without --use-log-author\n"> <LIT_CHARS "\t# did not affect the authorship information\n"> <LIT_CHARS "\tmyself=$(grep \"^Author: \" actual.2) &&\n"> <LIT_CHARS "\tunaffected=$(grep \"^Author: \" actual.3) &&\n"> <LIT_CHARS "\ttest \"z$myself\" = \"z$unaffected\" &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# Make sure lack of --add-author-from did not add cruft\n"> <LIT_CHARS "\t! grep \"^    From: A U Thor \" actual.2 &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# Make sure --add-author-from added cruft\n"> <LIT_CHARS "\tgrep \"^    From: A U Thor \" actual.3 &&\n"> <LIT_CHARS "\tgrep \"^    From: A U Thor \" actual.4 &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# Make sure --add-author-from with --use-log-author affected\n"> <LIT_CHARS "\t# the authorship information\n"> <LIT_CHARS "\tgrep \"^Author: A U Thor \" actual.4 &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# Make sure there are no commit messages with excess blank lines\n"> <LIT_CHARS "\ttest $(grep \"^ \" actual.2 | wc -l) = 3 &&\n"> <LIT_CHARS "\ttest $(grep \"^ \" actual.3 | wc -l) = 5 &&\n"> <LIT_CHARS "\ttest $(grep \"^ \" actual.4 | wc -l) = 5 &&\n"> <LIT_CHARS "\n"> <LIT_CHARS "\t# Make sure there are no svn commit messages with excess blank lines\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd work.svn &&\n"> <LIT_CHARS "\t\tsvn_cmd up &&\n"> <LIT_CHARS "\t\t\n"> <LIT_CHARS "\t\ttest $(svn_cmd log -r2:2 | wc -l) = 5 &&\n"> <LIT_CHARS "\t\ttest $(svn_cmd log -r4:4 | wc -l) = 7\n"> <LIT_CHARS "\t)\n">]}  )
  (Com {[LIT_CHARS test_done]}  )
)