t_ilogb.c revision 1.2 1 1.2 maya /* $NetBSD: t_ilogb.c,v 1.2 2016/08/22 10:36:20 maya 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.1 maya #define ATF_CHECK_RAISED_INVALID do { \
37 1.1 maya int r; \
38 1.1 maya r = feclearexcept(FE_ALL_EXCEPT); \
39 1.1 maya ATF_CHECK(r == FE_INVALID); \
40 1.1 maya } while (0)
41 1.1 maya
42 1.1 maya #define ATF_CHECK_RAISED_NOTHING do { \
43 1.1 maya int r; \
44 1.1 maya r = feclearexcept(FE_ALL_EXCEPT); \
45 1.1 maya ATF_CHECK(r == 0); \
46 1.1 maya } while (0)
47 1.1 maya
48 1.1 maya ATF_TC(ilogb);
49 1.1 maya ATF_TC_HEAD(ilogb, tc)
50 1.1 maya {
51 1.1 maya atf_tc_set_md_var(tc, "descr","Check ilogb family");
52 1.1 maya }
53 1.1 maya
54 1.1 maya ATF_TC_BODY(ilogb, tc)
55 1.1 maya {
56 1.1 maya atf_tc_expect_fail("PR lib/51427");
57 1.1 maya
58 1.1 maya ATF_CHECK(ilogbf(0) == FP_ILOGB0);
59 1.1 maya ATF_CHECK_RAISED_INVALID;
60 1.1 maya ATF_CHECK(ilogb(0) == FP_ILOGB0);
61 1.1 maya ATF_CHECK_RAISED_INVALID;
62 1.1 maya ATF_CHECK(ilogbl(0) == FP_ILOGB0);
63 1.1 maya ATF_CHECK_RAISED_INVALID;
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(INFINITY) == INT_MAX);
73 1.1 maya ATF_CHECK_RAISED_INVALID;
74 1.1 maya ATF_CHECK(ilogb(INFINITY) == INT_MAX);
75 1.1 maya ATF_CHECK_RAISED_INVALID;
76 1.1 maya ATF_CHECK(ilogbl(INFINITY) == INT_MAX);
77 1.1 maya ATF_CHECK_RAISED_INVALID;
78 1.1 maya
79 1.1 maya ATF_CHECK(ilogbf(-INFINITY) == INT_MAX);
80 1.1 maya ATF_CHECK_RAISED_INVALID;
81 1.1 maya ATF_CHECK(ilogb(-INFINITY) == INT_MAX);
82 1.1 maya ATF_CHECK_RAISED_INVALID;
83 1.1 maya ATF_CHECK(ilogbl(-INFINITY) == INT_MAX);
84 1.1 maya ATF_CHECK_RAISED_INVALID;
85 1.1 maya
86 1.2 maya ATF_CHECK(ilogbf(1024) == 10);
87 1.1 maya ATF_CHECK_RAISED_NOTHING;
88 1.2 maya ATF_CHECK(ilogb(1024) == 10);
89 1.1 maya ATF_CHECK_RAISED_NOTHING;
90 1.2 maya ATF_CHECK(ilogbl(1024) == 10);
91 1.1 maya ATF_CHECK_RAISED_NOTHING;
92 1.1 maya
93 1.1 maya #ifndef __vax__
94 1.1 maya ATF_CHECK(ilogbf(NAN) == FP_ILOGBNAN);
95 1.1 maya ATF_CHECK_RAISED_INVALID;
96 1.1 maya ATF_CHECK(ilogb(NAN) == FP_ILOGBNAN);
97 1.1 maya ATF_CHECK_RAISED_INVALID;
98 1.1 maya ATF_CHECK(ilogbl(NAN) == FP_ILOGBNAN);
99 1.1 maya ATF_CHECK_RAISED_INVALID;
100 1.1 maya #endif
101 1.1 maya }
102 1.1 maya
103 1.1 maya ATF_TP_ADD_TCS(tp)
104 1.1 maya {
105 1.1 maya
106 1.1 maya ATF_TP_ADD_TC(tp, ilogb);
107 1.1 maya
108 1.1 maya return atf_no_error();
109 1.1 maya }
110