(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>})
  ]
)