X-Git-Url: http://erislabs.net/gitweb/?a=blobdiff_plain;f=tests%2Ftest-truncl.c;h=d1a222e8671457c19f048b7cbb8118479b544c93;hb=cd56634a4a8179fd5a4419fbb3e27211b042ab1c;hp=8924c19d9340f9f86c661ffba2f73a40d36482bb;hpb=66e25598804aa2db1efeebc377792a6053efdd20;p=gnulib.git diff --git a/tests/test-truncl.c b/tests/test-truncl.c index 8924c19d9..d1a222e86 100644 --- a/tests/test-truncl.c +++ b/tests/test-truncl.c @@ -1,10 +1,10 @@ /* Test of rounding towards zero. - Copyright (C) 2007 Free Software Foundation, Inc. + Copyright (C) 2007-2014 Free Software Foundation, Inc. - This program is free software; you can redistribute it and/or modify + This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by - the Free Software Foundation; either version 2, or (at your option) - any later version. + the Free Software Foundation; either version 3 of the License, or + (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of @@ -12,8 +12,7 @@ GNU General Public License for more details. You should have received a copy of the GNU General Public License - along with this program; if not, write to the Free Software Foundation, - Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ + along with this program. If not, see . */ /* Written by Bruno Haible , 2007. */ @@ -21,22 +20,17 @@ #include -#include -#include +#include "signature.h" +SIGNATURE_CHECK (truncl, long double, (long double)); + +#include #include "fpucw.h" #include "isnanl-nolibm.h" - -#define ASSERT(expr) \ - do \ - { \ - if (!(expr)) \ - { \ - fprintf (stderr, "%s:%d: assertion failed\n", __FILE__, __LINE__); \ - abort (); \ - } \ - } \ - while (0) +#include "minus-zero.h" +#include "infinity.h" +#include "nan.h" +#include "macros.h" int main () @@ -47,7 +41,7 @@ main () /* Zero. */ ASSERT (truncl (0.0L) == 0.0L); - ASSERT (truncl (-0.0L) == 0.0L); + ASSERT (truncl (minus_zerol) == 0.0L); /* Positive numbers. */ ASSERT (truncl (0.3L) == 0.0L); ASSERT (truncl (0.7L) == 0.0L); @@ -69,10 +63,10 @@ main () ASSERT (truncl (-65536.0L) == -65536.0L); ASSERT (truncl (-2.341e31L) == -2.341e31L); /* Infinite numbers. */ - ASSERT (truncl (1.0L / 0.0L) == 1.0L / 0.0L); - ASSERT (truncl (-1.0L / 0.0L) == -1.0L / 0.0L); + ASSERT (truncl (Infinityl ()) == Infinityl ()); + ASSERT (truncl (- Infinityl ()) == - Infinityl ()); /* NaNs. */ - ASSERT (isnanl (truncl (0.0L / 0.0L))); + ASSERT (isnanl (truncl (NaNl ()))); return 0; }