expected <- eval(parse(text="structure(list(names = c(\"a_string\", \"a_bool\", \"a_struct\", \"a_cell\", \"a_complex_scalar\", \"a_list\", \"a_complex_matrix\", \"a_range\", \"a_scalar\", \"a_complex_3_d_array\", \"a_3_d_array\", \"a_matrix\", \"a_bool_matrix\")), .Names = \"names\")"));               
test(id=0, code={               
argv <- eval(parse(text="list(structure(list(a_string = c(\"foo\", \"bar\"), a_bool = FALSE, a_struct = structure(list(a = 1, b = structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), c = \"foo\"), .Names = c(\"a\", \"b\", \"c\")), a_cell = structure(list(1, \"foo\", structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), \"bar\"), .Dim = c(2L, 2L)), a_complex_scalar = 0+1i, a_list = list(1, structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), \"foo\"), a_complex_matrix = structure(c(1+2i, 5+0i, 3-4i, -6+0i), .Dim = c(2L, 2L)), a_range = c(1, 2, 3, 4, 5), a_scalar = 1,     a_complex_3_d_array = structure(c(1+1i, 3+1i, 2+1i, 4+1i, 5-1i, 7-1i, 6-1i, 8-1i), .Dim = c(2L, 2L, 2L)), a_3_d_array = structure(c(1, 3, 2, 4, 5, 7, 6, 8), .Dim = c(2L, 2L, 2L)), a_matrix = structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), a_bool_matrix = structure(c(TRUE, FALSE, FALSE, TRUE), .Dim = c(2L, 2L))), .Names = c(\"a_string\", \"a_bool\", \"a_struct\", \"a_cell\", \"a_complex_scalar\", \"a_list\", \"a_complex_matrix\", \"a_range\", \"a_scalar\", \"a_complex_3_d_array\", \"a_3_d_array\", \"a_matrix\", \"a_bool_matrix\")))"));               
do.call(`attributes`, argv);               
}, o=expected);               

