expected <- c(1.12029789965078, -0.718988837588323, -0.799820795962862, 1.36325504609423, 
-0.877647212109208, -1.46608694151033, -0.277315770575131, 0.49759016736751, 
-1.49309981133256, 0.147586557048694, 1.32490895489118, -0.993328430480091, 
-0.809428793397133, 1.39969712961021, 0.43065679489178, 0.19581824909626, 
-0.0622842939729247, 0.57841339234696, 2.31951400192491, 2.93765523729633
)
test(id=55, code={
argv <- structure(list(x = c(1.12029789965078, -0.718988837588323, -0.799820795962862, 
1.36325504609423, -0.877647212109208, -1.46608694151033, -0.277315770575131, 
0.49759016736751, -1.49309981133256, 0.147586557048694, 1.32490895489118, 
-0.993328430480091, -0.809428793397133, 1.39969712961021, 0.43065679489178, 
0.19581824909626, -0.0622842939729247, 0.57841339234696, 2.31951400192491, 
2.93765523729633)), .Names = "x")
do.call('print', argv);
},  o = expected);

