(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <'git svn old rev_map preservd'>)}
          spids: [10]
        )
      ]
      spids: [10]
    )
    (C {(.)} {(./lib-git-svn.sh)})
    (C {(test_expect_success)} {(SQ <'setup test repository with old layout'>)} 
      {
        (SQ <'\n'> <'\tmkdir i &&\n'> <'\t(cd i && > a) &&\n'> 
          <'\tsvn_cmd import -m- i "$svnrepo" &&\n'> <'\tgit svn init "$svnrepo" &&\n'> <'\tgit svn fetch &&\n'> 
          <'\ttest -d .git/svn/refs/remotes/git-svn/ &&\n'> <'\t! test -e .git/svn/git-svn/ &&\n'> <'\tmv .git/svn/refs/remotes/git-svn .git/svn/ &&\n'> 
          <'\trm -r .git/svn/refs\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'old layout continues to work'>)} 
      {
        (SQ <'\n'> <'\tsvn_cmd import -m- i "$svnrepo/b" &&\n'> <'\tgit svn rebase &&\n'> 
          <'\techo a >> b/a &&\n'> <'\tgit add b/a &&\n'> <'\tgit commit -m- -a &&\n'> <'\tgit svn dcommit &&\n'> 
          <'\t! test -d .git/svn/refs/ &&\n'> <'\ttest -e .git/svn/git-svn/\n'>
        )
      }
    )
    (C {(test_done)})
  ]
)