expected <- eval(parse(text="c(\"2001-01-01\", \"2001-01-08\", \"2001-01-15\", \"2001-01-22\", \"2001-01-29\", \"2001-02-05\", \"2001-02-12\", \"2001-02-19\", \"2001-02-26\", \"2001-03-05\")"));                 
test(id=0, code={                 
argv <- eval(parse(text="list(structure(c(11323, 11330, 11337, 11344, 11351, 11358, 11365, 11372, 11379, 11386), class = \"Date\"))"));                 
do.call(`as.character`, argv);                 
}, o=expected);                 

