expected <- eval(parse(text="structure(c(\" 79.53\", \"  6.00\", \" 86.20\", \"  6.00\", \" 69.77\", \"  5.00\", \" 98.03\", \"  6.00\", \"108.03\", \"  6.00\", \" 89.20\", \"  6.00\", \"114.20\", \"  6.00\", \"116.70\", \"  6.00\", \"110.37\", \"  6.00\", \"124.37\", \"  6.00\", \"126.37\", \"  6.00\", \"118.03\", \"  6.00\"), .Dim = c(6L, 4L), .Dimnames = structure(list(V = c(\"Golden.rain\", \"rep        \", \"Marvellous \", \"rep        \", \"Victory    \", \"rep        \"), N = c(\"0.0cwt\", \"0.2cwt\", \"0.4cwt\", \"0.6cwt\")), .Names = c(\"V\", \"N\")))"));     
test(id=0, code={     
argv <- eval(parse(text="list(structure(c(\" 79.53\", \"  6.00\", \" 86.20\", \"  6.00\", \" 69.77\", \"  5.00\", \" 98.03\", \"  6.00\", \"108.03\", \"  6.00\", \" 89.20\", \"  6.00\", \"114.20\", \"  6.00\", \"116.70\", \"  6.00\", \"110.37\", \"  6.00\", \"124.37\", \"  6.00\", \"126.37\", \"  6.00\", \"118.03\", \"  6.00\"), .Dim = c(6L, 4L), .Dimnames = structure(list(V = c(\"Golden.rain\", \"rep        \", \"Marvellous \", \"rep        \", \"Victory    \", \"rep        \"), N = c(\"0.0cwt\", \"0.2cwt\", \"0.4cwt\", \"0.6cwt\")), .Names = c(\"V\", \"N\"))), NULL, FALSE, NULL, NULL, FALSE, NULL, TRUE, FALSE)"));     
.Internal(`print.default`(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]));     
}, o=expected);     

