expected <- eval(parse(text="c(\"list(\\\"x\\\")\", \"list(\\\"an R object representing a hierarchical clustering.\\\\n\\\", \\\"    For the default method, an object of class \\\", list(\\\"\\\\\\\"\\\", list(\\\"hclust\\\"), \\\"\\\\\\\"\\\"), \\\" or\\\\n\\\", \\\"    with a method for \\\", list(list(\\\"as.hclust\\\"), \\\"()\\\"), \\\" such as\\\\n\\\", \\\"    \\\", list(\\\"\\\\\\\"\\\", list(\\\"agnes\\\"), \\\"\\\\\\\"\\\"), \\\" in package \\\", c(\\\"\\\\\\\\href{http://CRAN.R-project.org/package=#1}{\\\\\\\\pkg{#1}}\\\", \\\"cluster\\\"), list(list(\\\"http://CRAN.R-project.org/package=cluster\\\"), list(list(\\\"cluster\\\"))), \\\".\\\")\")"));                 
test(id=0, code={                 
argv <- eval(parse(text="list(structure(list(list(structure(\"x\", Rd_tag = \"TEXT\")), list(structure(\"an R object representing a hierarchical clustering.\\n\", Rd_tag = \"TEXT\"), structure(\"    For the default method, an object of class \", Rd_tag = \"TEXT\"), structure(list(structure(\"\\\"\", Rd_tag = \"RCODE\"), structure(list(structure(\"hclust\", Rd_tag = \"TEXT\")), Rd_tag = \"\\\\link\"), structure(\"\\\"\", Rd_tag = \"RCODE\")), Rd_tag = \"\\\\code\"), structure(\" or\\n\", Rd_tag = \"TEXT\"), structure(\"    with a method for \", Rd_tag = \"TEXT\"), structure(list(    structure(list(structure(\"as.hclust\", Rd_tag = \"TEXT\")), Rd_tag = \"\\\\link\"), structure(\"()\", Rd_tag = \"RCODE\")), Rd_tag = \"\\\\code\"), structure(\" such as\\n\", Rd_tag = \"TEXT\"), structure(\"    \", Rd_tag = \"TEXT\"), structure(list(structure(\"\\\"\", Rd_tag = \"RCODE\"), structure(list(structure(\"agnes\", Rd_tag = \"TEXT\")), Rd_tag = \"\\\\link\", Rd_option = structure(\"cluster\", Rd_tag = \"TEXT\")), structure(\"\\\"\", Rd_tag = \"RCODE\")), Rd_tag = \"\\\\code\"), structure(\" in package \", Rd_tag = \"TEXT\"), structure(c(\"\\\\href{http://CRAN.R-project.org/package=#1}{\\\\pkg{#1}}\", \"cluster\"), Rd_tag = \"USERMACRO\"), structure(list(list(structure(\"http://CRAN.R-project.org/package=cluster\", Rd_tag = \"VERB\")), list(structure(list(structure(\"cluster\", Rd_tag = \"TEXT\")), Rd_tag = \"\\\\pkg\"))), Rd_tag = \"\\\\href\"), structure(\".\", Rd_tag = \"TEXT\"))), Rd_tag = \"\\\\item\"))"));                 
do.call(`as.character`, argv);                 
}, o=expected);                 

