(command.CommandList
  children: [
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.Name name:test_description)
          op: assign_op.Equal
          rhs: {(SQ <'git svn old rev_map preservd'>)}
          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>})
  ]
)