summaryrefslogtreecommitdiff
path: root/gnulib/tests/test-trunc1.c
diff options
context:
space:
mode:
Diffstat (limited to 'gnulib/tests/test-trunc1.c')
m---------gnulib0
-rw-r--r--gnulib/tests/test-trunc1.c67
2 files changed, 67 insertions, 0 deletions
diff --git a/gnulib b/gnulib
deleted file mode 160000
-Subproject 4fc10daa05477586fea99b6b3ca02a87d1102fa
diff --git a/gnulib/tests/test-trunc1.c b/gnulib/tests/test-trunc1.c
new file mode 100644
index 00000000..65b027af
--- /dev/null
+++ b/gnulib/tests/test-trunc1.c
@@ -0,0 +1,67 @@
+/* Test of rounding towards zero.
+ Copyright (C) 2007-2010 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 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
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ 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, see <http://www.gnu.org/licenses/>. */
+
+/* Written by Bruno Haible <bruno@clisp.org>, 2007. */
+
+#include <config.h>
+
+#include <math.h>
+
+#include "signature.h"
+SIGNATURE_CHECK (trunc, double, (double));
+
+#include "isnand-nolibm.h"
+#include "nan.h"
+#include "macros.h"
+
+/* HP cc on HP-UX 10.20 has a bug with the constant expression -0.0.
+ So we use -zero instead. */
+double zero = 0.0;
+
+int
+main ()
+{
+ /* Zero. */
+ ASSERT (trunc (0.0) == 0.0);
+ ASSERT (trunc (-zero) == 0.0);
+ /* Positive numbers. */
+ ASSERT (trunc (0.3) == 0.0);
+ ASSERT (trunc (0.7) == 0.0);
+ ASSERT (trunc (1.0) == 1.0);
+ ASSERT (trunc (1.5) == 1.0);
+ ASSERT (trunc (1.999) == 1.0);
+ ASSERT (trunc (2.0) == 2.0);
+ ASSERT (trunc (65535.999) == 65535.0);
+ ASSERT (trunc (65536.0) == 65536.0);
+ ASSERT (trunc (2.341e31) == 2.341e31);
+ /* Negative numbers. */
+ ASSERT (trunc (-0.3) == 0.0);
+ ASSERT (trunc (-0.7) == 0.0);
+ ASSERT (trunc (-1.0) == -1.0);
+ ASSERT (trunc (-1.5) == -1.0);
+ ASSERT (trunc (-1.999) == -1.0);
+ ASSERT (trunc (-2.0) == -2.0);
+ ASSERT (trunc (-65535.999) == -65535.0);
+ ASSERT (trunc (-65536.0) == -65536.0);
+ ASSERT (trunc (-2.341e31) == -2.341e31);
+ /* Infinite numbers. */
+ ASSERT (trunc (1.0 / 0.0) == 1.0 / 0.0);
+ ASSERT (trunc (-1.0 / 0.0) == -1.0 / 0.0);
+ /* NaNs. */
+ ASSERT (isnand (trunc (NaNd ())));
+
+ return 0;
+}