expected <- eval(parse(text="structure(list(docType = character(0)), .Names = \"docType\")"));                   
test(id=0, code={                   
argv <- eval(parse(text="list(structure(list(structure(list(structure(\"Print a varFunc Object\", Rd_tag = \"TEXT\")), Rd_tag = \"\\\\title\"), structure(list(structure(\"print.varFunc\", Rd_tag = \"VERB\")), Rd_tag = \"\\\\name\"), structure(list(structure(\"print.varFunc\", Rd_tag = \"VERB\")), Rd_tag = \"\\\\alias\"), structure(list(structure(\"print.varComb\", Rd_tag = \"VERB\")), Rd_tag = \"\\\\alias\"), structure(list(structure(\"models\", Rd_tag = \"TEXT\")), Rd_tag = \"\\\\keyword\"), structure(list(structure(\"\\n\", Rd_tag = \"TEXT\"), structure(\"  The class and the coefficients associated with \", Rd_tag = \"TEXT\"),     structure(list(structure(\"x\", Rd_tag = \"RCODE\")), Rd_tag = \"\\\\code\"), structure(\" are printed.\\n\", Rd_tag = \"TEXT\")), Rd_tag = \"\\\\description\"), structure(list(structure(\"\\n\", Rd_tag = \"RCODE\"), structure(list(list(structure(\"print\", Rd_tag = \"TEXT\")), list(structure(\"varFunc\", Rd_tag = \"TEXT\"))), Rd_tag = \"\\\\method\"), structure(\"(x, \", Rd_tag = \"RCODE\"), structure(list(), Rd_tag = \"\\\\dots\"), structure(\")\\n\", Rd_tag = \"RCODE\")), Rd_tag = \"\\\\usage\"), structure(list(structure(\"\\n\", Rd_tag = \"TEXT\"),     structure(\" \", Rd_tag = \"TEXT\"), structure(list(list(structure(\"x\", Rd_tag = \"TEXT\")), list(structure(\"an object inheriting from class \", Rd_tag = \"TEXT\"), structure(list(structure(\"varFunc\", Rd_tag = \"RCODE\")), Rd_tag = \"\\\\code\"), structure(\", representing a\\n\", Rd_tag = \"TEXT\"), structure(\" variance function structure.\", Rd_tag = \"TEXT\"))), Rd_tag = \"\\\\item\"), structure(\"\\n\", Rd_tag = \"TEXT\"), structure(\" \", Rd_tag = \"TEXT\"), structure(list(list(structure(list(), Rd_tag = \"\\\\dots\")), list(structure(\"optional arguments passed to \", Rd_tag = \"TEXT\"),         structure(list(structure(\"print.default\", Rd_tag = \"RCODE\")), Rd_tag = \"\\\\code\"), structure(\"; see\\n\", Rd_tag = \"TEXT\"), structure(\"   the documentation on that method function.\", Rd_tag = \"TEXT\"))), Rd_tag = \"\\\\item\"), structure(\"\\n\", Rd_tag = \"TEXT\")), Rd_tag = \"\\\\arguments\"), structure(list(structure(\"Jos<U+00E9> Pinheiro and Douglas Bates \", Rd_tag = \"TEXT\"), structure(list(structure(\"bates@stat.wisc.edu\", Rd_tag = \"TEXT\")), Rd_tag = \"\\\\email\")), Rd_tag = \"\\\\author\"), structure(list(structure(list(    structure(list(structure(\"summary.varFunc\", Rd_tag = \"TEXT\")), Rd_tag = \"\\\\link\")), Rd_tag = \"\\\\code\")), Rd_tag = \"\\\\seealso\"), structure(list(structure(\"\\n\", Rd_tag = \"RCODE\"), structure(\"vf1 <- varPower(0.3, form = ~age)\\n\", Rd_tag = \"RCODE\"), structure(\"vf1 <- Initialize(vf1, Orthodont)\\n\", Rd_tag = \"RCODE\"), structure(\"print(vf1)\\n\", Rd_tag = \"RCODE\")), Rd_tag = \"\\\\examples\")), Rdfile = \"/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/man/print.varFunc.Rd\", class = \"Rd\", meta = structure(list(    docType = character(0)), .Names = \"docType\"), prepared = 3L), \"meta\")"));                   
do.call(`attr`, argv);                   
}, o=expected);                   

