(List
  (= scope=<EAssignScope.GLOBAL 1> flags=0 words=[] bindings=[('test_description', {[SQ <LIT_CHARS "git-svn svn mergeinfo properties">]})])
  (Com {[LIT_CHARS .]} {[LIT_CHARS ./lib-git-svn.sh]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "load svn dump">]} {[DQ [LIT_CHARS "\n"][LIT_CHARS "\tsvnadmin load -q '"][VarSub rawsvnrepo][LIT_CHARS "' "][LIT_CHARS "\t  < '"][VarSub TEST_DIRECTORY][LIT_CHARS "/t9151/svn-mergeinfo.dump' &&\n"][LIT_CHARS "\tgit svn init --minimize-url -R svnmerge "][LIT_CHARS "\t  --rewrite-root=http://svn.example.org "][LIT_CHARS "\t  -T trunk -b branches '"][VarSub svnrepo][LIT_CHARS "' &&\n"][LIT_CHARS "\tgit svn fetch --all\n"][LIT_CHARS "\t"]]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "all svn merges became git merge commits">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tunmarked=$(git rev-list --parents --all --grep=Merge |\n"> <LIT_CHARS "\t\tgrep -v \" .* \" | cut -f1 -d\" \") &&\n"> <LIT_CHARS "\t[ -z \"$unmarked\" ]\n"> <LIT_CHARS "\t">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "cherry picks did not become git merge commits">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tbad_cherries=$(git rev-list --parents --all --grep=Cherry |\n"> <LIT_CHARS "\t\tgrep \" .* \" | cut -f1 -d\" \") &&\n"> <LIT_CHARS "\t[ -z \"$bad_cherries\" ]\n"> <LIT_CHARS "\t">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "svn non-merge merge commits did not become git merge commits">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tbad_non_merges=$(git rev-list --parents --all --grep=non-merge |\n"> <LIT_CHARS "\t\tgrep \" .* \" | cut -f1 -d\" \") &&\n"> <LIT_CHARS "\t[ -z \"$bad_non_merges\" ]\n"> <LIT_CHARS "\t">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "commit made to merged branch is reachable from the merge">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tbefore_commit=$(git rev-list --all --grep=\"trunk commit before merging trunk to b2\") &&\n"> <LIT_CHARS "\tmerge_commit=$(git rev-list --all --grep=\"Merge trunk to b2\") &&\n"> <LIT_CHARS "\tnot_reachable=$(git rev-list -1 $before_commit --not $merge_commit) &&\n"> <LIT_CHARS "\t[ -z \"$not_reachable\" ]\n"> <LIT_CHARS "\t">]}  )
  (Com {[LIT_CHARS test_expect_success]} {[SQ <LIT_CHARS "merging two branches in one commit is detected correctly">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tf1_commit=$(git rev-list --all --grep=\"make f1 branch from trunk\") &&\n"> <LIT_CHARS "\tf2_commit=$(git rev-list --all --grep=\"make f2 branch from trunk\") &&\n"> <LIT_CHARS "\tmerge_commit=$(git rev-list --all --grep=\"Merge f1 and f2 to trunk\") &&\n"> <LIT_CHARS "\tnot_reachable=$(git rev-list -1 $f1_commit $f2_commit --not $merge_commit) &&\n"> <LIT_CHARS "\t[ -z \"$not_reachable\" ]\n"> <LIT_CHARS "\t">]}  )
  (Com {[LIT_CHARS test_expect_failure]} {[SQ <LIT_CHARS "everything got merged in the end">]} {[SQ <LIT_CHARS "\n"> <LIT_CHARS "\tunmerged=$(git rev-list --all --not master) &&\n"> <LIT_CHARS "\t[ -z \"$unmerged\" ]\n"> <LIT_CHARS "\t">]}  )
  (Com {[LIT_CHARS test_done]}  )
)