libm/msun/ctrig_test.c

59 #define test_p(func, z, result, exceptmask, excepts, checksign)			\
62 		debug("  testing %s(%Lg + %Lg I) == %Lg + %Lg I\n", #func,	\
65 		CHECK_CFPEQUAL_CS((func)(_d), (result), (checksign));		\
68 		    "%s fetestexcept(%s) (%#x) != %#x",	__XSTRING(func),	\
77 #define	test_p_tol(func, z, result, tol)			do {	\
78 	debug("  testing %s(%Lg + %Lg I) ~= %Lg + %Lg I\n", #func,	\
80 	CHECK_CFPEQUAL_TOL((func)(z), (result), (tol), FPE_ABS_ZERO); \
84 #define	test(func, z, result, exceptmask, excepts, checksign)	do {	\
85 	test_p(func, z, result, exceptmask, excepts, checksign);	\
86 	test_p(func, conjl(z), conjl(result), exceptmask, excepts, checksign); \
88 #define	test_tol(func, z, result, tol)				do {	\
89 	test_p_tol(func, z, result, tol);				\
90 	test_p_tol(func, conjl(z), conjl(result), tol);			\
92 #define	test_odd_tol(func, z, result, tol)			do {	\
93 	test_tol(func, z, result, tol);					\
94 	test_tol(func, -(z), -(result), tol);				\
96 #define	test_even_tol(func, z, result, tol)			do {	\
97 	test_tol(func, z, result, tol);					\
98 	test_tol(func, -(z), result, tol);				\
102 #define	testall(func, x, result, exceptmask, excepts, checksign) do {	\
103 	test(func, x, result, exceptmask, excepts, checksign);		\
104 	test(func##f, x, result, exceptmask, excepts, checksign);	\
106 #define	testall_odd(func, x, result, exceptmask, excepts, checksign) do { \
107 	testall(func, x, result, exceptmask, excepts, checksign);	\
108 	testall(func, -x, -result, exceptmask, excepts, checksign);	\
110 #define	testall_even(func, x, result, exceptmask, excepts, checksign) do { \
111 	testall(func, x, result, exceptmask, excepts, checksign);	\
112 	testall(func, -x, result, exceptmask, excepts, checksign);	\
119 #define	testall_tol(func, x, result, tol)	       		   do { \
120 	test_tol(func, x, result, tol * DBL_ULP());			\
121 	test_tol(func##f, x, result, tol * FLT_ULP());			\
123 #define	testall_odd_tol(func, x, result, tol)	       		   do { \
124 	test_odd_tol(func, x, result, tol * DBL_ULP());			\
125 	test_odd_tol(func##f, x, result, tol * FLT_ULP());		\
127 #define	testall_even_tol(func, x, result, tol)	       		   do { \
128 	test_even_tol(func, x, result, tol * DBL_ULP());		\
129 	test_even_tol(func##f, x, result, tol * FLT_ULP());		\