Home | History | Annotate | Line # | Download | only in libm
t_ilogb.c revision 1.6
      1  1.6  christos /* $NetBSD: t_ilogb.c,v 1.6 2016/08/26 08:01:55 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.5  christos 	int r = fetestexcept(FE_ALL_EXCEPT); \
     44  1.5  christos 	ATF_CHECK_MSG(r == FE_INVALID, "r=%#x != %#x\n", r, FE_INVALID); \
     45  1.5  christos 	(void)feclearexcept(FE_ALL_EXCEPT); \
     46  1.3  christos } while (/*CONSTCOND*/0)
     47  1.1      maya 
     48  1.3  christos # define ATF_CHECK_RAISED_NOTHING do { \
     49  1.5  christos 	int r = fetestexcept(FE_ALL_EXCEPT); \
     50  1.5  christos 	ATF_CHECK_MSG(r == 0, "r=%#x != 0\n", r); \
     51  1.5  christos 	(void)feclearexcept(FE_ALL_EXCEPT); \
     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 
     64  1.1      maya 	ATF_CHECK(ilogbf(0) == FP_ILOGB0);
     65  1.1      maya 	ATF_CHECK_RAISED_INVALID;
     66  1.1      maya 	ATF_CHECK(ilogb(0) == FP_ILOGB0);
     67  1.1      maya 	ATF_CHECK_RAISED_INVALID;
     68  1.6  christos #ifdef __HAVE_LONG_DOUBLE
     69  1.1      maya 	ATF_CHECK(ilogbl(0) == FP_ILOGB0);
     70  1.1      maya 	ATF_CHECK_RAISED_INVALID;
     71  1.6  christos #endif
     72  1.1      maya 
     73  1.1      maya 	ATF_CHECK(ilogbf(-0) == FP_ILOGB0);
     74  1.1      maya 	ATF_CHECK_RAISED_INVALID;
     75  1.1      maya 	ATF_CHECK(ilogb(-0) == FP_ILOGB0);
     76  1.1      maya 	ATF_CHECK_RAISED_INVALID;
     77  1.4  christos #ifdef __HAVE_LONG_DOUBLE
     78  1.1      maya 	ATF_CHECK(ilogbl(-0) == FP_ILOGB0);
     79  1.1      maya 	ATF_CHECK_RAISED_INVALID;
     80  1.4  christos #endif
     81  1.1      maya 
     82  1.1      maya 	ATF_CHECK(ilogbf(INFINITY) == INT_MAX);
     83  1.1      maya 	ATF_CHECK_RAISED_INVALID;
     84  1.1      maya 	ATF_CHECK(ilogb(INFINITY) == INT_MAX);
     85  1.1      maya 	ATF_CHECK_RAISED_INVALID;
     86  1.4  christos #ifdef __HAVE_LONG_DOUBLE
     87  1.1      maya 	ATF_CHECK(ilogbl(INFINITY) == INT_MAX);
     88  1.1      maya 	ATF_CHECK_RAISED_INVALID;
     89  1.4  christos #endif
     90  1.1      maya 
     91  1.1      maya 	ATF_CHECK(ilogbf(-INFINITY) == INT_MAX);
     92  1.1      maya 	ATF_CHECK_RAISED_INVALID;
     93  1.1      maya 	ATF_CHECK(ilogb(-INFINITY) == INT_MAX);
     94  1.1      maya 	ATF_CHECK_RAISED_INVALID;
     95  1.4  christos #ifdef __HAVE_LONG_DOUBLE
     96  1.1      maya 	ATF_CHECK(ilogbl(-INFINITY) == INT_MAX);
     97  1.1      maya 	ATF_CHECK_RAISED_INVALID;
     98  1.4  christos #endif
     99  1.1      maya 
    100  1.2      maya 	ATF_CHECK(ilogbf(1024) == 10);
    101  1.1      maya 	ATF_CHECK_RAISED_NOTHING;
    102  1.2      maya 	ATF_CHECK(ilogb(1024) == 10);
    103  1.1      maya 	ATF_CHECK_RAISED_NOTHING;
    104  1.4  christos #ifdef __HAVE_LONG_DOUBLE
    105  1.2      maya 	ATF_CHECK(ilogbl(1024) == 10);
    106  1.1      maya 	ATF_CHECK_RAISED_NOTHING;
    107  1.4  christos #endif
    108  1.1      maya 
    109  1.1      maya #ifndef __vax__
    110  1.1      maya 	ATF_CHECK(ilogbf(NAN) == FP_ILOGBNAN);
    111  1.1      maya 	ATF_CHECK_RAISED_INVALID;
    112  1.1      maya 	ATF_CHECK(ilogb(NAN) == FP_ILOGBNAN);
    113  1.1      maya 	ATF_CHECK_RAISED_INVALID;
    114  1.4  christos #ifdef __HAVE_LONG_DOUBLE
    115  1.1      maya 	ATF_CHECK(ilogbl(NAN) == FP_ILOGBNAN);
    116  1.1      maya 	ATF_CHECK_RAISED_INVALID;
    117  1.1      maya #endif
    118  1.4  christos #endif
    119  1.1      maya }
    120  1.1      maya 
    121  1.1      maya ATF_TP_ADD_TCS(tp)
    122  1.1      maya {
    123  1.1      maya 
    124  1.1      maya 	ATF_TP_ADD_TC(tp, ilogb);
    125  1.1      maya 
    126  1.1      maya 	return atf_no_error();
    127  1.1      maya }
    128