expected <- eval(parse(text="c(2.00256647265648e-308, 2.44758124435792e-308)"));           
test(id=0, code={           
argv <- eval(parse(text="list(c(2.00256647265648e-308, 2.22284878464869e-308, 2.22507363599982e-308, 2.2250738585072e-308, 2.22507408101459e-308, 2.22729893236571e-308, 2.44758124435792e-308), na.rm = FALSE)"));           
do.call(`range`, argv);           
}, o=expected);           

