(command.CommandList children: [ (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:test_description) op: assign_op.Equal rhs: {(SQ <'git svn shallow clone'>)} spids: [13] ) ] ) (C {<.>} {<'./lib-git-svn.sh'>}) (C {<test_expect_success>} {(SQ <'setup test repository'>)} { (SQ <'\n'> <'\tsvn_cmd mkdir -m "create standard layout" \\\n'> <'\t "$svnrepo"/trunk "$svnrepo"/branches "$svnrepo"/tags &&\n'> <'\tsvn_cmd cp -m "branch off trunk" \\\n'> <'\t "$svnrepo"/trunk "$svnrepo"/branches/a &&\n'> <'\tsvn_cmd co "$svnrepo"/branches/a &&\n'> <'\t(\n'> <'\t\tcd a &&\n'> <'\t\t> foo &&\n'> <'\t\tsvn_cmd add foo &&\n'> <'\t\tsvn_cmd commit -m "add foo"\n'> <'\t) &&\n'> <'\tmaybe_start_httpd\n'> ) } ) (C {<test_expect_success>} {(SQ <'clone trunk with "-r HEAD"'>)} { (SQ <'\n'> <'\tgit svn clone -r HEAD "$svnrepo/trunk" g &&\n'> <'\t( cd g && git rev-parse --symbolic --verify HEAD )\n'> ) } ) (C {<stop_httpd>}) (C {<test_done>}) ] )