expected <- eval(parse(text="c(2, 3, 4, 5, 6, 7, 8, 9, 11)"));    
test(id=0, code={    
argv <- eval(parse(text="list(c(2.2, 3.3, 4.4, 5.5, 6.6, 7.7, 8.8, 9.9, 11))"));    
do.call(`floor`, argv);    
}, o=expected);    

