expected <- eval(parse(text="structure(c(5L, 11L, 5L, 10L, 345L, 43L, 22L, 41L, 8L, 13L, 3L, 3L, 84L, 31L, 94L, 36L), .Names = c(\"Package\", \"Priority\", \"Version\", \"Date\", \"Authors@R\", \"Description\", \"Title\", \"Depends\", \"Suggests\", \"License\", \"LazyData\", \"ByteCompile\", \"Note\", \"Packaged\", \"Author\", \"Maintainer\"))"));                
test(id=0, code={                
argv <- eval(parse(text="list(structure(c(\"rpart\", \"recommended\", \"4.1-1\", \"2013-03-20\", \"c(person(\\\"Terry\\\", \\\"Therneau\\\", role = \\\"aut\\\",\\n\\t             email = \\\"therneau@mayo.edu\\\"),\\n             person(\\\"Beth\\\", \\\"Atkinson\\\", role = \\\"aut\\\",\\t\\n\\t             email = \\\"atkinson@mayo.edu\\\"),\\n             person(\\\"Brian\\\", \\\"Ripley\\\", role = c(\\\"aut\\\", \\\"trl\\\", \\\"cre\\\"),\\n                    email = \\\"ripley@stats.ox.ac.uk\\\",\\n\\t\\t   comment = \\\"author of R port\\\"))\", \"Recursive partitioning and regression trees\", \"Recursive Partitioning\", \"R (>= 2.14.0), graphics, stats, grDevices\", \"survival\", \"GPL-2 | GPL-3\", \"yes\", \"yes\", \"Maintainers are not available to give advice on using a package\\nthey did not author.\", \"2013-03-20 07:27:05 UTC; ripley\", \"Terry Therneau [aut],\\n  Beth Atkinson [aut],\\n  Brian Ripley [aut, trl, cre] (author of R port)\", \"Brian Ripley <ripley@stats.ox.ac.uk>\"), .Names = c(\"Package\", \"Priority\", \"Version\", \"Date\", \"Authors@R\", \"Description\", \"Title\", \"Depends\", \"Suggests\", \"License\", \"LazyData\", \"ByteCompile\", \"Note\", \"Packaged\", \"Author\", \"Maintainer\")), \"c\", TRUE)"));                
(nchar(argv[[1]], argv[[2]], argv[[3]]));                
}, o=expected);                

