expected <- c(-2.97262442205101, -2.96446485584602, -2.91743992455304, -2.8897425387986, 
-2.87064984021708, -2.82882511569187, -2.80329246399924, -2.67720098560676, 
-2.52922565164044, -2.45502642402425, -2.38685618760064, -2.33519576629624, 
-2.31641680374742, -2.27890933351591, -2.21930913347751, -2.21753972489387, 
-2.21499892836437, -2.21495646424592, -2.20641956990585, -2.11383658647537, 
-2.07629728876054, -2.05757057340816, -1.89173630112782, -1.83408120274544, 
-1.79014129796997, -1.68299576221034, -1.64256255235523, -1.57991883857176, 
-1.5648388476111, -1.50189629523084, -1.45133259287104, -1.39055569516495, 
-1.20133379939944, -1.19580693589523, -0.940262471325696, -0.934458317700773, 
-0.761920109856874, -0.678148102015257, -0.644365496467799, -0.625228523276746, 
-0.528692848049104, -0.452570331282914, -0.423170546069741, -0.416335945017636, 
-0.397401746828109, -0.390122111421078, -0.284903160296381, -0.272966742049903, 
-0.223178054206073, -0.0804266170598567, -0.0741098136641085, 
-0.0616166163235903, -0.0272455788217485, -0.0192620046436787, 
0.0106206983327866, 0.0169407553039491, 0.0939270523376763, 0.134519706945866, 
0.17425535665825, 0.185772243887186, 0.327189480420202, 0.367137833498418, 
0.416373030748218, 0.46877646446228, 0.473321800120175, 0.556911027990282, 
0.613207478541881, 0.633825332857668, 0.708815339952707, 0.882365602534264, 
1.11015366297215, 1.25369117455557, 1.54184397496283, 1.61059647146612, 
1.63897713040933, 1.71497052256018, 1.73645787220448, 1.76223263237625, 
1.88368982356042, 1.8992390432395, 1.91595612186939, 1.95717442128807, 
2.08658177917823, 2.09740992262959, 2.14210348343477, 2.2406962341629, 
2.41673697670922, 2.52876619063318, 2.58289965474978, 2.63908819807693, 
2.70643682219088, 2.73273128271103, 2.74780045822263, 2.76040208246559, 
2.78059691889212, 2.89307818282396, 2.93497854005545, 2.97978561837226, 
2.98530492978171, 2.99806873407215)
test(id=0, code={
argv <- structure(list(x = c(2.14210348343477, 2.73273128271103, 2.99806873407215, 
-0.528692848049104, -2.21930913347751, 0.327189480420202, -0.761920109856874, 
-1.45133259287104, 2.58289965474978, 0.882365602534264, -0.678148102015257, 
2.09740992262959, 1.11015366297215, 2.70643682219088, 0.185772243887186, 
-2.38685618760064, -2.97262442205101, 0.473321800120175, -1.20133379939944, 
1.63897713040933, -1.89173630112782, 1.73645787220448, -0.0272455788217485, 
-0.0804266170598567, 2.78059691889212, -2.11383658647537, 0.0939270523376763, 
-0.390122111421078, -2.80329246399924, 1.61059647146612, 2.74780045822263, 
-0.0192620046436787, 0.0169407553039491, -1.57991883857176, 1.76223263237625, 
-2.21499892836437, 0.367137833498418, -0.284903160296381, 2.52876619063318, 
0.633825332857668, 0.613207478541881, 2.08658177917823, -2.96446485584602, 
-2.07629728876054, 0.46877646446228, 1.88368982356042, 0.416373030748218, 
1.91595612186939, -2.8897425387986, -0.625228523276746, 0.134519706945866, 
-0.416335945017636, -2.52922565164044, 0.17425535665825, -1.39055569516495, 
-0.423170546069741, 2.93497854005545, -1.64256255235523, 0.708815339952707, 
-2.20641956990585, 1.95717442128807, -2.05757057340816, 2.76040208246559, 
2.2406962341629, -1.68299576221034, -1.50189629523084, 1.54184397496283, 
0.0106206983327866, -0.644365496467799, 1.71497052256018, -2.21753972489387, 
-0.272966742049903, -0.0741098136641085, 2.63908819807693, 2.97978561837226, 
-1.19580693589523, -0.940262471325696, 0.556911027990282, -2.33519576629624, 
-0.223178054206073, 2.98530492978171, -2.27890933351591, 2.41673697670922, 
-2.31641680374742, -0.397401746828109, -1.83408120274544, -0.934458317700773, 
-2.91743992455304, -0.452570331282914, -1.79014129796997, -2.82882511569187, 
1.8992390432395, 1.25369117455557, -2.21495646424592, -2.45502642402425, 
-2.67720098560676, -1.5648388476111, -0.0616166163235903, 2.89307818282396, 
-2.87064984021708)), .Names = "x")
do.call('sort', argv);
},  o = expected);

