expected <- eval(parse(text="structure(list(visible = c(FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE), from = structure(c(9L, 2L, 2L, 9L, 2L, 2L, 9L, 9L, 2L), .Label = c(\"CheckExEnv\", \"package:base\", \"package:datasets\", \"package:graphics\", \"package:grDevices\", \"package:methods\", \"package:stats\", \"package:utils\", \"registered S3method for [[\"), class = \"factor\")), .Names = c(\"visible\", \"from\"), row.names = c(\"[[.bibentry\", \"[[.data.frame\", \"[[.Date\", \"[[.dendrogram\", \"[[.factor\", \"[[.numeric_version\", \"[[.pdf_doc\", \"[[.person\", \"[[.POSIXct\"), class = \"data.frame\")"));                   
test(id=0, code={                   
argv <- eval(parse(text="list(structure(c(\"[[.bibentry\", \"[[.data.frame\", \"[[.Date\", \"[[.dendrogram\", \"[[.factor\", \"[[.numeric_version\", \"[[.pdf_doc\", \"[[.person\", \"[[.POSIXct\"), class = \"MethodsFunction\", info = structure(list(visible = c(FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE), from = structure(c(9L, 2L, 2L, 9L, 2L, 2L, 9L, 9L, 2L), .Label = c(\"CheckExEnv\", \"package:base\", \"package:datasets\", \"package:graphics\", \"package:grDevices\", \"package:methods\", \"package:stats\", \"package:utils\", \"registered S3method for [[\"), class = \"factor\")), .Names = c(\"visible\", \"from\"), row.names = c(\"[[.bibentry\", \"[[.data.frame\", \"[[.Date\", \"[[.dendrogram\", \"[[.factor\", \"[[.numeric_version\", \"[[.pdf_doc\", \"[[.person\", \"[[.POSIXct\"), class = \"data.frame\")), \"info\")"));                   
do.call(`attr`, argv);                   
}, o=expected);                   

