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