expected <- eval(parse(text="FALSE"));        
test(id=0, code={        
argv <- eval(parse(text="list(structure(list(group = structure(c(1L, 1L), .Label = c(\"Ctl\", \"Trt\"), class = \"factor\", contrasts = \"contr.treatment\")), .Names = \"group\", class = \"data.frame\", row.names = 1:2), \"any\")"));        
.Internal(`is.vector`(argv[[1]], argv[[2]]));        
}, o=expected);        

