(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:test_description)
          op: Equal
          rhs: {(SQ <"git svn rmdir">)}
          spids: [3]
        )
      ]
      spids: [3]
    )
    (C {(.)} {(./lib-git-svn.sh)})
    (C {(test_expect_success)} {(SQ <"initialize repo">)} 
      {
        (SQ <"\n"> <"\tmkdir import &&\n"> <"\t(\n"> <"\t\tcd import &&\n"> 
          <"\t\tmkdir -p deeply/nested/directory/number/1 &&\n"> <"\t\tmkdir -p deeply/nested/directory/number/2 &&\n"> 
          <"\t\techo foo >deeply/nested/directory/number/1/file &&\n"> <"\t\techo foo >deeply/nested/directory/number/2/another &&\n"> 
          <"\t\tsvn_cmd import -m \"import for git svn\" . \"$svnrepo\"\n"> <"\t)\n"> <"\t">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"mirror via git svn">)} 
      {
        (SQ <"\n"> <"\tgit svn init \"$svnrepo\" &&\n"> <"\tgit svn fetch &&\n"> 
          <"\tgit checkout -f -b test-rmdir remotes/git-svn\n"> <"\t">
        )
      }
    )
    (C {(test_expect_success)} {(SQ <"Try a commit on rmdir">)} 
      {
        (SQ <"\n"> <"\tgit rm -f deeply/nested/directory/number/2/another &&\n"> 
          <"\tgit commit -a -m \"remove another\" &&\n"> <"\tgit svn set-tree --rmdir HEAD &&\n"> 
          <"\tsvn_cmd ls -R \"$svnrepo\" | grep ^deeply/nested/directory/number/1\n"> <"\t">
        )
      }
    )
    (C {(test_done)})
  ]
)