expected <- eval(parse(text="structure(list(names = c(\"school\", \"class\", \"score.1\", \"score.2\"), row.names = c(1L, 2L, 5L, 6L, 9L, 10L), class = \"data.frame\", reshapeWide = structure(list(v.names = NULL, timevar = \"time\", idvar = c(\"school\", \"class\"), times = c(1, 2), varying = structure(c(\"score.1\", \"score.2\"), .Dim = 1:2)), .Names = c(\"v.names\", \"timevar\", \"idvar\", \"times\", \"varying\"))), .Names = c(\"names\", \"row.names\", \"class\", \"reshapeWide\"))"));               
test(id=0, code={               
argv <- eval(parse(text="list(structure(list(school = c(1L, 1L, 2L, 2L, 3L, 3L), class = c(9L, 10L, 9L, 10L, 9L, 10L), score.1 = c(0.487429052428485, 0.738324705129217, 1.51178116845085, 0.389843236411431, 1.12493091814311, -0.0449336090152309), score.2 = c(0.575781351653492, -0.305388387156356, -0.621240580541804, -2.2146998871775, -0.0161902630989461, 0.943836210685299)), .Names = c(\"school\", \"class\", \"score.1\", \"score.2\"), row.names = c(1L, 2L, 5L, 6L, 9L, 10L), class = \"data.frame\", reshapeWide = structure(list(v.names = NULL,     timevar = \"time\", idvar = c(\"school\", \"class\"), times = c(1, 2), varying = structure(c(\"score.1\", \"score.2\"), .Dim = 1:2)), .Names = c(\"v.names\", \"timevar\", \"idvar\", \"times\", \"varying\"))))"));               
do.call(`attributes`, argv);               
}, o=expected);               

