(command.CommandList children: [ (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:test_description) op: assign_op.Equal rhs: {(SQ (Token id:Id.Lit_Chars val:'git svn --rewrite-uuid test' span_id:15))} 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 (Token id:Id.Lit_Chars val:'load svn repo' span_id:31))} { (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 (Token id:Id.Lit_Chars val:'verify uuid' span_id:54))} { (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)}) ] )