unigbrk: New modules for grapheme clusters.

[pspp] / tests / test-truncf-ieee.c

diff --git a/tests/test-truncf-ieee.c b/tests/test-truncf-ieee.c
index c5c779ae7054fb321e6988c0fe0d828a77fa83b9..76d06079e89284273be1cc29105368aa4bdab55b 100644 (file)
--- a/tests/test-truncf-ieee.c
+++ b/tests/test-truncf-ieee.c
@@ -24,9 +24,20 @@
 int
 main ()
 {
+  /* See IEEE 754, section 6.3:
+       "the sign of the result of the round floating-point number to
+        integral value operation is the sign of the operand. These rules
+        shall apply even when operands or results are zero or infinite."  */
+
   /* Zero.  */
   ASSERT (!signbit (truncf (0.0f)));
   ASSERT (!!signbit (truncf (minus_zerof)) == !!signbit (minus_zerof));
+  /* Positive numbers.  */
+  ASSERT (!signbit (truncf (0.3f)));
+  ASSERT (!signbit (truncf (0.7f)));
+  /* Negative numbers.  */
+  ASSERT (!!signbit (truncf (-0.3f)) == !!signbit (minus_zerof));
+  ASSERT (!!signbit (truncf (-0.7f)) == !!signbit (minus_zerof));
 
   return 0;
 }