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