expected <- eval(parse(text="c(Inf, Inf, Inf, Inf, Inf, 1.64493406684823, 0.644934066848226, 103.345879033255, 14.9576128448637, Inf, 103.063781426486, 28.2660702011406, 14.7693758451323, 10.5916883623902, 9.53924664498912, 10.5700248636461, 14.7259121609613, 28.200530152194, 102.975743610084, Inf, 102.944875362276, 28.1385191807323, 14.632201633884, 10.4437593683074, 9.37924664498912, 10.396413752535, 14.5368762441371, 27.9939185819462, 102.748986240469, Inf, 102.667867052027, 27.8298772054237, 14.2861808726383, 10.0531343683074, 8.93480220054468, 9.88620967090236, 13.9451602678057, 27.2994741375018, 101.922539959478, Inf, 101.433299150793, 26.2673772054237, 12.2453645461077, 7.27535659052959, 4.93480220054468, 3.63620967090236, 2.83404915669461, 2.2994741375017, 1.9225399594772, 1.64493406684823, 1.43329915079276, 1.26737720542378, 1.13425343499662, 1.0253565905296, 0.934802200544679, 0.85843189312458, 0.793232830163998, 0.7369741375017, 0.687972058242635, 0.644934066848226, 0.606852869801023, 0.572932760979335, 0.542537458665258, 0.515152508896944, 0.490357756100235, 0.46780689312458, 0.447212068918324, 0.428332162193058, 0.410963747993328, 0.394934066848226, 0.21654882779179, 0.0130717092982222)"));        
test(id=0, code={        
argv <- eval(parse(text="list(c(-100, -3, -2, -1, 0, 1, 2, -99.9, -7.7, -3, -2.9, -2.8, -2.7, -2.6, -2.5, -2.4, -2.3, -2.2, -2.1, -2, -1.9, -1.8, -1.7, -1.6, -1.5, -1.4, -1.3, -1.2, -1.1, -1, -0.9, -0.8, -0.7, -0.6, -0.5, -0.4, -0.3, -0.2, -0.0999999999999996, 0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1, 1.1, 1.2, 1.3, 1.4, 1.5, 1.6, 1.7, 1.8, 1.9, 2, 2.1, 2.2, 2.3, 2.4, 2.5, 2.6, 2.7, 2.8, 2.9, 3, 5.1, 77))"));        
do.call(`trigamma`, argv);        
}, o=expected);        

