t_log.c revision 1.3 1 1.3 jruoho /* $NetBSD: t_log.c,v 1.3 2011/09/12 18:07:29 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.3 jruoho __RCSID("$NetBSD: t_log.c,v 1.3 2011/09/12 18:07:29 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.3 jruoho ATF_CHECK(isnan(y) != 0);
266 1.3 jruoho #endif
267 1.3 jruoho }
268 1.3 jruoho
269 1.3 jruoho ATF_TC(log1p_inf_pos);
270 1.3 jruoho ATF_TC_HEAD(log1p_inf_pos, tc)
271 1.3 jruoho {
272 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log1p(+Inf) == +Inf");
273 1.3 jruoho }
274 1.3 jruoho
275 1.3 jruoho ATF_TC_BODY(log1p_inf_pos, tc)
276 1.3 jruoho {
277 1.3 jruoho #ifndef __vax__
278 1.3 jruoho const double x = 1.0L / 0.0L;
279 1.3 jruoho
280 1.3 jruoho ATF_CHECK(log1p(x) == x);
281 1.3 jruoho #endif
282 1.3 jruoho }
283 1.3 jruoho
284 1.3 jruoho ATF_TC(log1p_one_neg);
285 1.3 jruoho ATF_TC_HEAD(log1p_one_neg, tc)
286 1.3 jruoho {
287 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log1p(-1.0) == -HUGE_VAL");
288 1.3 jruoho }
289 1.3 jruoho
290 1.3 jruoho ATF_TC_BODY(log1p_one_neg, tc)
291 1.3 jruoho {
292 1.3 jruoho #ifndef __vax__
293 1.3 jruoho const double x = log1p(-1.0);
294 1.3 jruoho
295 1.3 jruoho ATF_CHECK(x == -HUGE_VAL);
296 1.3 jruoho #endif
297 1.3 jruoho }
298 1.3 jruoho
299 1.3 jruoho ATF_TC(log1p_zero_neg);
300 1.3 jruoho ATF_TC_HEAD(log1p_zero_neg, tc)
301 1.3 jruoho {
302 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log1p(-0.0) == -0.0");
303 1.3 jruoho }
304 1.3 jruoho
305 1.3 jruoho ATF_TC_BODY(log1p_zero_neg, tc)
306 1.3 jruoho {
307 1.3 jruoho #ifndef __vax__
308 1.3 jruoho const double x = -0.0L;
309 1.3 jruoho
310 1.3 jruoho ATF_CHECK(log1p(x) == x);
311 1.3 jruoho #endif
312 1.3 jruoho }
313 1.3 jruoho
314 1.3 jruoho ATF_TC(log1p_zero_pos);
315 1.3 jruoho ATF_TC_HEAD(log1p_zero_pos, tc)
316 1.3 jruoho {
317 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log1p(+0.0) == +0.0");
318 1.3 jruoho }
319 1.3 jruoho
320 1.3 jruoho ATF_TC_BODY(log1p_zero_pos, tc)
321 1.3 jruoho {
322 1.3 jruoho #ifndef __vax__
323 1.3 jruoho const double x = 0.0L;
324 1.3 jruoho
325 1.3 jruoho ATF_CHECK(log1p(x) == x);
326 1.3 jruoho #endif
327 1.3 jruoho }
328 1.3 jruoho
329 1.3 jruoho /*
330 1.3 jruoho * log1pf(3)
331 1.3 jruoho */
332 1.3 jruoho ATF_TC(log1pf_nan);
333 1.3 jruoho ATF_TC_HEAD(log1pf_nan, tc)
334 1.3 jruoho {
335 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log1pf(NaN) == NaN");
336 1.3 jruoho }
337 1.3 jruoho
338 1.3 jruoho ATF_TC_BODY(log1pf_nan, tc)
339 1.3 jruoho {
340 1.3 jruoho #ifndef __vax__
341 1.3 jruoho const float x = 0.0L / 0.0L;
342 1.3 jruoho
343 1.3 jruoho ATF_CHECK(isnan(x) != 0);
344 1.3 jruoho ATF_CHECK(isnan(log1pf(x)) != 0);
345 1.3 jruoho #endif
346 1.3 jruoho }
347 1.3 jruoho
348 1.3 jruoho ATF_TC(log1pf_inf_neg);
349 1.3 jruoho ATF_TC_HEAD(log1pf_inf_neg, tc)
350 1.3 jruoho {
351 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log1pf(-Inf) == NaN");
352 1.3 jruoho }
353 1.3 jruoho
354 1.3 jruoho ATF_TC_BODY(log1pf_inf_neg, tc)
355 1.3 jruoho {
356 1.3 jruoho #ifndef __vax__
357 1.3 jruoho const float x = -1.0L / 0.0L;
358 1.3 jruoho const float y = log1pf(x);
359 1.3 jruoho
360 1.3 jruoho ATF_CHECK(isnan(y) != 0);
361 1.3 jruoho #endif
362 1.3 jruoho }
363 1.3 jruoho
364 1.3 jruoho ATF_TC(log1pf_inf_pos);
365 1.3 jruoho ATF_TC_HEAD(log1pf_inf_pos, tc)
366 1.3 jruoho {
367 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log1pf(+Inf) == +Inf");
368 1.3 jruoho }
369 1.3 jruoho
370 1.3 jruoho ATF_TC_BODY(log1pf_inf_pos, tc)
371 1.3 jruoho {
372 1.3 jruoho #ifndef __vax__
373 1.3 jruoho const float x = 1.0L / 0.0L;
374 1.3 jruoho
375 1.3 jruoho ATF_CHECK(log1pf(x) == x);
376 1.3 jruoho #endif
377 1.3 jruoho }
378 1.3 jruoho
379 1.3 jruoho ATF_TC(log1pf_one_neg);
380 1.3 jruoho ATF_TC_HEAD(log1pf_one_neg, tc)
381 1.3 jruoho {
382 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log1pf(-1.0) == -HUGE_VALF");
383 1.3 jruoho }
384 1.3 jruoho
385 1.3 jruoho ATF_TC_BODY(log1pf_one_neg, tc)
386 1.3 jruoho {
387 1.3 jruoho #ifndef __vax__
388 1.3 jruoho const float x = log1pf(-1.0);
389 1.3 jruoho
390 1.3 jruoho ATF_CHECK(x == -HUGE_VALF);
391 1.3 jruoho #endif
392 1.3 jruoho }
393 1.3 jruoho
394 1.3 jruoho ATF_TC(log1pf_zero_neg);
395 1.3 jruoho ATF_TC_HEAD(log1pf_zero_neg, tc)
396 1.3 jruoho {
397 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log1pf(-0.0) == -0.0");
398 1.3 jruoho }
399 1.3 jruoho
400 1.3 jruoho ATF_TC_BODY(log1pf_zero_neg, tc)
401 1.3 jruoho {
402 1.3 jruoho #ifndef __vax__
403 1.3 jruoho const float x = -0.0L;
404 1.3 jruoho
405 1.3 jruoho ATF_CHECK(log1pf(x) == x);
406 1.3 jruoho #endif
407 1.3 jruoho }
408 1.3 jruoho
409 1.3 jruoho ATF_TC(log1pf_zero_pos);
410 1.3 jruoho ATF_TC_HEAD(log1pf_zero_pos, tc)
411 1.3 jruoho {
412 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log1pf(+0.0) == +0.0");
413 1.3 jruoho }
414 1.3 jruoho
415 1.3 jruoho ATF_TC_BODY(log1pf_zero_pos, tc)
416 1.3 jruoho {
417 1.3 jruoho #ifndef __vax__
418 1.3 jruoho const float x = 0.0L;
419 1.3 jruoho
420 1.3 jruoho ATF_CHECK(log1pf(x) == x);
421 1.3 jruoho #endif
422 1.3 jruoho }
423 1.3 jruoho
424 1.3 jruoho /*
425 1.3 jruoho * log2(3)
426 1.3 jruoho */
427 1.3 jruoho ATF_TC(log2_nan);
428 1.3 jruoho ATF_TC_HEAD(log2_nan, tc)
429 1.3 jruoho {
430 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log2(NaN) == NaN");
431 1.3 jruoho }
432 1.3 jruoho
433 1.3 jruoho ATF_TC_BODY(log2_nan, tc)
434 1.3 jruoho {
435 1.3 jruoho #ifndef __vax__
436 1.3 jruoho const double x = 0.0L / 0.0L;
437 1.3 jruoho
438 1.3 jruoho ATF_CHECK(isnan(x) != 0);
439 1.3 jruoho ATF_CHECK(isnan(log2(x)) != 0);
440 1.3 jruoho #endif
441 1.3 jruoho }
442 1.3 jruoho
443 1.3 jruoho ATF_TC(log2_inf_neg);
444 1.3 jruoho ATF_TC_HEAD(log2_inf_neg, tc)
445 1.3 jruoho {
446 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log2(-Inf) == NaN");
447 1.3 jruoho }
448 1.3 jruoho
449 1.3 jruoho ATF_TC_BODY(log2_inf_neg, tc)
450 1.3 jruoho {
451 1.3 jruoho #ifndef __vax__
452 1.3 jruoho const double x = -1.0L / 0.0L;
453 1.3 jruoho const double y = log2(x);
454 1.3 jruoho
455 1.3 jruoho ATF_CHECK(isnan(y) != 0);
456 1.3 jruoho #endif
457 1.3 jruoho }
458 1.3 jruoho
459 1.3 jruoho ATF_TC(log2_inf_pos);
460 1.3 jruoho ATF_TC_HEAD(log2_inf_pos, tc)
461 1.3 jruoho {
462 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log2(+Inf) == +Inf");
463 1.3 jruoho }
464 1.3 jruoho
465 1.3 jruoho ATF_TC_BODY(log2_inf_pos, tc)
466 1.3 jruoho {
467 1.3 jruoho #ifndef __vax__
468 1.3 jruoho const double x = 1.0L / 0.0L;
469 1.3 jruoho
470 1.3 jruoho ATF_CHECK(log2(x) == x);
471 1.3 jruoho #endif
472 1.3 jruoho }
473 1.3 jruoho
474 1.3 jruoho ATF_TC(log2_one_pos);
475 1.3 jruoho ATF_TC_HEAD(log2_one_pos, tc)
476 1.3 jruoho {
477 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log2(1.0) == +0.0");
478 1.3 jruoho }
479 1.3 jruoho
480 1.3 jruoho ATF_TC_BODY(log2_one_pos, tc)
481 1.3 jruoho {
482 1.3 jruoho #ifndef __vax__
483 1.3 jruoho const double x = log2(1.0);
484 1.3 jruoho const double y = 0.0L;
485 1.3 jruoho
486 1.3 jruoho ATF_CHECK(x == y);
487 1.3 jruoho ATF_CHECK(signbit(x) == 0);
488 1.3 jruoho ATF_CHECK(signbit(y) == 0);
489 1.3 jruoho #endif
490 1.3 jruoho }
491 1.3 jruoho
492 1.3 jruoho ATF_TC(log2_zero_neg);
493 1.3 jruoho ATF_TC_HEAD(log2_zero_neg, tc)
494 1.3 jruoho {
495 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log2(-0.0) == -HUGE_VAL");
496 1.3 jruoho }
497 1.3 jruoho
498 1.3 jruoho ATF_TC_BODY(log2_zero_neg, tc)
499 1.3 jruoho {
500 1.3 jruoho #ifndef __vax__
501 1.3 jruoho const double x = -0.0L;
502 1.3 jruoho
503 1.3 jruoho ATF_CHECK(log2(x) == -HUGE_VAL);
504 1.3 jruoho #endif
505 1.3 jruoho }
506 1.3 jruoho
507 1.3 jruoho ATF_TC(log2_zero_pos);
508 1.3 jruoho ATF_TC_HEAD(log2_zero_pos, tc)
509 1.3 jruoho {
510 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log2(+0.0) == -HUGE_VAL");
511 1.3 jruoho }
512 1.3 jruoho
513 1.3 jruoho ATF_TC_BODY(log2_zero_pos, tc)
514 1.3 jruoho {
515 1.3 jruoho #ifndef __vax__
516 1.3 jruoho const double x = 0.0L;
517 1.3 jruoho
518 1.3 jruoho ATF_CHECK(log2(x) == -HUGE_VAL);
519 1.3 jruoho #endif
520 1.3 jruoho }
521 1.3 jruoho
522 1.3 jruoho /*
523 1.3 jruoho * log2f(3)
524 1.3 jruoho */
525 1.3 jruoho ATF_TC(log2f_nan);
526 1.3 jruoho ATF_TC_HEAD(log2f_nan, tc)
527 1.3 jruoho {
528 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log2f(NaN) == NaN");
529 1.3 jruoho }
530 1.3 jruoho
531 1.3 jruoho ATF_TC_BODY(log2f_nan, tc)
532 1.3 jruoho {
533 1.3 jruoho #ifndef __vax__
534 1.3 jruoho const float x = 0.0L / 0.0L;
535 1.3 jruoho
536 1.3 jruoho ATF_CHECK(isnan(x) != 0);
537 1.3 jruoho ATF_CHECK(isnan(log2f(x)) != 0);
538 1.3 jruoho #endif
539 1.3 jruoho }
540 1.3 jruoho
541 1.3 jruoho ATF_TC(log2f_inf_neg);
542 1.3 jruoho ATF_TC_HEAD(log2f_inf_neg, tc)
543 1.3 jruoho {
544 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log2f(-Inf) == NaN");
545 1.3 jruoho }
546 1.3 jruoho
547 1.3 jruoho ATF_TC_BODY(log2f_inf_neg, tc)
548 1.3 jruoho {
549 1.3 jruoho #ifndef __vax__
550 1.3 jruoho const float x = -1.0L / 0.0L;
551 1.3 jruoho const float y = log2f(x);
552 1.3 jruoho
553 1.3 jruoho ATF_CHECK(isnan(y) != 0);
554 1.3 jruoho #endif
555 1.3 jruoho }
556 1.3 jruoho
557 1.3 jruoho ATF_TC(log2f_inf_pos);
558 1.3 jruoho ATF_TC_HEAD(log2f_inf_pos, tc)
559 1.3 jruoho {
560 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log2f(+Inf) == +Inf");
561 1.3 jruoho }
562 1.3 jruoho
563 1.3 jruoho ATF_TC_BODY(log2f_inf_pos, tc)
564 1.3 jruoho {
565 1.3 jruoho #ifndef __vax__
566 1.3 jruoho const float x = 1.0L / 0.0L;
567 1.3 jruoho
568 1.3 jruoho ATF_CHECK(log2f(x) == x);
569 1.3 jruoho #endif
570 1.3 jruoho }
571 1.3 jruoho
572 1.3 jruoho ATF_TC(log2f_one_pos);
573 1.3 jruoho ATF_TC_HEAD(log2f_one_pos, tc)
574 1.3 jruoho {
575 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log2f(1.0) == +0.0");
576 1.3 jruoho }
577 1.3 jruoho
578 1.3 jruoho ATF_TC_BODY(log2f_one_pos, tc)
579 1.3 jruoho {
580 1.3 jruoho #ifndef __vax__
581 1.3 jruoho const float x = log2f(1.0);
582 1.3 jruoho const float y = 0.0L;
583 1.3 jruoho
584 1.3 jruoho ATF_CHECK(x == y);
585 1.3 jruoho ATF_CHECK(signbit(x) == 0);
586 1.3 jruoho ATF_CHECK(signbit(y) == 0);
587 1.3 jruoho #endif
588 1.3 jruoho }
589 1.3 jruoho
590 1.3 jruoho ATF_TC(log2f_zero_neg);
591 1.3 jruoho ATF_TC_HEAD(log2f_zero_neg, tc)
592 1.3 jruoho {
593 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log2f(-0.0) == -HUGE_VALF");
594 1.3 jruoho }
595 1.3 jruoho
596 1.3 jruoho ATF_TC_BODY(log2f_zero_neg, tc)
597 1.3 jruoho {
598 1.3 jruoho #ifndef __vax__
599 1.3 jruoho const float x = -0.0L;
600 1.3 jruoho
601 1.3 jruoho ATF_CHECK(log2f(x) == -HUGE_VALF);
602 1.3 jruoho #endif
603 1.3 jruoho }
604 1.3 jruoho
605 1.3 jruoho ATF_TC(log2f_zero_pos);
606 1.3 jruoho ATF_TC_HEAD(log2f_zero_pos, tc)
607 1.3 jruoho {
608 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log2f(+0.0) == -HUGE_VALF");
609 1.3 jruoho }
610 1.3 jruoho
611 1.3 jruoho ATF_TC_BODY(log2f_zero_pos, tc)
612 1.3 jruoho {
613 1.3 jruoho #ifndef __vax__
614 1.3 jruoho const float x = 0.0L;
615 1.3 jruoho
616 1.3 jruoho ATF_CHECK(log2f(x) == -HUGE_VALF);
617 1.3 jruoho #endif
618 1.3 jruoho }
619 1.1 jruoho
620 1.3 jruoho /*
621 1.3 jruoho * log(3)
622 1.3 jruoho */
623 1.1 jruoho ATF_TC(log_nan);
624 1.1 jruoho ATF_TC_HEAD(log_nan, tc)
625 1.1 jruoho {
626 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log(NaN) == NaN");
627 1.1 jruoho }
628 1.1 jruoho
629 1.1 jruoho ATF_TC_BODY(log_nan, tc)
630 1.1 jruoho {
631 1.1 jruoho #ifndef __vax__
632 1.3 jruoho const double x = 0.0L / 0.0L;
633 1.3 jruoho
634 1.3 jruoho ATF_CHECK(isnan(x) != 0);
635 1.3 jruoho ATF_CHECK(isnan(log(x)) != 0);
636 1.3 jruoho #endif
637 1.3 jruoho }
638 1.3 jruoho
639 1.3 jruoho ATF_TC(log_inf_neg);
640 1.3 jruoho ATF_TC_HEAD(log_inf_neg, tc)
641 1.3 jruoho {
642 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log(-Inf) == NaN");
643 1.3 jruoho }
644 1.3 jruoho
645 1.3 jruoho ATF_TC_BODY(log_inf_neg, tc)
646 1.3 jruoho {
647 1.3 jruoho #ifndef __vax__
648 1.3 jruoho const double x = -1.0L / 0.0L;
649 1.3 jruoho const double y = log(x);
650 1.3 jruoho
651 1.3 jruoho ATF_CHECK(isnan(y) != 0);
652 1.3 jruoho #endif
653 1.3 jruoho }
654 1.3 jruoho
655 1.3 jruoho ATF_TC(log_inf_pos);
656 1.3 jruoho ATF_TC_HEAD(log_inf_pos, tc)
657 1.3 jruoho {
658 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log(+Inf) == +Inf");
659 1.3 jruoho }
660 1.3 jruoho
661 1.3 jruoho ATF_TC_BODY(log_inf_pos, tc)
662 1.3 jruoho {
663 1.3 jruoho #ifndef __vax__
664 1.3 jruoho const double x = 1.0L / 0.0L;
665 1.1 jruoho
666 1.3 jruoho ATF_CHECK(log(x) == x);
667 1.3 jruoho #endif
668 1.3 jruoho }
669 1.3 jruoho
670 1.3 jruoho ATF_TC(log_one_pos);
671 1.3 jruoho ATF_TC_HEAD(log_one_pos, tc)
672 1.3 jruoho {
673 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log(1.0) == +0.0");
674 1.3 jruoho }
675 1.3 jruoho
676 1.3 jruoho ATF_TC_BODY(log_one_pos, tc)
677 1.3 jruoho {
678 1.3 jruoho #ifndef __vax__
679 1.3 jruoho const double x = log(1.0);
680 1.3 jruoho const double y = 0.0L;
681 1.1 jruoho
682 1.3 jruoho ATF_CHECK(x == y);
683 1.3 jruoho ATF_CHECK(signbit(x) == 0);
684 1.3 jruoho ATF_CHECK(signbit(y) == 0);
685 1.3 jruoho #endif
686 1.3 jruoho }
687 1.1 jruoho
688 1.3 jruoho ATF_TC(log_zero_neg);
689 1.3 jruoho ATF_TC_HEAD(log_zero_neg, tc)
690 1.3 jruoho {
691 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log(-0.0) == -HUGE_VAL");
692 1.3 jruoho }
693 1.1 jruoho
694 1.3 jruoho ATF_TC_BODY(log_zero_neg, tc)
695 1.3 jruoho {
696 1.3 jruoho #ifndef __vax__
697 1.3 jruoho const double x = -0.0L;
698 1.1 jruoho
699 1.3 jruoho ATF_CHECK(log(x) == -HUGE_VAL);
700 1.3 jruoho #endif
701 1.3 jruoho }
702 1.3 jruoho
703 1.3 jruoho ATF_TC(log_zero_pos);
704 1.3 jruoho ATF_TC_HEAD(log_zero_pos, tc)
705 1.3 jruoho {
706 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test log(+0.0) == -HUGE_VAL");
707 1.3 jruoho }
708 1.3 jruoho
709 1.3 jruoho ATF_TC_BODY(log_zero_pos, tc)
710 1.3 jruoho {
711 1.3 jruoho #ifndef __vax__
712 1.3 jruoho const double x = 0.0L;
713 1.3 jruoho
714 1.3 jruoho ATF_CHECK(log(x) == -HUGE_VAL);
715 1.3 jruoho #endif
716 1.3 jruoho }
717 1.3 jruoho
718 1.3 jruoho
719 1.3 jruoho /*
720 1.3 jruoho * logf(3)
721 1.3 jruoho */
722 1.3 jruoho ATF_TC(logf_nan);
723 1.3 jruoho ATF_TC_HEAD(logf_nan, tc)
724 1.3 jruoho {
725 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test logf(NaN) == NaN");
726 1.3 jruoho }
727 1.3 jruoho
728 1.3 jruoho ATF_TC_BODY(logf_nan, tc)
729 1.3 jruoho {
730 1.3 jruoho #ifndef __vax__
731 1.3 jruoho const float x = 0.0L / 0.0L;
732 1.3 jruoho
733 1.3 jruoho ATF_CHECK(isnan(x) != 0);
734 1.3 jruoho ATF_CHECK(isnan(logf(x)) != 0);
735 1.3 jruoho #endif
736 1.3 jruoho }
737 1.3 jruoho
738 1.3 jruoho ATF_TC(logf_inf_neg);
739 1.3 jruoho ATF_TC_HEAD(logf_inf_neg, tc)
740 1.3 jruoho {
741 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test logf(-Inf) == NaN");
742 1.3 jruoho }
743 1.3 jruoho
744 1.3 jruoho ATF_TC_BODY(logf_inf_neg, tc)
745 1.3 jruoho {
746 1.3 jruoho #ifndef __vax__
747 1.3 jruoho const float x = -1.0L / 0.0L;
748 1.3 jruoho const float y = logf(x);
749 1.3 jruoho
750 1.3 jruoho ATF_CHECK(isnan(y) != 0);
751 1.3 jruoho #endif
752 1.3 jruoho }
753 1.3 jruoho
754 1.3 jruoho ATF_TC(logf_inf_pos);
755 1.3 jruoho ATF_TC_HEAD(logf_inf_pos, tc)
756 1.3 jruoho {
757 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test logf(+Inf) == +Inf");
758 1.3 jruoho }
759 1.3 jruoho
760 1.3 jruoho ATF_TC_BODY(logf_inf_pos, tc)
761 1.3 jruoho {
762 1.3 jruoho #ifndef __vax__
763 1.3 jruoho const float x = 1.0L / 0.0L;
764 1.3 jruoho
765 1.3 jruoho ATF_CHECK(logf(x) == x);
766 1.3 jruoho #endif
767 1.3 jruoho }
768 1.3 jruoho
769 1.3 jruoho ATF_TC(logf_one_pos);
770 1.3 jruoho ATF_TC_HEAD(logf_one_pos, tc)
771 1.3 jruoho {
772 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test logf(1.0) == +0.0");
773 1.3 jruoho }
774 1.3 jruoho
775 1.3 jruoho ATF_TC_BODY(logf_one_pos, tc)
776 1.3 jruoho {
777 1.3 jruoho #ifndef __vax__
778 1.3 jruoho const float x = logf(1.0);
779 1.3 jruoho const float y = 0.0L;
780 1.3 jruoho
781 1.3 jruoho ATF_CHECK(x == y);
782 1.3 jruoho ATF_CHECK(signbit(x) == 0);
783 1.3 jruoho ATF_CHECK(signbit(y) == 0);
784 1.3 jruoho #endif
785 1.3 jruoho }
786 1.3 jruoho
787 1.3 jruoho ATF_TC(logf_zero_neg);
788 1.3 jruoho ATF_TC_HEAD(logf_zero_neg, tc)
789 1.3 jruoho {
790 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test logf(-0.0) == -HUGE_VALF");
791 1.3 jruoho }
792 1.3 jruoho
793 1.3 jruoho ATF_TC_BODY(logf_zero_neg, tc)
794 1.3 jruoho {
795 1.3 jruoho #ifndef __vax__
796 1.3 jruoho const float x = -0.0L;
797 1.3 jruoho
798 1.3 jruoho ATF_CHECK(logf(x) == -HUGE_VALF);
799 1.3 jruoho #endif
800 1.3 jruoho }
801 1.3 jruoho
802 1.3 jruoho ATF_TC(logf_zero_pos);
803 1.3 jruoho ATF_TC_HEAD(logf_zero_pos, tc)
804 1.3 jruoho {
805 1.3 jruoho atf_tc_set_md_var(tc, "descr", "Test logf(+0.0) == -HUGE_VALF");
806 1.3 jruoho }
807 1.3 jruoho
808 1.3 jruoho ATF_TC_BODY(logf_zero_pos, tc)
809 1.3 jruoho {
810 1.3 jruoho #ifndef __vax__
811 1.3 jruoho const float x = 0.0L;
812 1.3 jruoho
813 1.3 jruoho ATF_CHECK(logf(x) == -HUGE_VALF);
814 1.1 jruoho #endif
815 1.1 jruoho }
816 1.1 jruoho
817 1.1 jruoho ATF_TP_ADD_TCS(tp)
818 1.1 jruoho {
819 1.1 jruoho
820 1.3 jruoho ATF_TP_ADD_TC(tp, log10_nan);
821 1.3 jruoho ATF_TP_ADD_TC(tp, log10_inf_neg);
822 1.3 jruoho ATF_TP_ADD_TC(tp, log10_inf_pos);
823 1.3 jruoho ATF_TP_ADD_TC(tp, log10_one_pos);
824 1.3 jruoho ATF_TP_ADD_TC(tp, log10_zero_neg);
825 1.3 jruoho ATF_TP_ADD_TC(tp, log10_zero_pos);
826 1.3 jruoho
827 1.3 jruoho ATF_TP_ADD_TC(tp, log10f_nan);
828 1.3 jruoho ATF_TP_ADD_TC(tp, log10f_inf_neg);
829 1.3 jruoho ATF_TP_ADD_TC(tp, log10f_inf_pos);
830 1.3 jruoho ATF_TP_ADD_TC(tp, log10f_one_pos);
831 1.3 jruoho ATF_TP_ADD_TC(tp, log10f_zero_neg);
832 1.3 jruoho ATF_TP_ADD_TC(tp, log10f_zero_pos);
833 1.3 jruoho
834 1.3 jruoho ATF_TP_ADD_TC(tp, log1p_nan);
835 1.3 jruoho ATF_TP_ADD_TC(tp, log1p_inf_neg);
836 1.3 jruoho ATF_TP_ADD_TC(tp, log1p_inf_pos);
837 1.3 jruoho ATF_TP_ADD_TC(tp, log1p_one_neg);
838 1.3 jruoho ATF_TP_ADD_TC(tp, log1p_zero_neg);
839 1.3 jruoho ATF_TP_ADD_TC(tp, log1p_zero_pos);
840 1.3 jruoho
841 1.3 jruoho ATF_TP_ADD_TC(tp, log1pf_nan);
842 1.3 jruoho ATF_TP_ADD_TC(tp, log1pf_inf_neg);
843 1.3 jruoho ATF_TP_ADD_TC(tp, log1pf_inf_pos);
844 1.3 jruoho ATF_TP_ADD_TC(tp, log1pf_one_neg);
845 1.3 jruoho ATF_TP_ADD_TC(tp, log1pf_zero_neg);
846 1.3 jruoho ATF_TP_ADD_TC(tp, log1pf_zero_pos);
847 1.3 jruoho
848 1.3 jruoho ATF_TP_ADD_TC(tp, log2_nan);
849 1.3 jruoho ATF_TP_ADD_TC(tp, log2_inf_neg);
850 1.3 jruoho ATF_TP_ADD_TC(tp, log2_inf_pos);
851 1.3 jruoho ATF_TP_ADD_TC(tp, log2_one_pos);
852 1.3 jruoho ATF_TP_ADD_TC(tp, log2_zero_neg);
853 1.3 jruoho ATF_TP_ADD_TC(tp, log2_zero_pos);
854 1.3 jruoho
855 1.3 jruoho ATF_TP_ADD_TC(tp, log2f_nan);
856 1.3 jruoho ATF_TP_ADD_TC(tp, log2f_inf_neg);
857 1.3 jruoho ATF_TP_ADD_TC(tp, log2f_inf_pos);
858 1.3 jruoho ATF_TP_ADD_TC(tp, log2f_one_pos);
859 1.3 jruoho ATF_TP_ADD_TC(tp, log2f_zero_neg);
860 1.3 jruoho ATF_TP_ADD_TC(tp, log2f_zero_pos);
861 1.3 jruoho
862 1.1 jruoho ATF_TP_ADD_TC(tp, log_nan);
863 1.3 jruoho ATF_TP_ADD_TC(tp, log_inf_neg);
864 1.3 jruoho ATF_TP_ADD_TC(tp, log_inf_pos);
865 1.3 jruoho ATF_TP_ADD_TC(tp, log_one_pos);
866 1.3 jruoho ATF_TP_ADD_TC(tp, log_zero_neg);
867 1.3 jruoho ATF_TP_ADD_TC(tp, log_zero_pos);
868 1.3 jruoho
869 1.3 jruoho ATF_TP_ADD_TC(tp, logf_nan);
870 1.3 jruoho ATF_TP_ADD_TC(tp, logf_inf_neg);
871 1.3 jruoho ATF_TP_ADD_TC(tp, logf_inf_pos);
872 1.3 jruoho ATF_TP_ADD_TC(tp, logf_one_pos);
873 1.3 jruoho ATF_TP_ADD_TC(tp, logf_zero_neg);
874 1.3 jruoho ATF_TP_ADD_TC(tp, logf_zero_pos);
875 1.1 jruoho
876 1.1 jruoho return atf_no_error();
877 1.1 jruoho }
878