expected <- eval(parse(text="structure(list(dim = 3L, dimnames = structure(list(`warpbreaks[, \"tension\"]` = c(\"L\", \"M\", \"H\")), .Names = \"warpbreaks[, \\\"tension\\\"]\")), .Names = c(\"dim\", \"dimnames\"))"));               
test(id=0, code={               
argv <- eval(parse(text="list(structure(list(L = structure(c(\"Min.   :14.00  \", \"1st Qu.:26.00  \", \"Median :29.50  \", \"Mean   :36.39  \", \"3rd Qu.:49.25  \", \"Max.   :70.00  \", \"A:9  \", \"B:9  \", NA, NA, NA, NA), .Dim = c(6L, 2L), .Dimnames = list(c(\"\", \"\", \"\", \"\", \"\", \"\"), c(\"    breaks\", \"wool\")), class = \"table\"), M = structure(c(\"Min.   :12.00  \", \"1st Qu.:18.25  \", \"Median :27.00  \", \"Mean   :26.39  \", \"3rd Qu.:33.75  \", \"Max.   :42.00  \", \"A:9  \", \"B:9  \", NA, NA, NA, NA), .Dim = c(6L, 2L), .Dimnames = list(c(\"\", \"\", \"\", \"\", \"\", \"\"), c(\"    breaks\", \"wool\")), class = \"table\"), H = structure(c(\"Min.   :10.00  \", \"1st Qu.:15.25  \", \"Median :20.50  \", \"Mean   :21.67  \", \"3rd Qu.:25.50  \", \"Max.   :43.00  \", \"A:9  \", \"B:9  \", NA, NA, NA, NA), .Dim = c(6L, 2L), .Dimnames = list(c(\"\", \"\", \"\", \"\", \"\", \"\"), c(\"    breaks\", \"wool\")), class = \"table\")), .Dim = 3L, .Dimnames = structure(list(`warpbreaks[, \"tension\"]` = c(\"L\", \"M\", \"H\")), .Names = \"warpbreaks[, \\\"tension\\\"]\")))"));               
do.call(`attributes`, argv);               
}, o=expected);               

