t_log.c revision 1.4 1 1.4 jruoho /* $NetBSD: t_log.c,v 1.4 2011/09/13 04:24:30 jruoho Exp $ */
2 1.1 jruoho
3 1.1 jruoho /*-
4 1.1 jruoho * Copyright (c) 2011 The NetBSD Foundation, Inc.
5 1.1 jruoho * All rights reserved.
6 1.1 jruoho *
7 1.1 jruoho * This code is derived from software contributed to The NetBSD Foundation
8 1.1 jruoho * by Jukka Ruohonen.
9 1.1 jruoho *
10 1.1 jruoho * Redistribution and use in source and binary forms, with or without
11 1.1 jruoho * modification, are permitted provided that the following conditions
12 1.1 jruoho * are met:
13 1.1 jruoho * 1. Redistributions of source code must retain the above copyright
14 1.1 jruoho * notice, this list of conditions and the following disclaimer.
15 1.1 jruoho * 2. Redistributions in binary form must reproduce the above copyright
16 1.1 jruoho * notice, this list of conditions and the following disclaimer in the
17 1.1 jruoho * documentation and/or other materials provided with the distribution.
18 1.1 jruoho *
19 1.1 jruoho * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
20 1.1 jruoho * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
21 1.1 jruoho * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
22 1.1 jruoho * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
23 1.1 jruoho * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
24 1.1 jruoho * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
25 1.1 jruoho * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
26 1.1 jruoho * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
27 1.1 jruoho * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
28 1.1 jruoho * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
29 1.1 jruoho * POSSIBILITY OF SUCH DAMAGE.
30 1.1 jruoho */
31 1.1 jruoho #include <sys/cdefs.h>
32 1.4 jruoho __RCSID("$NetBSD: t_log.c,v 1.4 2011/09/13 04:24:30 jruoho Exp $");
33 1.1 jruoho
34 1.3 jruoho #include <atf-c.h>
35 1.3 jruoho #include <stdio.h>
36 1.1 jruoho #include <math.h>
37 1.1 jruoho
38 1.3 jruoho /*
39 1.3 jruoho * log10(3)
40 1.3 jruoho */
41 1.3 jruoho ATF_TC(log10_nan);
42 1.3 jruoho ATF_TC_HEAD(log10_nan, tc)
43 1.3 jruoho {
44 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log10(NaN) == NaN");
45 1.3 jruoho }
46 1.3 jruoho
47 1.3 jruoho ATF_TC_BODY(log10_nan, tc)
48 1.3 jruoho {
49 1.3 jruoho #ifndef __vax__
50 1.3 jruoho const double x = 0.0L / 0.0L;
51 1.3 jruoho
52 1.3 jruoho ATF_CHECK(isnan(x) != 0);
53 1.3 jruoho ATF_CHECK(isnan(log10(x)) != 0);
54 1.3 jruoho #endif
55 1.3 jruoho }
56 1.3 jruoho
57 1.3 jruoho ATF_TC(log10_inf_neg);
58 1.3 jruoho ATF_TC_HEAD(log10_inf_neg, tc)
59 1.3 jruoho {
60 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log10(-Inf) == NaN");
61 1.3 jruoho }
62 1.3 jruoho
63 1.3 jruoho ATF_TC_BODY(log10_inf_neg, tc)
64 1.3 jruoho {
65 1.3 jruoho #ifndef __vax__
66 1.3 jruoho const double x = -1.0L / 0.0L;
67 1.3 jruoho const double y = log10(x);
68 1.3 jruoho
69 1.3 jruoho ATF_CHECK(isnan(y) != 0);
70 1.3 jruoho #endif
71 1.3 jruoho }
72 1.3 jruoho
73 1.3 jruoho ATF_TC(log10_inf_pos);
74 1.3 jruoho ATF_TC_HEAD(log10_inf_pos, tc)
75 1.3 jruoho {
76 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log10(+Inf) == +Inf");
77 1.3 jruoho }
78 1.3 jruoho
79 1.3 jruoho ATF_TC_BODY(log10_inf_pos, tc)
80 1.3 jruoho {
81 1.3 jruoho #ifndef __vax__
82 1.3 jruoho const double x = 1.0L / 0.0L;
83 1.3 jruoho
84 1.3 jruoho ATF_CHECK(log10(x) == x);
85 1.3 jruoho #endif
86 1.3 jruoho }
87 1.3 jruoho
88 1.3 jruoho ATF_TC(log10_one_pos);
89 1.3 jruoho ATF_TC_HEAD(log10_one_pos, tc)
90 1.3 jruoho {
91 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log10(1.0) == +0.0");
92 1.3 jruoho }
93 1.3 jruoho
94 1.3 jruoho ATF_TC_BODY(log10_one_pos, tc)
95 1.3 jruoho {
96 1.3 jruoho #ifndef __vax__
97 1.3 jruoho const double x = log10(1.0);
98 1.3 jruoho const double y = 0.0L;
99 1.3 jruoho
100 1.3 jruoho ATF_CHECK(x == y);
101 1.3 jruoho ATF_CHECK(signbit(x) == 0);
102 1.3 jruoho ATF_CHECK(signbit(y) == 0);
103 1.3 jruoho #endif
104 1.3 jruoho }
105 1.3 jruoho
106 1.3 jruoho ATF_TC(log10_zero_neg);
107 1.3 jruoho ATF_TC_HEAD(log10_zero_neg, tc)
108 1.3 jruoho {
109 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log10(-0.0) == -HUGE_VAL");
110 1.3 jruoho }
111 1.3 jruoho
112 1.3 jruoho ATF_TC_BODY(log10_zero_neg, tc)
113 1.3 jruoho {
114 1.3 jruoho #ifndef __vax__
115 1.3 jruoho const double x = -0.0L;
116 1.3 jruoho
117 1.3 jruoho ATF_CHECK(log10(x) == -HUGE_VAL);
118 1.3 jruoho #endif
119 1.3 jruoho }
120 1.3 jruoho
121 1.3 jruoho ATF_TC(log10_zero_pos);
122 1.3 jruoho ATF_TC_HEAD(log10_zero_pos, tc)
123 1.3 jruoho {
124 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log10(+0.0) == -HUGE_VAL");
125 1.3 jruoho }
126 1.3 jruoho
127 1.3 jruoho ATF_TC_BODY(log10_zero_pos, tc)
128 1.3 jruoho {
129 1.3 jruoho #ifndef __vax__
130 1.3 jruoho const double x = 0.0L;
131 1.3 jruoho
132 1.3 jruoho ATF_CHECK(log10(x) == -HUGE_VAL);
133 1.3 jruoho #endif
134 1.3 jruoho }
135 1.3 jruoho
136 1.3 jruoho /*
137 1.3 jruoho * log10f(3)
138 1.3 jruoho */
139 1.3 jruoho ATF_TC(log10f_nan);
140 1.3 jruoho ATF_TC_HEAD(log10f_nan, tc)
141 1.3 jruoho {
142 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log10f(NaN) == NaN");
143 1.3 jruoho }
144 1.3 jruoho
145 1.3 jruoho ATF_TC_BODY(log10f_nan, tc)
146 1.3 jruoho {
147 1.3 jruoho #ifndef __vax__
148 1.3 jruoho const float x = 0.0L / 0.0L;
149 1.3 jruoho
150 1.3 jruoho ATF_CHECK(isnan(x) != 0);
151 1.3 jruoho ATF_CHECK(isnan(log10f(x)) != 0);
152 1.3 jruoho #endif
153 1.3 jruoho }
154 1.3 jruoho
155 1.3 jruoho ATF_TC(log10f_inf_neg);
156 1.3 jruoho ATF_TC_HEAD(log10f_inf_neg, tc)
157 1.3 jruoho {
158 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log10f(-Inf) == NaN");
159 1.3 jruoho }
160 1.3 jruoho
161 1.3 jruoho ATF_TC_BODY(log10f_inf_neg, tc)
162 1.3 jruoho {
163 1.3 jruoho #ifndef __vax__
164 1.3 jruoho const float x = -1.0L / 0.0L;
165 1.3 jruoho const float y = log10f(x);
166 1.3 jruoho
167 1.3 jruoho ATF_CHECK(isnan(y) != 0);
168 1.3 jruoho #endif
169 1.3 jruoho }
170 1.3 jruoho
171 1.3 jruoho ATF_TC(log10f_inf_pos);
172 1.3 jruoho ATF_TC_HEAD(log10f_inf_pos, tc)
173 1.3 jruoho {
174 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log10f(+Inf) == +Inf");
175 1.3 jruoho }
176 1.3 jruoho
177 1.3 jruoho ATF_TC_BODY(log10f_inf_pos, tc)
178 1.3 jruoho {
179 1.3 jruoho #ifndef __vax__
180 1.3 jruoho const float x = 1.0L / 0.0L;
181 1.3 jruoho
182 1.3 jruoho ATF_CHECK(log10f(x) == x);
183 1.3 jruoho #endif
184 1.3 jruoho }
185 1.3 jruoho
186 1.3 jruoho ATF_TC(log10f_one_pos);
187 1.3 jruoho ATF_TC_HEAD(log10f_one_pos, tc)
188 1.3 jruoho {
189 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log10f(1.0) == +0.0");
190 1.3 jruoho }
191 1.3 jruoho
192 1.3 jruoho ATF_TC_BODY(log10f_one_pos, tc)
193 1.3 jruoho {
194 1.3 jruoho #ifndef __vax__
195 1.3 jruoho const float x = log10f(1.0);
196 1.3 jruoho const float y = 0.0L;
197 1.3 jruoho
198 1.3 jruoho ATF_CHECK(x == y);
199 1.3 jruoho ATF_CHECK(signbit(x) == 0);
200 1.3 jruoho ATF_CHECK(signbit(y) == 0);
201 1.3 jruoho #endif
202 1.3 jruoho }
203 1.3 jruoho
204 1.3 jruoho ATF_TC(log10f_zero_neg);
205 1.3 jruoho ATF_TC_HEAD(log10f_zero_neg, tc)
206 1.3 jruoho {
207 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log10f(-0.0) == -HUGE_VALF");
208 1.3 jruoho }
209 1.3 jruoho
210 1.3 jruoho ATF_TC_BODY(log10f_zero_neg, tc)
211 1.3 jruoho {
212 1.3 jruoho #ifndef __vax__
213 1.3 jruoho const float x = -0.0L;
214 1.3 jruoho
215 1.3 jruoho ATF_CHECK(log10f(x) == -HUGE_VALF);
216 1.3 jruoho #endif
217 1.3 jruoho }
218 1.3 jruoho
219 1.3 jruoho ATF_TC(log10f_zero_pos);
220 1.3 jruoho ATF_TC_HEAD(log10f_zero_pos, tc)
221 1.3 jruoho {
222 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log10f(+0.0) == -HUGE_VALF");
223 1.3 jruoho }
224 1.3 jruoho
225 1.3 jruoho ATF_TC_BODY(log10f_zero_pos, tc)
226 1.3 jruoho {
227 1.3 jruoho #ifndef __vax__
228 1.3 jruoho const float x = 0.0L;
229 1.3 jruoho
230 1.3 jruoho ATF_CHECK(log10f(x) == -HUGE_VALF);
231 1.3 jruoho #endif
232 1.3 jruoho }
233 1.3 jruoho
234 1.3 jruoho /*
235 1.3 jruoho * log1p(3)
236 1.3 jruoho */
237 1.3 jruoho ATF_TC(log1p_nan);
238 1.3 jruoho ATF_TC_HEAD(log1p_nan, tc)
239 1.3 jruoho {
240 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log1p(NaN) == NaN");
241 1.3 jruoho }
242 1.3 jruoho
243 1.3 jruoho ATF_TC_BODY(log1p_nan, tc)
244 1.3 jruoho {
245 1.3 jruoho #ifndef __vax__
246 1.3 jruoho const double x = 0.0L / 0.0L;
247 1.3 jruoho
248 1.3 jruoho ATF_CHECK(isnan(x) != 0);
249 1.3 jruoho ATF_CHECK(isnan(log1p(x)) != 0);
250 1.3 jruoho #endif
251 1.3 jruoho }
252 1.3 jruoho
253 1.3 jruoho ATF_TC(log1p_inf_neg);
254 1.3 jruoho ATF_TC_HEAD(log1p_inf_neg, tc)
255 1.3 jruoho {
256 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log1p(-Inf) == NaN");
257 1.3 jruoho }
258 1.3 jruoho
259 1.3 jruoho ATF_TC_BODY(log1p_inf_neg, tc)
260 1.3 jruoho {
261 1.3 jruoho #ifndef __vax__
262 1.3 jruoho const double x = -1.0L / 0.0L;
263 1.3 jruoho const double y = log1p(x);
264 1.3 jruoho
265 1.4 jruoho if (isnan(y) == 0) {
266 1.4 jruoho atf_tc_expect_fail("PR lib/45362");
267 1.4 jruoho atf_tc_fail("log1p(-Inf) != NaN");
268 1.4 jruoho }
269 1.3 jruoho #endif
270 1.3 jruoho }
271 1.3 jruoho
272 1.3 jruoho ATF_TC(log1p_inf_pos);
273 1.3 jruoho ATF_TC_HEAD(log1p_inf_pos, tc)
274 1.3 jruoho {
275 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log1p(+Inf) == +Inf");
276 1.3 jruoho }
277 1.3 jruoho
278 1.3 jruoho ATF_TC_BODY(log1p_inf_pos, tc)
279 1.3 jruoho {
280 1.3 jruoho #ifndef __vax__
281 1.3 jruoho const double x = 1.0L / 0.0L;
282 1.3 jruoho
283 1.3 jruoho ATF_CHECK(log1p(x) == x);
284 1.3 jruoho #endif
285 1.3 jruoho }
286 1.3 jruoho
287 1.3 jruoho ATF_TC(log1p_one_neg);
288 1.3 jruoho ATF_TC_HEAD(log1p_one_neg, tc)
289 1.3 jruoho {
290 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log1p(-1.0) == -HUGE_VAL");
291 1.3 jruoho }
292 1.3 jruoho
293 1.3 jruoho ATF_TC_BODY(log1p_one_neg, tc)
294 1.3 jruoho {
295 1.3 jruoho #ifndef __vax__
296 1.3 jruoho const double x = log1p(-1.0);
297 1.3 jruoho
298 1.4 jruoho if (x != -HUGE_VAL) {
299 1.4 jruoho atf_tc_expect_fail("PR lib/45362");
300 1.4 jruoho atf_tc_fail("log1p(-1.0) != -HUGE_VAL");
301 1.4 jruoho }
302 1.3 jruoho #endif
303 1.3 jruoho }
304 1.3 jruoho
305 1.3 jruoho ATF_TC(log1p_zero_neg);
306 1.3 jruoho ATF_TC_HEAD(log1p_zero_neg, tc)
307 1.3 jruoho {
308 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log1p(-0.0) == -0.0");
309 1.3 jruoho }
310 1.3 jruoho
311 1.3 jruoho ATF_TC_BODY(log1p_zero_neg, tc)
312 1.3 jruoho {
313 1.3 jruoho #ifndef __vax__
314 1.3 jruoho const double x = -0.0L;
315 1.3 jruoho
316 1.3 jruoho ATF_CHECK(log1p(x) == x);
317 1.3 jruoho #endif
318 1.3 jruoho }
319 1.3 jruoho
320 1.3 jruoho ATF_TC(log1p_zero_pos);
321 1.3 jruoho ATF_TC_HEAD(log1p_zero_pos, tc)
322 1.3 jruoho {
323 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log1p(+0.0) == +0.0");
324 1.3 jruoho }
325 1.3 jruoho
326 1.3 jruoho ATF_TC_BODY(log1p_zero_pos, tc)
327 1.3 jruoho {
328 1.3 jruoho #ifndef __vax__
329 1.3 jruoho const double x = 0.0L;
330 1.3 jruoho
331 1.3 jruoho ATF_CHECK(log1p(x) == x);
332 1.3 jruoho #endif
333 1.3 jruoho }
334 1.3 jruoho
335 1.3 jruoho /*
336 1.3 jruoho * log1pf(3)
337 1.3 jruoho */
338 1.3 jruoho ATF_TC(log1pf_nan);
339 1.3 jruoho ATF_TC_HEAD(log1pf_nan, tc)
340 1.3 jruoho {
341 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log1pf(NaN) == NaN");
342 1.3 jruoho }
343 1.3 jruoho
344 1.3 jruoho ATF_TC_BODY(log1pf_nan, tc)
345 1.3 jruoho {
346 1.3 jruoho #ifndef __vax__
347 1.3 jruoho const float x = 0.0L / 0.0L;
348 1.3 jruoho
349 1.3 jruoho ATF_CHECK(isnan(x) != 0);
350 1.3 jruoho ATF_CHECK(isnan(log1pf(x)) != 0);
351 1.3 jruoho #endif
352 1.3 jruoho }
353 1.3 jruoho
354 1.3 jruoho ATF_TC(log1pf_inf_neg);
355 1.3 jruoho ATF_TC_HEAD(log1pf_inf_neg, tc)
356 1.3 jruoho {
357 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log1pf(-Inf) == NaN");
358 1.3 jruoho }
359 1.3 jruoho
360 1.3 jruoho ATF_TC_BODY(log1pf_inf_neg, tc)
361 1.3 jruoho {
362 1.3 jruoho #ifndef __vax__
363 1.3 jruoho const float x = -1.0L / 0.0L;
364 1.3 jruoho const float y = log1pf(x);
365 1.3 jruoho
366 1.4 jruoho if (isnan(y) == 0) {
367 1.4 jruoho atf_tc_expect_fail("PR lib/45362");
368 1.4 jruoho atf_tc_fail("log1pf(-Inf) != NaN");
369 1.4 jruoho }
370 1.3 jruoho #endif
371 1.3 jruoho }
372 1.3 jruoho
373 1.3 jruoho ATF_TC(log1pf_inf_pos);
374 1.3 jruoho ATF_TC_HEAD(log1pf_inf_pos, tc)
375 1.3 jruoho {
376 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log1pf(+Inf) == +Inf");
377 1.3 jruoho }
378 1.3 jruoho
379 1.3 jruoho ATF_TC_BODY(log1pf_inf_pos, tc)
380 1.3 jruoho {
381 1.3 jruoho #ifndef __vax__
382 1.3 jruoho const float x = 1.0L / 0.0L;
383 1.3 jruoho
384 1.3 jruoho ATF_CHECK(log1pf(x) == x);
385 1.3 jruoho #endif
386 1.3 jruoho }
387 1.3 jruoho
388 1.3 jruoho ATF_TC(log1pf_one_neg);
389 1.3 jruoho ATF_TC_HEAD(log1pf_one_neg, tc)
390 1.3 jruoho {
391 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log1pf(-1.0) == -HUGE_VALF");
392 1.3 jruoho }
393 1.3 jruoho
394 1.3 jruoho ATF_TC_BODY(log1pf_one_neg, tc)
395 1.3 jruoho {
396 1.3 jruoho #ifndef __vax__
397 1.3 jruoho const float x = log1pf(-1.0);
398 1.3 jruoho
399 1.4 jruoho if (x != -HUGE_VALF) {
400 1.4 jruoho atf_tc_expect_fail("PR lib/45362");
401 1.4 jruoho atf_tc_fail("log1pf(-1.0) != -HUGE_VALF");
402 1.4 jruoho }
403 1.3 jruoho #endif
404 1.3 jruoho }
405 1.3 jruoho
406 1.3 jruoho ATF_TC(log1pf_zero_neg);
407 1.3 jruoho ATF_TC_HEAD(log1pf_zero_neg, tc)
408 1.3 jruoho {
409 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log1pf(-0.0) == -0.0");
410 1.3 jruoho }
411 1.3 jruoho
412 1.3 jruoho ATF_TC_BODY(log1pf_zero_neg, tc)
413 1.3 jruoho {
414 1.3 jruoho #ifndef __vax__
415 1.3 jruoho const float x = -0.0L;
416 1.3 jruoho
417 1.3 jruoho ATF_CHECK(log1pf(x) == x);
418 1.3 jruoho #endif
419 1.3 jruoho }
420 1.3 jruoho
421 1.3 jruoho ATF_TC(log1pf_zero_pos);
422 1.3 jruoho ATF_TC_HEAD(log1pf_zero_pos, tc)
423 1.3 jruoho {
424 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log1pf(+0.0) == +0.0");
425 1.3 jruoho }
426 1.3 jruoho
427 1.3 jruoho ATF_TC_BODY(log1pf_zero_pos, tc)
428 1.3 jruoho {
429 1.3 jruoho #ifndef __vax__
430 1.3 jruoho const float x = 0.0L;
431 1.3 jruoho
432 1.3 jruoho ATF_CHECK(log1pf(x) == x);
433 1.3 jruoho #endif
434 1.3 jruoho }
435 1.3 jruoho
436 1.3 jruoho /*
437 1.3 jruoho * log2(3)
438 1.3 jruoho */
439 1.3 jruoho ATF_TC(log2_nan);
440 1.3 jruoho ATF_TC_HEAD(log2_nan, tc)
441 1.3 jruoho {
442 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log2(NaN) == NaN");
443 1.3 jruoho }
444 1.3 jruoho
445 1.3 jruoho ATF_TC_BODY(log2_nan, tc)
446 1.3 jruoho {
447 1.3 jruoho #ifndef __vax__
448 1.3 jruoho const double x = 0.0L / 0.0L;
449 1.3 jruoho
450 1.3 jruoho ATF_CHECK(isnan(x) != 0);
451 1.3 jruoho ATF_CHECK(isnan(log2(x)) != 0);
452 1.3 jruoho #endif
453 1.3 jruoho }
454 1.3 jruoho
455 1.3 jruoho ATF_TC(log2_inf_neg);
456 1.3 jruoho ATF_TC_HEAD(log2_inf_neg, tc)
457 1.3 jruoho {
458 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log2(-Inf) == NaN");
459 1.3 jruoho }
460 1.3 jruoho
461 1.3 jruoho ATF_TC_BODY(log2_inf_neg, tc)
462 1.3 jruoho {
463 1.3 jruoho #ifndef __vax__
464 1.3 jruoho const double x = -1.0L / 0.0L;
465 1.3 jruoho const double y = log2(x);
466 1.3 jruoho
467 1.3 jruoho ATF_CHECK(isnan(y) != 0);
468 1.3 jruoho #endif
469 1.3 jruoho }
470 1.3 jruoho
471 1.3 jruoho ATF_TC(log2_inf_pos);
472 1.3 jruoho ATF_TC_HEAD(log2_inf_pos, tc)
473 1.3 jruoho {
474 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log2(+Inf) == +Inf");
475 1.3 jruoho }
476 1.3 jruoho
477 1.3 jruoho ATF_TC_BODY(log2_inf_pos, tc)
478 1.3 jruoho {
479 1.3 jruoho #ifndef __vax__
480 1.3 jruoho const double x = 1.0L / 0.0L;
481 1.3 jruoho
482 1.3 jruoho ATF_CHECK(log2(x) == x);
483 1.3 jruoho #endif
484 1.3 jruoho }
485 1.3 jruoho
486 1.3 jruoho ATF_TC(log2_one_pos);
487 1.3 jruoho ATF_TC_HEAD(log2_one_pos, tc)
488 1.3 jruoho {
489 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log2(1.0) == +0.0");
490 1.3 jruoho }
491 1.3 jruoho
492 1.3 jruoho ATF_TC_BODY(log2_one_pos, tc)
493 1.3 jruoho {
494 1.3 jruoho #ifndef __vax__
495 1.3 jruoho const double x = log2(1.0);
496 1.3 jruoho const double y = 0.0L;
497 1.3 jruoho
498 1.3 jruoho ATF_CHECK(x == y);
499 1.3 jruoho ATF_CHECK(signbit(x) == 0);
500 1.3 jruoho ATF_CHECK(signbit(y) == 0);
501 1.3 jruoho #endif
502 1.3 jruoho }
503 1.3 jruoho
504 1.3 jruoho ATF_TC(log2_zero_neg);
505 1.3 jruoho ATF_TC_HEAD(log2_zero_neg, tc)
506 1.3 jruoho {
507 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log2(-0.0) == -HUGE_VAL");
508 1.3 jruoho }
509 1.3 jruoho
510 1.3 jruoho ATF_TC_BODY(log2_zero_neg, tc)
511 1.3 jruoho {
512 1.3 jruoho #ifndef __vax__
513 1.3 jruoho const double x = -0.0L;
514 1.3 jruoho
515 1.3 jruoho ATF_CHECK(log2(x) == -HUGE_VAL);
516 1.3 jruoho #endif
517 1.3 jruoho }
518 1.3 jruoho
519 1.3 jruoho ATF_TC(log2_zero_pos);
520 1.3 jruoho ATF_TC_HEAD(log2_zero_pos, tc)
521 1.3 jruoho {
522 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log2(+0.0) == -HUGE_VAL");
523 1.3 jruoho }
524 1.3 jruoho
525 1.3 jruoho ATF_TC_BODY(log2_zero_pos, tc)
526 1.3 jruoho {
527 1.3 jruoho #ifndef __vax__
528 1.3 jruoho const double x = 0.0L;
529 1.3 jruoho
530 1.3 jruoho ATF_CHECK(log2(x) == -HUGE_VAL);
531 1.3 jruoho #endif
532 1.3 jruoho }
533 1.3 jruoho
534 1.3 jruoho /*
535 1.3 jruoho * log2f(3)
536 1.3 jruoho */
537 1.3 jruoho ATF_TC(log2f_nan);
538 1.3 jruoho ATF_TC_HEAD(log2f_nan, tc)
539 1.3 jruoho {
540 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log2f(NaN) == NaN");
541 1.3 jruoho }
542 1.3 jruoho
543 1.3 jruoho ATF_TC_BODY(log2f_nan, tc)
544 1.3 jruoho {
545 1.3 jruoho #ifndef __vax__
546 1.3 jruoho const float x = 0.0L / 0.0L;
547 1.3 jruoho
548 1.3 jruoho ATF_CHECK(isnan(x) != 0);
549 1.3 jruoho ATF_CHECK(isnan(log2f(x)) != 0);
550 1.3 jruoho #endif
551 1.3 jruoho }
552 1.3 jruoho
553 1.3 jruoho ATF_TC(log2f_inf_neg);
554 1.3 jruoho ATF_TC_HEAD(log2f_inf_neg, tc)
555 1.3 jruoho {
556 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log2f(-Inf) == NaN");
557 1.3 jruoho }
558 1.3 jruoho
559 1.3 jruoho ATF_TC_BODY(log2f_inf_neg, tc)
560 1.3 jruoho {
561 1.3 jruoho #ifndef __vax__
562 1.3 jruoho const float x = -1.0L / 0.0L;
563 1.3 jruoho const float y = log2f(x);
564 1.3 jruoho
565 1.3 jruoho ATF_CHECK(isnan(y) != 0);
566 1.3 jruoho #endif
567 1.3 jruoho }
568 1.3 jruoho
569 1.3 jruoho ATF_TC(log2f_inf_pos);
570 1.3 jruoho ATF_TC_HEAD(log2f_inf_pos, tc)
571 1.3 jruoho {
572 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log2f(+Inf) == +Inf");
573 1.3 jruoho }
574 1.3 jruoho
575 1.3 jruoho ATF_TC_BODY(log2f_inf_pos, tc)
576 1.3 jruoho {
577 1.3 jruoho #ifndef __vax__
578 1.3 jruoho const float x = 1.0L / 0.0L;
579 1.3 jruoho
580 1.3 jruoho ATF_CHECK(log2f(x) == x);
581 1.3 jruoho #endif
582 1.3 jruoho }
583 1.3 jruoho
584 1.3 jruoho ATF_TC(log2f_one_pos);
585 1.3 jruoho ATF_TC_HEAD(log2f_one_pos, tc)
586 1.3 jruoho {
587 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log2f(1.0) == +0.0");
588 1.3 jruoho }
589 1.3 jruoho
590 1.3 jruoho ATF_TC_BODY(log2f_one_pos, tc)
591 1.3 jruoho {
592 1.3 jruoho #ifndef __vax__
593 1.3 jruoho const float x = log2f(1.0);
594 1.3 jruoho const float y = 0.0L;
595 1.3 jruoho
596 1.3 jruoho ATF_CHECK(x == y);
597 1.3 jruoho ATF_CHECK(signbit(x) == 0);
598 1.3 jruoho ATF_CHECK(signbit(y) == 0);
599 1.3 jruoho #endif
600 1.3 jruoho }
601 1.3 jruoho
602 1.3 jruoho ATF_TC(log2f_zero_neg);
603 1.3 jruoho ATF_TC_HEAD(log2f_zero_neg, tc)
604 1.3 jruoho {
605 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log2f(-0.0) == -HUGE_VALF");
606 1.3 jruoho }
607 1.3 jruoho
608 1.3 jruoho ATF_TC_BODY(log2f_zero_neg, tc)
609 1.3 jruoho {
610 1.3 jruoho #ifndef __vax__
611 1.3 jruoho const float x = -0.0L;
612 1.3 jruoho
613 1.3 jruoho ATF_CHECK(log2f(x) == -HUGE_VALF);
614 1.3 jruoho #endif
615 1.3 jruoho }
616 1.3 jruoho
617 1.3 jruoho ATF_TC(log2f_zero_pos);
618 1.3 jruoho ATF_TC_HEAD(log2f_zero_pos, tc)
619 1.3 jruoho {
620 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log2f(+0.0) == -HUGE_VALF");
621 1.3 jruoho }
622 1.3 jruoho
623 1.3 jruoho ATF_TC_BODY(log2f_zero_pos, tc)
624 1.3 jruoho {
625 1.3 jruoho #ifndef __vax__
626 1.3 jruoho const float x = 0.0L;
627 1.3 jruoho
628 1.3 jruoho ATF_CHECK(log2f(x) == -HUGE_VALF);
629 1.3 jruoho #endif
630 1.3 jruoho }
631 1.1 jruoho
632 1.3 jruoho /*
633 1.3 jruoho * log(3)
634 1.3 jruoho */
635 1.1 jruoho ATF_TC(log_nan);
636 1.1 jruoho ATF_TC_HEAD(log_nan, tc)
637 1.1 jruoho {
638 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log(NaN) == NaN");
639 1.1 jruoho }
640 1.1 jruoho
641 1.1 jruoho ATF_TC_BODY(log_nan, tc)
642 1.1 jruoho {
643 1.1 jruoho #ifndef __vax__
644 1.3 jruoho const double x = 0.0L / 0.0L;
645 1.3 jruoho
646 1.3 jruoho ATF_CHECK(isnan(x) != 0);
647 1.3 jruoho ATF_CHECK(isnan(log(x)) != 0);
648 1.3 jruoho #endif
649 1.3 jruoho }
650 1.3 jruoho
651 1.3 jruoho ATF_TC(log_inf_neg);
652 1.3 jruoho ATF_TC_HEAD(log_inf_neg, tc)
653 1.3 jruoho {
654 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log(-Inf) == NaN");
655 1.3 jruoho }
656 1.3 jruoho
657 1.3 jruoho ATF_TC_BODY(log_inf_neg, tc)
658 1.3 jruoho {
659 1.3 jruoho #ifndef __vax__
660 1.3 jruoho const double x = -1.0L / 0.0L;
661 1.3 jruoho const double y = log(x);
662 1.3 jruoho
663 1.3 jruoho ATF_CHECK(isnan(y) != 0);
664 1.3 jruoho #endif
665 1.3 jruoho }
666 1.3 jruoho
667 1.3 jruoho ATF_TC(log_inf_pos);
668 1.3 jruoho ATF_TC_HEAD(log_inf_pos, tc)
669 1.3 jruoho {
670 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log(+Inf) == +Inf");
671 1.3 jruoho }
672 1.3 jruoho
673 1.3 jruoho ATF_TC_BODY(log_inf_pos, tc)
674 1.3 jruoho {
675 1.3 jruoho #ifndef __vax__
676 1.3 jruoho const double x = 1.0L / 0.0L;
677 1.1 jruoho
678 1.3 jruoho ATF_CHECK(log(x) == x);
679 1.3 jruoho #endif
680 1.3 jruoho }
681 1.3 jruoho
682 1.3 jruoho ATF_TC(log_one_pos);
683 1.3 jruoho ATF_TC_HEAD(log_one_pos, tc)
684 1.3 jruoho {
685 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log(1.0) == +0.0");
686 1.3 jruoho }
687 1.3 jruoho
688 1.3 jruoho ATF_TC_BODY(log_one_pos, tc)
689 1.3 jruoho {
690 1.3 jruoho #ifndef __vax__
691 1.3 jruoho const double x = log(1.0);
692 1.3 jruoho const double y = 0.0L;
693 1.1 jruoho
694 1.3 jruoho ATF_CHECK(x == y);
695 1.3 jruoho ATF_CHECK(signbit(x) == 0);
696 1.3 jruoho ATF_CHECK(signbit(y) == 0);
697 1.3 jruoho #endif
698 1.3 jruoho }
699 1.1 jruoho
700 1.3 jruoho ATF_TC(log_zero_neg);
701 1.3 jruoho ATF_TC_HEAD(log_zero_neg, tc)
702 1.3 jruoho {
703 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log(-0.0) == -HUGE_VAL");
704 1.3 jruoho }
705 1.1 jruoho
706 1.3 jruoho ATF_TC_BODY(log_zero_neg, tc)
707 1.3 jruoho {
708 1.3 jruoho #ifndef __vax__
709 1.3 jruoho const double x = -0.0L;
710 1.1 jruoho
711 1.3 jruoho ATF_CHECK(log(x) == -HUGE_VAL);
712 1.3 jruoho #endif
713 1.3 jruoho }
714 1.3 jruoho
715 1.3 jruoho ATF_TC(log_zero_pos);
716 1.3 jruoho ATF_TC_HEAD(log_zero_pos, tc)
717 1.3 jruoho {
718 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log(+0.0) == -HUGE_VAL");
719 1.3 jruoho }
720 1.3 jruoho
721 1.3 jruoho ATF_TC_BODY(log_zero_pos, tc)
722 1.3 jruoho {
723 1.3 jruoho #ifndef __vax__
724 1.3 jruoho const double x = 0.0L;
725 1.3 jruoho
726 1.3 jruoho ATF_CHECK(log(x) == -HUGE_VAL);
727 1.3 jruoho #endif
728 1.3 jruoho }
729 1.3 jruoho
730 1.3 jruoho
731 1.3 jruoho /*
732 1.3 jruoho * logf(3)
733 1.3 jruoho */
734 1.3 jruoho ATF_TC(logf_nan);
735 1.3 jruoho ATF_TC_HEAD(logf_nan, tc)
736 1.3 jruoho {
737 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test logf(NaN) == NaN");
738 1.3 jruoho }
739 1.3 jruoho
740 1.3 jruoho ATF_TC_BODY(logf_nan, tc)
741 1.3 jruoho {
742 1.3 jruoho #ifndef __vax__
743 1.3 jruoho const float x = 0.0L / 0.0L;
744 1.3 jruoho
745 1.3 jruoho ATF_CHECK(isnan(x) != 0);
746 1.3 jruoho ATF_CHECK(isnan(logf(x)) != 0);
747 1.3 jruoho #endif
748 1.3 jruoho }
749 1.3 jruoho
750 1.3 jruoho ATF_TC(logf_inf_neg);
751 1.3 jruoho ATF_TC_HEAD(logf_inf_neg, tc)
752 1.3 jruoho {
753 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test logf(-Inf) == NaN");
754 1.3 jruoho }
755 1.3 jruoho
756 1.3 jruoho ATF_TC_BODY(logf_inf_neg, tc)
757 1.3 jruoho {
758 1.3 jruoho #ifndef __vax__
759 1.3 jruoho const float x = -1.0L / 0.0L;
760 1.3 jruoho const float y = logf(x);
761 1.3 jruoho
762 1.3 jruoho ATF_CHECK(isnan(y) != 0);
763 1.3 jruoho #endif
764 1.3 jruoho }
765 1.3 jruoho
766 1.3 jruoho ATF_TC(logf_inf_pos);
767 1.3 jruoho ATF_TC_HEAD(logf_inf_pos, tc)
768 1.3 jruoho {
769 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test logf(+Inf) == +Inf");
770 1.3 jruoho }
771 1.3 jruoho
772 1.3 jruoho ATF_TC_BODY(logf_inf_pos, tc)
773 1.3 jruoho {
774 1.3 jruoho #ifndef __vax__
775 1.3 jruoho const float x = 1.0L / 0.0L;
776 1.3 jruoho
777 1.3 jruoho ATF_CHECK(logf(x) == x);
778 1.3 jruoho #endif
779 1.3 jruoho }
780 1.3 jruoho
781 1.3 jruoho ATF_TC(logf_one_pos);
782 1.3 jruoho ATF_TC_HEAD(logf_one_pos, tc)
783 1.3 jruoho {
784 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test logf(1.0) == +0.0");
785 1.3 jruoho }
786 1.3 jruoho
787 1.3 jruoho ATF_TC_BODY(logf_one_pos, tc)
788 1.3 jruoho {
789 1.3 jruoho #ifndef __vax__
790 1.3 jruoho const float x = logf(1.0);
791 1.3 jruoho const float y = 0.0L;
792 1.3 jruoho
793 1.3 jruoho ATF_CHECK(x == y);
794 1.3 jruoho ATF_CHECK(signbit(x) == 0);
795 1.3 jruoho ATF_CHECK(signbit(y) == 0);
796 1.3 jruoho #endif
797 1.3 jruoho }
798 1.3 jruoho
799 1.3 jruoho ATF_TC(logf_zero_neg);
800 1.3 jruoho ATF_TC_HEAD(logf_zero_neg, tc)
801 1.3 jruoho {
802 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test logf(-0.0) == -HUGE_VALF");
803 1.3 jruoho }
804 1.3 jruoho
805 1.3 jruoho ATF_TC_BODY(logf_zero_neg, tc)
806 1.3 jruoho {
807 1.3 jruoho #ifndef __vax__
808 1.3 jruoho const float x = -0.0L;
809 1.3 jruoho
810 1.3 jruoho ATF_CHECK(logf(x) == -HUGE_VALF);
811 1.3 jruoho #endif
812 1.3 jruoho }
813 1.3 jruoho
814 1.3 jruoho ATF_TC(logf_zero_pos);
815 1.3 jruoho ATF_TC_HEAD(logf_zero_pos, tc)
816 1.3 jruoho {
817 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test logf(+0.0) == -HUGE_VALF");
818 1.3 jruoho }
819 1.3 jruoho
820 1.3 jruoho ATF_TC_BODY(logf_zero_pos, tc)
821 1.3 jruoho {
822 1.3 jruoho #ifndef __vax__
823 1.3 jruoho const float x = 0.0L;
824 1.3 jruoho
825 1.3 jruoho ATF_CHECK(logf(x) == -HUGE_VALF);
826 1.1 jruoho #endif
827 1.1 jruoho }
828 1.1 jruoho
829 1.1 jruoho ATF_TP_ADD_TCS(tp)
830 1.1 jruoho {
831 1.1 jruoho
832 1.3 jruoho ATF_TP_ADD_TC(tp, log10_nan);
833 1.3 jruoho ATF_TP_ADD_TC(tp, log10_inf_neg);
834 1.3 jruoho ATF_TP_ADD_TC(tp, log10_inf_pos);
835 1.3 jruoho ATF_TP_ADD_TC(tp, log10_one_pos);
836 1.3 jruoho ATF_TP_ADD_TC(tp, log10_zero_neg);
837 1.3 jruoho ATF_TP_ADD_TC(tp, log10_zero_pos);
838 1.3 jruoho
839 1.3 jruoho ATF_TP_ADD_TC(tp, log10f_nan);
840 1.3 jruoho ATF_TP_ADD_TC(tp, log10f_inf_neg);
841 1.3 jruoho ATF_TP_ADD_TC(tp, log10f_inf_pos);
842 1.3 jruoho ATF_TP_ADD_TC(tp, log10f_one_pos);
843 1.3 jruoho ATF_TP_ADD_TC(tp, log10f_zero_neg);
844 1.3 jruoho ATF_TP_ADD_TC(tp, log10f_zero_pos);
845 1.3 jruoho
846 1.3 jruoho ATF_TP_ADD_TC(tp, log1p_nan);
847 1.3 jruoho ATF_TP_ADD_TC(tp, log1p_inf_neg);
848 1.3 jruoho ATF_TP_ADD_TC(tp, log1p_inf_pos);
849 1.3 jruoho ATF_TP_ADD_TC(tp, log1p_one_neg);
850 1.3 jruoho ATF_TP_ADD_TC(tp, log1p_zero_neg);
851 1.3 jruoho ATF_TP_ADD_TC(tp, log1p_zero_pos);
852 1.3 jruoho
853 1.3 jruoho ATF_TP_ADD_TC(tp, log1pf_nan);
854 1.3 jruoho ATF_TP_ADD_TC(tp, log1pf_inf_neg);
855 1.3 jruoho ATF_TP_ADD_TC(tp, log1pf_inf_pos);
856 1.3 jruoho ATF_TP_ADD_TC(tp, log1pf_one_neg);
857 1.3 jruoho ATF_TP_ADD_TC(tp, log1pf_zero_neg);
858 1.3 jruoho ATF_TP_ADD_TC(tp, log1pf_zero_pos);
859 1.3 jruoho
860 1.3 jruoho ATF_TP_ADD_TC(tp, log2_nan);
861 1.3 jruoho ATF_TP_ADD_TC(tp, log2_inf_neg);
862 1.3 jruoho ATF_TP_ADD_TC(tp, log2_inf_pos);
863 1.3 jruoho ATF_TP_ADD_TC(tp, log2_one_pos);
864 1.3 jruoho ATF_TP_ADD_TC(tp, log2_zero_neg);
865 1.3 jruoho ATF_TP_ADD_TC(tp, log2_zero_pos);
866 1.3 jruoho
867 1.3 jruoho ATF_TP_ADD_TC(tp, log2f_nan);
868 1.3 jruoho ATF_TP_ADD_TC(tp, log2f_inf_neg);
869 1.3 jruoho ATF_TP_ADD_TC(tp, log2f_inf_pos);
870 1.3 jruoho ATF_TP_ADD_TC(tp, log2f_one_pos);
871 1.3 jruoho ATF_TP_ADD_TC(tp, log2f_zero_neg);
872 1.3 jruoho ATF_TP_ADD_TC(tp, log2f_zero_pos);
873 1.3 jruoho
874 1.1 jruoho ATF_TP_ADD_TC(tp, log_nan);
875 1.3 jruoho ATF_TP_ADD_TC(tp, log_inf_neg);
876 1.3 jruoho ATF_TP_ADD_TC(tp, log_inf_pos);
877 1.3 jruoho ATF_TP_ADD_TC(tp, log_one_pos);
878 1.3 jruoho ATF_TP_ADD_TC(tp, log_zero_neg);
879 1.3 jruoho ATF_TP_ADD_TC(tp, log_zero_pos);
880 1.3 jruoho
881 1.3 jruoho ATF_TP_ADD_TC(tp, logf_nan);
882 1.3 jruoho ATF_TP_ADD_TC(tp, logf_inf_neg);
883 1.3 jruoho ATF_TP_ADD_TC(tp, logf_inf_pos);
884 1.3 jruoho ATF_TP_ADD_TC(tp, logf_one_pos);
885 1.3 jruoho ATF_TP_ADD_TC(tp, logf_zero_neg);
886 1.3 jruoho ATF_TP_ADD_TC(tp, logf_zero_pos);
887 1.1 jruoho
888 1.1 jruoho return atf_no_error();
889 1.1 jruoho }
890