t_ilogb.c revision 1.4 1 1.4 christos /* $NetBSD: t_ilogb.c,v 1.4 2016/08/24 09:13:44 christos Exp $ */
2 1.1 maya
3 1.1 maya /*-
4 1.1 maya * Copyright (c) 2016 The NetBSD Foundation, Inc.
5 1.1 maya * All rights reserved.
6 1.1 maya *
7 1.1 maya * This code is derived from software contributed to The NetBSD Foundation
8 1.1 maya * by Maya Rashish.
9 1.1 maya *
10 1.1 maya * Redistribution and use in source and binary forms, with or without
11 1.1 maya * modification, are permitted provided that the following conditions
12 1.1 maya * are met:
13 1.1 maya * 1. Redistributions of source code must retain the above copyright
14 1.1 maya * notice, this list of conditions and the following disclaimer.
15 1.1 maya * 2. Redistributions in binary form must reproduce the above copyright
16 1.1 maya * notice, this list of conditions and the following disclaimer in the
17 1.1 maya * documentation and/or other materials provided with the distribution.
18 1.1 maya *
19 1.1 maya * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
20 1.1 maya * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
21 1.1 maya * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
22 1.1 maya * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
23 1.1 maya * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
24 1.1 maya * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
25 1.1 maya * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
26 1.1 maya * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
27 1.1 maya * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
28 1.1 maya * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
29 1.1 maya * POSSIBILITY OF SUCH DAMAGE.
30 1.1 maya */
31 1.1 maya
32 1.1 maya #include <atf-c.h>
33 1.1 maya #include <fenv.h>
34 1.1 maya #include <math.h>
35 1.1 maya
36 1.3 christos #ifndef __HAVE_FENV
37 1.3 christos
38 1.3 christos # define ATF_CHECK_RAISED_INVALID
39 1.3 christos # define ATF_CHECK_RAISED_NOTHING
40 1.3 christos
41 1.3 christos #else
42 1.3 christos # define ATF_CHECK_RAISED_INVALID do { \
43 1.1 maya int r; \
44 1.1 maya r = feclearexcept(FE_ALL_EXCEPT); \
45 1.1 maya ATF_CHECK(r == FE_INVALID); \
46 1.3 christos } while (/*CONSTCOND*/0)
47 1.1 maya
48 1.3 christos # define ATF_CHECK_RAISED_NOTHING do { \
49 1.1 maya int r; \
50 1.1 maya r = feclearexcept(FE_ALL_EXCEPT); \
51 1.1 maya ATF_CHECK(r == 0); \
52 1.3 christos } while (/*CONSTCOND*/0)
53 1.3 christos #endif
54 1.1 maya
55 1.1 maya ATF_TC(ilogb);
56 1.1 maya ATF_TC_HEAD(ilogb, tc)
57 1.1 maya {
58 1.1 maya atf_tc_set_md_var(tc, "descr","Check ilogb family");
59 1.1 maya }
60 1.1 maya
61 1.1 maya ATF_TC_BODY(ilogb, tc)
62 1.1 maya {
63 1.1 maya atf_tc_expect_fail("PR lib/51427");
64 1.1 maya
65 1.1 maya ATF_CHECK(ilogbf(0) == FP_ILOGB0);
66 1.1 maya ATF_CHECK_RAISED_INVALID;
67 1.1 maya ATF_CHECK(ilogb(0) == FP_ILOGB0);
68 1.1 maya ATF_CHECK_RAISED_INVALID;
69 1.1 maya ATF_CHECK(ilogbl(0) == FP_ILOGB0);
70 1.1 maya ATF_CHECK_RAISED_INVALID;
71 1.1 maya
72 1.1 maya ATF_CHECK(ilogbf(-0) == FP_ILOGB0);
73 1.1 maya ATF_CHECK_RAISED_INVALID;
74 1.1 maya ATF_CHECK(ilogb(-0) == FP_ILOGB0);
75 1.1 maya ATF_CHECK_RAISED_INVALID;
76 1.4 christos #ifdef __HAVE_LONG_DOUBLE
77 1.1 maya ATF_CHECK(ilogbl(-0) == FP_ILOGB0);
78 1.1 maya ATF_CHECK_RAISED_INVALID;
79 1.4 christos #endif
80 1.1 maya
81 1.1 maya ATF_CHECK(ilogbf(INFINITY) == INT_MAX);
82 1.1 maya ATF_CHECK_RAISED_INVALID;
83 1.1 maya ATF_CHECK(ilogb(INFINITY) == INT_MAX);
84 1.1 maya ATF_CHECK_RAISED_INVALID;
85 1.4 christos #ifdef __HAVE_LONG_DOUBLE
86 1.1 maya ATF_CHECK(ilogbl(INFINITY) == INT_MAX);
87 1.1 maya ATF_CHECK_RAISED_INVALID;
88 1.4 christos #endif
89 1.1 maya
90 1.1 maya ATF_CHECK(ilogbf(-INFINITY) == INT_MAX);
91 1.1 maya ATF_CHECK_RAISED_INVALID;
92 1.1 maya ATF_CHECK(ilogb(-INFINITY) == INT_MAX);
93 1.1 maya ATF_CHECK_RAISED_INVALID;
94 1.4 christos #ifdef __HAVE_LONG_DOUBLE
95 1.1 maya ATF_CHECK(ilogbl(-INFINITY) == INT_MAX);
96 1.1 maya ATF_CHECK_RAISED_INVALID;
97 1.4 christos #endif
98 1.1 maya
99 1.2 maya ATF_CHECK(ilogbf(1024) == 10);
100 1.1 maya ATF_CHECK_RAISED_NOTHING;
101 1.2 maya ATF_CHECK(ilogb(1024) == 10);
102 1.1 maya ATF_CHECK_RAISED_NOTHING;
103 1.4 christos #ifdef __HAVE_LONG_DOUBLE
104 1.2 maya ATF_CHECK(ilogbl(1024) == 10);
105 1.1 maya ATF_CHECK_RAISED_NOTHING;
106 1.4 christos #endif
107 1.1 maya
108 1.1 maya #ifndef __vax__
109 1.1 maya ATF_CHECK(ilogbf(NAN) == FP_ILOGBNAN);
110 1.1 maya ATF_CHECK_RAISED_INVALID;
111 1.1 maya ATF_CHECK(ilogb(NAN) == FP_ILOGBNAN);
112 1.1 maya ATF_CHECK_RAISED_INVALID;
113 1.4 christos #ifdef __HAVE_LONG_DOUBLE
114 1.1 maya ATF_CHECK(ilogbl(NAN) == FP_ILOGBNAN);
115 1.1 maya ATF_CHECK_RAISED_INVALID;
116 1.1 maya #endif
117 1.4 christos #endif
118 1.1 maya }
119 1.1 maya
120 1.1 maya ATF_TP_ADD_TCS(tp)
121 1.1 maya {
122 1.1 maya
123 1.1 maya ATF_TP_ADD_TC(tp, ilogb);
124 1.1 maya
125 1.1 maya return atf_no_error();
126 1.1 maya }
127