(command.CommandList children: [ (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:test_description) op: assign_op.Equal rhs: {(SQ <'git svn dcommit new files over svn:// test'>)} spids: [26] ) ] ) (C {<.>} {<'./lib-git-svn.sh'>}) (C {<require_svnserve>}) (C {<test_expect_success>} {(SQ <'start tracking an empty repo'>)} { (SQ <'\n'> <'\tsvn_cmd mkdir -m "empty dir" "$svnrepo"/empty-dir &&\n'> <'\techo "[general]" > "$rawsvnrepo"/conf/svnserve.conf &&\n'> <'\techo anon-access = write >> "$rawsvnrepo"/conf/svnserve.conf &&\n'> <'\tstart_svnserve &&\n'> <'\tgit svn init svn://127.0.0.1:$SVNSERVE_PORT &&\n'> <'\tgit svn fetch\n'> <'\t'> ) } ) (C {<test_expect_success>} {(SQ <'create files in new directory with dcommit'>)} { (DQ <'\n'> <'\tmkdir git-new-dir &&\n'> <'\techo hello > git-new-dir/world &&\n'> <'\tgit update-index --add git-new-dir/world &&\n'> <'\tgit commit -m hello &&\n'> <'\tstart_svnserve &&\n'> <'\tgit svn dcommit\n'> <'\t'> ) } ) (C {<test_done>}) ] )