expected <- eval(parse(text="structure(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), .Names = c(\"is.array\", \"is.atomic\", \"is.call\", \"is.character\", \"is.complex\", \"is.data.frame\", \"is.double\", \"is.environment\", \"is.expression\", \"is.factor\", \"is.finite\", \"is.function\", \"is.infinite\", \"is.integer\", \"is.language\", \"is.list\", \"is.logical\", \"is.matrix\", \"is.na\", \"is.name\", \"is.nan\", \"is.null\", \"is.numeric\", \"is.numeric_version\", \"is.object\", \"is.ordered\", \"is.package_version\", \"is.pairlist\", \"is.primitive\", \"is.qr\", \"is.raw\", \"is.recursive\", \"is.symbol\", \"is.table\", \"is.vector\"))"));            
test(id=0, code={            
argv <- eval(parse(text="list(1, structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 0L, 1L, 0L, 1L, 1L, 1L, 1L, 1L, 0L, 1L, 0L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Names = c(\"is.array\", \"is.atomic\", \"is.call\", \"is.character\", \"is.complex\", \"is.data.frame\", \"is.double\", \"is.environment\", \"is.expression\", \"is.factor\", \"is.finite\", \"is.function\", \"is.infinite\", \"is.integer\", \"is.language\", \"is.list\", \"is.logical\", \"is.matrix\", \"is.na\", \"is.name\", \"is.nan\", \"is.null\", \"is.numeric\", \"is.numeric_version\", \"is.object\", \"is.ordered\", \"is.package_version\", \"is.pairlist\", \"is.primitive\", \"is.qr\", \"is.raw\", \"is.recursive\", \"is.symbol\", \"is.table\", \"is.vector\")))"));            
do.call(`==`, argv);            
}, o=expected);            

