msun/tests/cexp_test.c

28  * Tests for corner cases in cexp*().
54  * whether cexp() raises an invalid exception is unspecified.
84 /* Test all the functions that compute cexp(x). */
86 	test(cexp, x, result, exceptmask, excepts, checksign);		\
91  * Test all the functions that compute cexp(x), within a given tolerance.
95 	test_tol(cexp, x, result, tol * DBL_ULP());			\
109 	/* cexp(0) = 1, no exceptions raised */
125 	/* cexp(x + NaNi) = NaN + NaNi and optionally raises invalid */
126 	/* cexp(NaN + yi) = NaN + NaNi and optionally raises invalid (|y|>0) */
138 	/* cexp(NaN +- 0i) = NaN +- 0i */
142 	/* cexp(inf + NaN i) = inf + nan i */
145 	/* cexp(-inf + NaN i) = 0 */
148 	/* cexp(NaN + NaN i) = NaN + NaN i */
158 	/* cexp(x + inf i) = NaN + NaNi and raises invalid */
164 	/* cexp(-inf + yi) = 0 * (cos(y) + sin(y)i) */
178 	/* cexp(inf + yi) = inf * (cos(y) + sin(y)i) (except y=0) */
188 	/* cexp(inf + 0i) = inf + 0i */
203 		test(cexp, CMPLXL(finites[i], 0.0),
206 		test(cexp, CMPLXL(finites[i], -0.0),
225 		test(cexp, CMPLXL(0.0, finites[i]),
228 		test(cexp, CMPLXL(-0.0, finites[i]),
261 		test_tol(cexp, CMPLXL(a, b), CMPLXL(x, y), 3 * DBL_ULP());
275 	test_tol(cexp, CMPLXL(709.79, 0x1p-1074),
277 	test_tol(cexp, CMPLXL(1000, 0x1p-1074),
279 	test_tol(cexp, CMPLXL(1400, 0x1p-1074),
281 	test_tol(cexp, CMPLXL(900, 0x1.23456789abcdep-1020),
283 	test_tol(cexp, CMPLXL(1300, 0x1.23456789abcdep-1020),
305 	printf("ok 1 - cexp zero\n");
308 	printf("ok 2 - cexp nan\n");
311 	printf("ok 3 - cexp inf\n");
314 	printf("ok 4 - cexp reals\n");
317 	printf("ok 5 - cexp imaginaries\n");
320 	printf("ok 6 - cexp small\n");
323 	printf("ok 7 - cexp large\n");