(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "git svn commit-diff clobber">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./lib-git-svn.sh]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "initialize repo">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tmkdir import &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd import &&\n"> <LIT_CHARS "\t\techo initial >file &&\n"> <LIT_CHARS "\t\tsvn_cmd import -m \"initial\" . \"$svnrepo\"\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\techo initial > file &&\n"> <LIT_CHARS "\tgit update-index --add file &&\n"> <LIT_CHARS "\tgit commit -a -m \"initial\"\n"> <LIT_CHARS "\t">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "commit change from svn side">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsvn_cmd co \"$svnrepo\" t.svn &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd t.svn &&\n"> <LIT_CHARS "\t\techo second line from svn >>file &&\n"> <LIT_CHARS "\t\tpoke file &&\n"> <LIT_CHARS "\t\tsvn_cmd commit -m \"second line from svn\"\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\trm -rf t.svn\n"> <LIT_CHARS "\t">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "commit conflicting change from git">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\techo second line from git >> file &&\n"> <LIT_CHARS "\tgit commit -a -m \"second line from git\" &&\n"> <LIT_CHARS "\ttest_must_fail git svn commit-diff -r1 HEAD~1 HEAD \"$svnrepo\"\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "commit complementing change from git">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit reset --hard HEAD~1 &&\n"> <LIT_CHARS "\techo second line from svn >> file &&\n"> <LIT_CHARS "\tgit commit -a -m \"second line from svn\" &&\n"> <LIT_CHARS "\techo third line from git >> file &&\n"> <LIT_CHARS "\tgit commit -a -m \"third line from git\" &&\n"> <LIT_CHARS "\tgit svn commit-diff -r2 HEAD~1 HEAD \"$svnrepo\"\n"> <LIT_CHARS "\t">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "dcommit fails to commit because of conflict">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tgit svn init \"$svnrepo\" &&\n"> <LIT_CHARS "\tgit svn fetch &&\n"> <LIT_CHARS "\tgit reset --hard refs/remotes/git-svn &&\n"> <LIT_CHARS "\tsvn_cmd co \"$svnrepo\" t.svn &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd t.svn &&\n"> <LIT_CHARS "\t\techo fourth line from svn >>file &&\n"> <LIT_CHARS "\t\tpoke file &&\n"> <LIT_CHARS "\t\tsvn_cmd commit -m \"fourth line from svn\"\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\trm -rf t.svn &&\n"> <LIT_CHARS "\techo \"fourth line from git\" >> file &&\n"> <LIT_CHARS "\tgit commit -a -m \"fourth line from git\" &&\n"> <LIT_CHARS "\ttest_must_fail git svn dcommit\n"> <LIT_CHARS "\t">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "dcommit does the svn equivalent of an index merge">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\tgit reset --hard refs/remotes/git-svn &&\n"][LIT_CHARS "\techo 'index merge' > file2 &&\n"][LIT_CHARS "\tgit update-index --add file2 &&\n"][LIT_CHARS "\tgit commit -a -m 'index merge' &&\n"][LIT_CHARS "\techo 'more changes' >> file2 &&\n"][LIT_CHARS "\tgit update-index file2 &&\n"][LIT_CHARS "\tgit commit -a -m 'more changes' &&\n"][LIT_CHARS "\tgit svn dcommit\n"][LIT_CHARS "\t"]]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "commit another change from svn side">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tsvn_cmd co \"$svnrepo\" t.svn &&\n"> <LIT_CHARS "\t(\n"> <LIT_CHARS "\t\tcd t.svn &&\n"> <LIT_CHARS "\t\techo third line from svn >>file &&\n"> <LIT_CHARS "\t\tpoke file &&\n"> <LIT_CHARS "\t\tsvn_cmd commit -m \"third line from svn\"\n"> <LIT_CHARS "\t) &&\n"> <LIT_CHARS "\trm -rf t.svn\n"> <LIT_CHARS "\t">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "multiple dcommit from git svn will not clobber svn">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\tgit reset --hard refs/remotes/git-svn &&\n"][LIT_CHARS "\techo new file >> new-file &&\n"][LIT_CHARS "\tgit update-index --add new-file &&\n"][LIT_CHARS "\tgit commit -a -m 'new file' &&\n"][LIT_CHARS "\techo clobber > file &&\n"][LIT_CHARS "\tgit commit -a -m 'clobber' &&\n"][LIT_CHARS "\ttest_must_fail git svn dcommit\n"][LIT_CHARS "\t"]]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "check that rebase really failed">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\ttest -d .git/rebase-apply\n">]})
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "resolve, continue the rebase and dcommit">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\techo clobber and I really mean it > file &&\n"][LIT_CHARS "\tgit update-index file &&\n"][LIT_CHARS "\tgit rebase --continue &&\n"][LIT_CHARS "\tgit svn dcommit\n"][LIT_CHARS "\t"]]})
  (Com {[LIT_CHARS test_done]})
)