msun/tests/cexp_test.c

28  * Tests for corner cases in cexp*().
54  * whether cexp() raises an invalid exception is unspecified.
76 /* Test all the functions that compute cexp(x). */
78 	test(cexp, x, result, exceptmask, excepts, checksign);		\
83  * Test all the functions that compute cexp(x), within a given tolerance.
87 	test_tol(cexp, x, result, tol * DBL_ULP());			\
101 	/* cexp(0) = 1, no exceptions raised */
117 	/* cexp(x + NaNi) = NaN + NaNi and optionally raises invalid */
118 	/* cexp(NaN + yi) = NaN + NaNi and optionally raises invalid (|y|>0) */
130 	/* cexp(NaN +- 0i) = NaN +- 0i */
134 	/* cexp(inf + NaN i) = inf + nan i */
137 	/* cexp(-inf + NaN i) = 0 */
140 	/* cexp(NaN + NaN i) = NaN + NaN i */
150 	/* cexp(x + inf i) = NaN + NaNi and raises invalid */
156 	/* cexp(-inf + yi) = 0 * (cos(y) + sin(y)i) */
170 	/* cexp(inf + yi) = inf * (cos(y) + sin(y)i) (except y=0) */
180 	/* cexp(inf + 0i) = inf + 0i */
195 		test(cexp, CMPLXL(finites[i], 0.0),
198 		test(cexp, CMPLXL(finites[i], -0.0),
217 		test(cexp, CMPLXL(0.0, finites[i]),
220 		test(cexp, CMPLXL(-0.0, finites[i]),
253 		test_tol(cexp, CMPLXL(a, b), CMPLXL(x, y), 3 * DBL_ULP());
267 	test_tol(cexp, CMPLXL(709.79, 0x1p-1074),
269 	test_tol(cexp, CMPLXL(1000, 0x1p-1074),
271 	test_tol(cexp, CMPLXL(1400, 0x1p-1074),
273 	test_tol(cexp, CMPLXL(900, 0x1.23456789abcdep-1020),
275 	test_tol(cexp, CMPLXL(1300, 0x1.23456789abcdep-1020),
297 	printf("ok 1 - cexp zero\n");
300 	printf("ok 2 - cexp nan\n");
303 	printf("ok 3 - cexp inf\n");
306 	printf("not ok 4 - cexp reals # TODO: PR # 191676 fails assertion on i386\n");
309 	printf("ok 4 - cexp reals\n");
313 	printf("ok 5 - cexp imaginaries\n");
316 	printf("ok 6 - cexp small\n");
319 	printf("ok 7 - cexp large\n");