(command.CommandList
  children: [
    (command.Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (lhs_expr.LhsName name:test_description)
          op: Equal
          rhs: {(SQ <'git svn --rewrite-uuid test'>)}
        )
      ]
    )
    (C {(.)} {(./lib-git-svn.sh)})
    (command.Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (lhs_expr.LhsName name:uuid)
          op: Equal
          rhs: {(6cc8ada4-5932-4b4a-8242-3534ed8a3232)}
        )
      ]
    )
    (C {(test_expect_success)} {(SQ <'load svn repo'>)} 
      {
        (DQ ('\n') ("\tsvnadmin load -q '") ($ VSub_DollarName '$rawsvnrepo') ("' < '") 
          ($ VSub_DollarName '$TEST_DIRECTORY') ("/t9153/svn.dump' &&\n") ("\tgit svn init --minimize-url --rewrite-uuid='") 
          ($ VSub_DollarName '$uuid') ("' '") ($ 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 ") ($ VSub_DollarName '$uuid') (Lit_Other '$') ("' &&\n") 
          ('\tgit cat-file commit refs/remotes/git-svn~1 | ') ("\t   grep '^git-svn-id: .*@1 ") ($ VSub_DollarName '$uuid') (Lit_Other '$') ("'\n") ('\t')
        )
      }
    )
    (C {(test_done)})
  ]
)