xref: /minix3/tests/lib/libm/t_infinity.c (revision 11be35a165022172ed3cea20f2b5df0307540b0e)
1*11be35a1SLionel Sambuc /* $NetBSD: t_infinity.c,v 1.6 2012/09/26 07:24:38 jruoho Exp $ */
2*11be35a1SLionel Sambuc 
3*11be35a1SLionel Sambuc /*-
4*11be35a1SLionel Sambuc  * Copyright (c) 2002, 2008 The NetBSD Foundation, Inc.
5*11be35a1SLionel Sambuc  * All rights reserved.
6*11be35a1SLionel Sambuc  *
7*11be35a1SLionel Sambuc  * This code is derived from software contributed to The NetBSD Foundation
8*11be35a1SLionel Sambuc  * by Martin Husemann <martin@NetBSD.org>.
9*11be35a1SLionel Sambuc  *
10*11be35a1SLionel Sambuc  * Redistribution and use in source and binary forms, with or without
11*11be35a1SLionel Sambuc  * modification, are permitted provided that the following conditions
12*11be35a1SLionel Sambuc  * are met:
13*11be35a1SLionel Sambuc  * 1. Redistributions of source code must retain the above copyright
14*11be35a1SLionel Sambuc  *    notice, this list of conditions and the following disclaimer.
15*11be35a1SLionel Sambuc  * 2. Redistributions in binary form must reproduce the above copyright
16*11be35a1SLionel Sambuc  *    notice, this list of conditions and the following disclaimer in the
17*11be35a1SLionel Sambuc  *    documentation and/or other materials provided with the distribution.
18*11be35a1SLionel Sambuc  *
19*11be35a1SLionel Sambuc  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
20*11be35a1SLionel Sambuc  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
21*11be35a1SLionel Sambuc  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
22*11be35a1SLionel Sambuc  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
23*11be35a1SLionel Sambuc  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
24*11be35a1SLionel Sambuc  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
25*11be35a1SLionel Sambuc  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
26*11be35a1SLionel Sambuc  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
27*11be35a1SLionel Sambuc  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
28*11be35a1SLionel Sambuc  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
29*11be35a1SLionel Sambuc  * POSSIBILITY OF SUCH DAMAGE.
30*11be35a1SLionel Sambuc  */
31*11be35a1SLionel Sambuc #include <sys/cdefs.h>
32*11be35a1SLionel Sambuc __RCSID("$NetBSD: t_infinity.c,v 1.6 2012/09/26 07:24:38 jruoho Exp $");
33*11be35a1SLionel Sambuc 
34*11be35a1SLionel Sambuc #include <atf-c.h>
35*11be35a1SLionel Sambuc #include <math.h>
36*11be35a1SLionel Sambuc #include <float.h>
37*11be35a1SLionel Sambuc #include <stdlib.h>
38*11be35a1SLionel Sambuc 
39*11be35a1SLionel Sambuc ATF_TC(infinity_float);
ATF_TC_HEAD(infinity_float,tc)40*11be35a1SLionel Sambuc ATF_TC_HEAD(infinity_float, tc)
41*11be35a1SLionel Sambuc {
42*11be35a1SLionel Sambuc 	atf_tc_set_md_var(tc, "descr",
43*11be35a1SLionel Sambuc 	     "check FPU generated infinite float values");
44*11be35a1SLionel Sambuc }
45*11be35a1SLionel Sambuc 
ATF_TC_BODY(infinity_float,tc)46*11be35a1SLionel Sambuc ATF_TC_BODY(infinity_float, tc)
47*11be35a1SLionel Sambuc {
48*11be35a1SLionel Sambuc 	float v;
49*11be35a1SLionel Sambuc 
50*11be35a1SLionel Sambuc 	v = FLT_MAX;
51*11be35a1SLionel Sambuc 	v *= v;
52*11be35a1SLionel Sambuc 	ATF_REQUIRE(isinf(v));
53*11be35a1SLionel Sambuc 	ATF_REQUIRE(fpclassify(v) == FP_INFINITE);
54*11be35a1SLionel Sambuc 
55*11be35a1SLionel Sambuc 	v = -FLT_MAX;
56*11be35a1SLionel Sambuc 	v *= v;
57*11be35a1SLionel Sambuc 	ATF_REQUIRE(isinf(v));
58*11be35a1SLionel Sambuc 	ATF_REQUIRE(fpclassify(v) == FP_INFINITE);
59*11be35a1SLionel Sambuc }
60*11be35a1SLionel Sambuc 
61*11be35a1SLionel Sambuc ATF_TC(infinity_double);
ATF_TC_HEAD(infinity_double,tc)62*11be35a1SLionel Sambuc ATF_TC_HEAD(infinity_double, tc)
63*11be35a1SLionel Sambuc {
64*11be35a1SLionel Sambuc 	atf_tc_set_md_var(tc, "descr",
65*11be35a1SLionel Sambuc 	     "check FPU generated infinite double values");
66*11be35a1SLionel Sambuc }
67*11be35a1SLionel Sambuc 
ATF_TC_BODY(infinity_double,tc)68*11be35a1SLionel Sambuc ATF_TC_BODY(infinity_double, tc)
69*11be35a1SLionel Sambuc {
70*11be35a1SLionel Sambuc 	double v;
71*11be35a1SLionel Sambuc 
72*11be35a1SLionel Sambuc 	v = DBL_MAX;
73*11be35a1SLionel Sambuc 	v *= v;
74*11be35a1SLionel Sambuc 	ATF_REQUIRE(isinf(v));
75*11be35a1SLionel Sambuc 	ATF_REQUIRE(fpclassify(v) == FP_INFINITE);
76*11be35a1SLionel Sambuc 
77*11be35a1SLionel Sambuc 	v = -DBL_MAX;
78*11be35a1SLionel Sambuc 	v *= v;
79*11be35a1SLionel Sambuc 	ATF_REQUIRE(isinf(v));
80*11be35a1SLionel Sambuc 	ATF_REQUIRE(fpclassify(v) == FP_INFINITE);
81*11be35a1SLionel Sambuc }
82*11be35a1SLionel Sambuc 
83*11be35a1SLionel Sambuc ATF_TC(infinity_long_double);
ATF_TC_HEAD(infinity_long_double,tc)84*11be35a1SLionel Sambuc ATF_TC_HEAD(infinity_long_double, tc)
85*11be35a1SLionel Sambuc {
86*11be35a1SLionel Sambuc 	atf_tc_set_md_var(tc, "descr",
87*11be35a1SLionel Sambuc 	     "check FPU generated infinite long double values");
88*11be35a1SLionel Sambuc }
89*11be35a1SLionel Sambuc 
ATF_TC_BODY(infinity_long_double,tc)90*11be35a1SLionel Sambuc ATF_TC_BODY(infinity_long_double, tc)
91*11be35a1SLionel Sambuc {
92*11be35a1SLionel Sambuc 
93*11be35a1SLionel Sambuc #ifndef LDBL_MAX
94*11be35a1SLionel Sambuc 	atf_tc_skip("no long double support on this architecture");
95*11be35a1SLionel Sambuc 	return;
96*11be35a1SLionel Sambuc #else
97*11be35a1SLionel Sambuc 	long double v;
98*11be35a1SLionel Sambuc 
99*11be35a1SLionel Sambuc 	v = LDBL_MAX;
100*11be35a1SLionel Sambuc 	v *= v;
101*11be35a1SLionel Sambuc 	ATF_REQUIRE(isinf(v));
102*11be35a1SLionel Sambuc 	ATF_REQUIRE(fpclassify(v) == FP_INFINITE);
103*11be35a1SLionel Sambuc 
104*11be35a1SLionel Sambuc 	v = -LDBL_MAX;
105*11be35a1SLionel Sambuc 	v *= v;
106*11be35a1SLionel Sambuc 	ATF_REQUIRE(isinf(v));
107*11be35a1SLionel Sambuc 	ATF_REQUIRE(fpclassify(v) == FP_INFINITE);
108*11be35a1SLionel Sambuc #endif
109*11be35a1SLionel Sambuc }
110*11be35a1SLionel Sambuc 
ATF_TP_ADD_TCS(tp)111*11be35a1SLionel Sambuc ATF_TP_ADD_TCS(tp)
112*11be35a1SLionel Sambuc {
113*11be35a1SLionel Sambuc 
114*11be35a1SLionel Sambuc 	ATF_TP_ADD_TC(tp, infinity_float);
115*11be35a1SLionel Sambuc 	ATF_TP_ADD_TC(tp, infinity_double);
116*11be35a1SLionel Sambuc 	ATF_TP_ADD_TC(tp, infinity_long_double);
117*11be35a1SLionel Sambuc 
118*11be35a1SLionel Sambuc 	return atf_no_error();
119*11be35a1SLionel Sambuc }
120