expected <- eval(parse(text="structure(list(coefficients = structure(NA_real_, .Names = \"x\"), residuals = structure(c(-0.667819876370237, 0.170711734013213, 0.552921941721332, -0.253162069270378, -0.00786394222146348, 0.0246733498130512, 0.0730305465518564, -1.36919169254062, 0.0881443844426084, -0.0834190388782434), .Names = c(\"1\", \"2\", \"3\", \"4\", \"5\", \"6\", \"7\", \"8\", \"9\", \"10\")), effects = structure(c(-0.667819876370237, 0.170711734013213, 0.552921941721332, -0.253162069270378, -0.00786394222146348, 0.0246733498130512, 0.0730305465518564, -1.36919169254062, 0.0881443844426084, -0.0834190388782434), .Names = c(\"\", \"\", \"\", \"\", \"\", \"\", \"\", \"\", \"\", \"\")), rank = 0L, fitted.values = structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Names = c(\"1\", \"2\", \"3\", \"4\", \"5\", \"6\", \"7\", \"8\", \"9\", \"10\")), assign = 1L, qr = structure(list(qr = structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Dim = c(10L, 1L), .Dimnames = list(c(\"1\", \"2\", \"3\", \"4\", \"5\", \"6\", \"7\", \"8\", \"9\", \"10\"), \"x\"), assign = 1L), qraux = 0, pivot = 1L, tol = 1e-07, rank = 0L), .Names = c(\"qr\", \"qraux\", \"pivot\", \"tol\", \"rank\"), class = \"qr\"), df.residual = 10L, xlevels = structure(list(), .Names = character(0)), call = quote(lm(formula = y ~ x + 0)), terms = quote(y ~ x + 0), model = structure(list(y = c(-0.667819876370237, 0.170711734013213, 0.552921941721332, -0.253162069270378, -0.00786394222146348, 0.0246733498130512, 0.0730305465518564, -1.36919169254062, 0.0881443844426084, -0.0834190388782434), x = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0)), .Names = c(\"y\", \"x\"), terms = quote(y ~ x + 0), row.names = c(NA, 10L), class = \"data.frame\")), .Names = c(\"coefficients\", \"residuals\", \"effects\", \"rank\", \"fitted.values\", \"assign\", \"qr\", \"df.residual\", \"xlevels\", \"call\", \"terms\", \"model\"), class = \"lm\")"));     
test(id=0, code={     
argv <- eval(parse(text="list(structure(list(coefficients = structure(NA_real_, .Names = \"x\"), residuals = structure(c(-0.667819876370237, 0.170711734013213, 0.552921941721332, -0.253162069270378, -0.00786394222146348, 0.0246733498130512, 0.0730305465518564, -1.36919169254062, 0.0881443844426084, -0.0834190388782434), .Names = c(\"1\", \"2\", \"3\", \"4\", \"5\", \"6\", \"7\", \"8\", \"9\", \"10\")), effects = structure(c(-0.667819876370237, 0.170711734013213, 0.552921941721332, -0.253162069270378, -0.00786394222146348, 0.0246733498130512, 0.0730305465518564, -1.36919169254062, 0.0881443844426084, -0.0834190388782434), .Names = c(\"\", \"\", \"\", \"\", \"\", \"\", \"\", \"\", \"\", \"\")), rank = 0L, fitted.values = structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Names = c(\"1\", \"2\", \"3\", \"4\", \"5\", \"6\", \"7\", \"8\", \"9\", \"10\")), assign = 1L, qr = structure(list(qr = structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Dim = c(10L, 1L), .Dimnames = list(c(\"1\", \"2\", \"3\", \"4\", \"5\", \"6\", \"7\", \"8\", \"9\", \"10\"), \"x\"), assign = 1L), qraux = 0, pivot = 1L, tol = 1e-07, rank = 0L), .Names = c(\"qr\", \"qraux\", \"pivot\", \"tol\", \"rank\"), class = \"qr\"), df.residual = 10L, xlevels = structure(list(), .Names = character(0)), call = quote(lm(formula = y ~ x + 0)), terms = quote(y ~ x + 0), model = structure(list(y = c(-0.667819876370237, 0.170711734013213, 0.552921941721332, -0.253162069270378, -0.00786394222146348, 0.0246733498130512, 0.0730305465518564, -1.36919169254062, 0.0881443844426084, -0.0834190388782434), x = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0)), .Names = c(\"y\", \"x\"), terms = quote(y ~ x + 0), row.names = c(NA, 10L), class = \"data.frame\")), .Names = c(\"coefficients\", \"residuals\", \"effects\", \"rank\", \"fitted.values\", \"assign\", \"qr\", \"df.residual\", \"xlevels\", \"call\", \"terms\", \"model\"), class = \"lm\"))"));     
do.call(`(`, argv);     
}, o=expected);     

