expected <- eval(parse(text="c(\"   18\", \"   18\", \"    0\", \"   14\", \"    4\", \"   12\", \"   12\", \"    0\", \"    4\", \"    8\", \"   26\", \"   23\", \"    3\", \"   18\", \"    5\", \"    8\", \"    5\", \"    3\", \"    0\", \"    5\", \"   21\", \"    0\", \"   21\", \"    0\", \"    0\")"));           
test(id=0, code={           
argv <- eval(parse(text="list(\"%5g\", structure(c(18, 18, 0, 14, 4, 12, 12, 0, 4, 8, 26, 23, 3, 18, 5, 8, 5, 3, 0, 5, 21, 0, 21, 0, 0), .Dim = c(5L, 5L), .Dimnames = list(NULL, c(\"\", \"\", \"\", \"\", \"\"))))"));           
.Internal(sprintf(argv[[1]], argv[[2]]));           
}, o=expected);           

