X-Git-Url: http://erislabs.net/gitweb/?a=blobdiff_plain;f=tests%2Ftest-roundl.c;h=7af95a4a7914c233ec8856e32d3f66236b27a7d7;hb=337977d216e2759bc5b4dd3cbe223cbf8e6a9eb7;hp=552d4f52663a24984b99eb63d28b0c5e84bead38;hpb=e220635fc952c63b533873f2af39ec76aed4b4e3;p=gnulib.git diff --git a/tests/test-roundl.c b/tests/test-roundl.c index 552d4f526..7af95a4a7 100644 --- a/tests/test-roundl.c +++ b/tests/test-roundl.c @@ -1,9 +1,9 @@ /* Test of rounding to nearest, breaking ties away from zero. - Copyright (C) 2007-2008 Free Software Foundation, Inc. + Copyright (C) 2007-2011 Free Software Foundation, Inc. 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) + the Free Software Foundation; either version 3, or (at your option) any later version. This program is distributed in the hope that it will be useful, @@ -22,23 +22,17 @@ #include -#include -#include +#include "signature.h" +SIGNATURE_CHECK (roundl, 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__); \ - fflush (stderr); \ - abort (); \ - } \ - } \ - while (0) +#include "minus-zero.h" +#include "infinity.h" +#include "nan.h" +#include "macros.h" int main () @@ -49,7 +43,7 @@ main () /* Zero. */ ASSERT (roundl (0.0L) == 0.0L); - ASSERT (roundl (-0.0L) == 0.0L); + ASSERT (roundl (minus_zerol) == 0.0L); /* Positive numbers. */ ASSERT (roundl (0.3L) == 0.0L); ASSERT (roundl (0.5L) == 1.0L); @@ -77,10 +71,10 @@ main () ASSERT (roundl (-65536.001L) == -65536.0L); ASSERT (roundl (-2.341e31L) == -2.341e31L); /* Infinite numbers. */ - ASSERT (roundl (1.0 / 0.0L) == 1.0 / 0.0L); - ASSERT (roundl (-1.0 / 0.0L) == -1.0 / 0.0L); + ASSERT (roundl (Infinityl ()) == Infinityl ()); + ASSERT (roundl (- Infinityl ()) == - Infinityl ()); /* NaNs. */ - ASSERT (isnanl (roundl (0.0L / 0.0L))); + ASSERT (isnanl (roundl (NaNl ()))); return 0; }