expected <- eval(parse(text="50L"));                 
test(id=0, code={                 
argv <- eval(parse(text="list(structure(list(age = c(-1, -0.959071428571429, -0.918142857142857, -0.877214285714286, -0.836285714285714, -0.795357142857143, -0.754428571428571, -0.7135, -0.672571428571429, -0.631642857142857, -0.590714285714286, -0.549785714285714, -0.508857142857143, -0.467928571428571, -0.427, -0.386071428571429, -0.345142857142857, -0.304214285714286, -0.263285714285714, -0.222357142857143, -0.181428571428571, -0.1405, -0.0995714285714285, -0.0586428571428571, -0.0177142857142856, 0.0232142857142859, 0.0641428571428573, 0.105071428571429, 0.146, 0.186928571428572, 0.227857142857143, 0.268785714285714, 0.309714285714286, 0.350642857142857, 0.391571428571429, 0.4325, 0.473428571428572, 0.514357142857143, 0.555285714285714, 0.596214285714286, 0.637142857142857, 0.678071428571429, 0.719, 0.759928571428572, 0.800857142857143, 0.841785714285714, 0.882714285714286, 0.923642857142857, 0.964571428571429, 1.0055), Subject = structure(c(25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L), .Label = c(\"10\", \"26\", \"25\", \"9\", \"2\", \"6\", \"7\", \"17\", \"16\", \"15\", \"8\", \"20\", \"1\", \"18\", \"5\", \"23\", \"11\", \"21\", \"3\", \"24\", \"22\", \"12\", \"13\", \"14\", \"19\", \"4\"), class = \"factor\")), .Names = c(\"age\", \"Subject\"), out.attrs = structure(list(dim = structure(c(50L, 26L), .Names = c(\"age\", \"Subject\")), dimnames = structure(list(    age = c(\"age=-1.00000000\", \"age=-0.95907143\", \"age=-0.91814286\", \"age=-0.87721429\", \"age=-0.83628571\", \"age=-0.79535714\", \"age=-0.75442857\", \"age=-0.71350000\", \"age=-0.67257143\", \"age=-0.63164286\", \"age=-0.59071429\", \"age=-0.54978571\", \"age=-0.50885714\", \"age=-0.46792857\", \"age=-0.42700000\", \"age=-0.38607143\", \"age=-0.34514286\", \"age=-0.30421429\", \"age=-0.26328571\", \"age=-0.22235714\", \"age=-0.18142857\", \"age=-0.14050000\", \"age=-0.09957143\", \"age=-0.05864286\", \"age=-0.01771429\", \"age= 0.02321429\",     \"age= 0.06414286\", \"age= 0.10507143\", \"age= 0.14600000\", \"age= 0.18692857\", \"age= 0.22785714\", \"age= 0.26878571\", \"age= 0.30971429\", \"age= 0.35064286\", \"age= 0.39157143\", \"age= 0.43250000\", \"age= 0.47342857\", \"age= 0.51435714\", \"age= 0.55528571\", \"age= 0.59621429\", \"age= 0.63714286\", \"age= 0.67807143\", \"age= 0.71900000\", \"age= 0.75992857\", \"age= 0.80085714\", \"age= 0.84178571\", \"age= 0.88271429\", \"age= 0.92364286\", \"age= 0.96457143\", \"age= 1.00550000\"), Subject = c(\"Subject=10\", \"Subject=26\",     \"Subject=25\", \"Subject=9\", \"Subject=2\", \"Subject=6\", \"Subject=7\", \"Subject=17\", \"Subject=16\", \"Subject=15\", \"Subject=8\", \"Subject=20\", \"Subject=1\", \"Subject=18\", \"Subject=5\", \"Subject=23\", \"Subject=11\", \"Subject=21\", \"Subject=3\", \"Subject=24\", \"Subject=22\", \"Subject=12\", \"Subject=13\", \"Subject=14\", \"Subject=19\", \"Subject=4\")), .Names = c(\"age\", \"Subject\"))), .Names = c(\"dim\", \"dimnames\")), row.names = 1201:1250, class = \"data.frame\"), 2L)"));                 
.Internal(shortRowNames(argv[[1]], argv[[2]]));                 
}, o=expected);                 

