(command.CommandList children: [ (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:test_description) op: assign_op.Equal rhs: {(SQ <'git svn --rewrite-uuid test'>)} spids: [13] ) ] ) (C {<.>} {<./lib-git-svn.sh>}) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:uuid) op: assign_op.Equal rhs: {<6cc8ada4-5932-4b4a-8242-3534ed8a3232>} spids: [24] ) ] ) (C {<test_expect_success>} {(SQ <'load svn repo'>)} { (DQ <'\n'> <"\tsvnadmin load -q '"> ($ Id.VSub_DollarName '$rawsvnrepo') <"' < '"> ($ Id.VSub_DollarName '$TEST_DIRECTORY') <"/t9153/svn.dump' &&\n"> <"\tgit svn init --minimize-url --rewrite-uuid='"> ($ Id.VSub_DollarName '$uuid') <"' '"> ($ Id.VSub_DollarName '$svnrepo') <"' &&\n"> <'\tgit svn fetch\n'> <'\t'> ) } ) (C {<test_expect_success>} {(SQ <'verify uuid'>)} { (DQ <'\n'> <'\tgit cat-file commit refs/remotes/git-svn~0 | '> <"\t grep '^git-svn-id: .*@2 "> ($ Id.VSub_DollarName '$uuid') <Id.Lit_Other '$'> <"' &&\n"> <'\tgit cat-file commit refs/remotes/git-svn~1 | '> <"\t grep '^git-svn-id: .*@1 "> ($ Id.VSub_DollarName '$uuid') <Id.Lit_Other '$'> <"'\n"> <'\t'> ) } ) (C {<test_done>}) ] )