(command.CommandList
  children: [
    (command.Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (lhs_expr.LhsName name:test_description)
          op: Equal
          rhs: {(SQ <'git svn shallow clone'>)}
        )
      ]
    )
    (C {(.)} {(./lib-git-svn.sh)})
    (C {(test_expect_success)} {(SQ <'setup test repository'>)} 
      {
        (SQ <'\n'> <'\tsvn_cmd mkdir -m "create standard layout" \\\n'> 
          <'\t  "$svnrepo"/trunk "$svnrepo"/branches "$svnrepo"/tags &&\n'> <'\tsvn_cmd cp -m "branch off trunk" \\\n'> <'\t  "$svnrepo"/trunk "$svnrepo"/branches/a &&\n'> 
          <'\tsvn_cmd co "$svnrepo"/branches/a &&\n'> <'\t(\n'> <'\t\tcd a &&\n'> <'\t\t> foo &&\n'> <'\t\tsvn_cmd add foo &&\n'> 
          <'\t\tsvn_cmd commit -m "add foo"\n'> <'\t) &&\n'> <'\tmaybe_start_httpd\n'>
        )
      }
    )
    (C {(test_expect_success)} {(SQ <'clone trunk with "-r HEAD"'>)} 
      {
        (SQ <'\n'> <'\tgit svn clone -r HEAD "$svnrepo/trunk" g &&\n'> 
          <'\t( cd g && git rev-parse --symbolic --verify HEAD )\n'>
        )
      }
    )
    (C {(stop_httpd)})
    (C {(test_done)})
  ]
)