Home | History | Annotate | Line # | Download | only in gen
t_fpsetround.c revision 1.3 
      1 /* $NetBSD: t_fpsetround.c,v 1.3 2011/09/30 18:27:18 christos Exp $ */
      2 
      3 /*-
      4  * Copyright (c) 2011 The NetBSD Foundation, Inc.
      5  * All rights reserved.
      6  *
      7  * This code is derived from software contributed to The NetBSD Foundation
      8  * by Christos Zoulas.
      9  *
     10  * Redistribution and use in source and binary forms, with or without
     11  * modification, are permitted provided that the following conditions
     12  * are met:
     13  * 1. Redistributions of source code must retain the above copyright
     14  *    notice, this list of conditions and the following disclaimer.
     15  * 2. Redistributions in binary form must reproduce the above copyright
     16  *    notice, this list of conditions and the following disclaimer in the
     17  *    documentation and/or other materials provided with the distribution.
     18  * 3. All advertising materials mentioning features or use of this software
     19  *    must display the following acknowledgement:
     20  *        This product includes software developed by the NetBSD
     21  *        Foundation, Inc. and its contributors.
     22  * 4. Neither the name of The NetBSD Foundation nor the names of its
     23  *    contributors may be used to endorse or promote products derived
     24  *    from this software without specific prior written permission.
     25  *
     26  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
     27  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
     28  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
     29  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
     30  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
     31  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
     32  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
     33  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
     34  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
     35  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
     36  * POSSIBILITY OF SUCH DAMAGE.
     37  */
     38 #include <sys/cdefs.h>
     39 __RCSID("$NetBSD: t_fpsetround.c,v 1.3 2011/09/30 18:27:18 christos Exp $");
     40 
     41 #include <float.h>
     42 #include <math.h>
     43 #include <stdlib.h>
     44 #include <string.h>
     45 #include <stdio.h>
     46 
     47 #if !defined(__mc68000__) && !defined(__vax__)
     48 #include <ieeefp.h>
     49 #endif
     50 
     51 #include <atf-c.h>
     52 
     53 ATF_TC(fpsetround_basic);
     54 ATF_TC_HEAD(fpsetround_basic, tc)
     55 {
     56 
     57 	atf_tc_set_md_var(tc, "descr",
     58 	    "Minimal testing of fpgetround(3) and fpsetround(3)");
     59 }
     60 
     61 static const struct {
     62 	const char *n;
     63 	int rm;
     64 	int rf;
     65 } rnd[] = {
     66 	{ "RN", FP_RN, 1 },
     67 	{ "RP", FP_RP, 2 },
     68 	{ "RM", FP_RM, 3 },
     69 	{ "RZ", FP_RZ, 0 },
     70 
     71 };
     72 
     73 static const struct {
     74 	const char *n;
     75 	int v[4];
     76 } tst[] = {	/*  RN  RP  RM  RZ */
     77 	{  "1.1", {  1,  1,  2,  1 } },
     78 	{  "1.5", {  1,  2,  2,  1 } },
     79 	{  "1.9", {  1,  2,  2,  1 } },
     80 	{ "-1.1", { -1, -1, -1, -2 } },
     81 	{ "-1.5", { -1, -2, -1, -2 } },
     82 	{ "-1.9", { -1, -2, -1, -2 } },
     83 };
     84 
     85 static void
     86 test(int r)
     87 {
     88 	int did = 0;
     89 	for (size_t i = 0; i < __arraycount(tst); i++) {
     90 		double d = strtod(tst[i].n, NULL);
     91 		int g = (int)rint(d);
     92 		int e = tst[i].v[r];
     93 		ATF_CHECK_EQ(g, e);
     94 		if (g != e) {
     95 			if (!did) {
     96 				fprintf(stderr, "Mode Value Result Expected\n");
     97 				did = 1;
     98 			}
     99 			fprintf(stderr, "%4.4s %-5.5s %6d %8d\n", rnd[r].n,
    100 			    tst[i].n, (int)rint(d), tst[i].v[r]);
    101 		}
    102 	}
    103 }
    104 
    105 
    106 ATF_TC_BODY(fpsetround_basic, tc)
    107 {
    108 
    109 #if defined(__mc68000__) || defined(__vax__)
    110 	atf_tc_skip("Test not applicable on this architecture.");
    111 #else
    112 	int r;
    113 
    114 	ATF_CHECK_EQ(r = fpgetround(), FP_RN);
    115 	ATF_CHECK_EQ(FLT_ROUNDS, 1);
    116 
    117 	for (size_t i = 0; i < __arraycount(rnd); i++) {
    118 		size_t j = (i + 1) & 3;
    119 		int o = rnd[i].rm;
    120 		int n = rnd[j].rm;
    121 
    122 		ATF_CHECK_EQ(r = fpsetround(n), o);
    123 		if (o != r)
    124 			fprintf(stderr, "set expected=%x got=%x\n", o, r);
    125 		ATF_CHECK_EQ(r = fpgetround(), n);
    126 		if (n != r)
    127 			fprintf(stderr, "get expected=%x got=%x\n", n, r);
    128 		ATF_CHECK_EQ(r= FLT_ROUNDS, rnd[j].rf);
    129 		if (r != rnd[j].rf)
    130 			fprintf(stderr, "rounds expected=%x got=%x\n",
    131 			    rnd[j].rf, r);
    132 		test(rnd[j].rf);
    133 	}
    134 #endif /* defined(__mc68000__) || defined(__vax__) */
    135 }
    136 
    137 ATF_TP_ADD_TCS(tp)
    138 {
    139 
    140 	ATF_TP_ADD_TC(tp, fpsetround_basic);
    141 
    142 	return atf_no_error();
    143 }
    144