(CommandList children: [ (Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (LhsName name:test_description) op: Equal rhs: {(SQ <'git svn dcommit new files over svn:// test'>)} spids: [26] ) ] 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)}) ] )