Mercurial > hg > octave-lojdl > gnulib-hg

changeset 16440:43b148942038

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
More tests for modules frexpf-ieee, frexp-ieee, frexpl-ieee.
author Bruno Haible <bruno@clisp.org>
date Sun, 26 Feb 2012 16:02:40 +0100
parents c07a3d6a4827
children 2e6429c58643
files tests/test-frexp-ieee.c tests/test-frexpf-ieee.c tests/test-frexpl-ieee.c
diffstat 3 files changed, 18 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/tests/test-frexp-ieee.c
+++ b/tests/test-frexp-ieee.c
@@ -62,6 +62,12 @@
     mantissa = frexp (Infinityd (), &exp);
     ASSERT (mantissa == Infinityd ());
   }
+  {
+    int exp = -9999;
+    double mantissa;
+    mantissa = frexp (- Infinityd (), &exp);
+    ASSERT (mantissa == - Infinityd ());
+  }
 
   return 0;
 }
--- a/tests/test-frexpf-ieee.c
+++ b/tests/test-frexpf-ieee.c
@@ -62,6 +62,12 @@
     mantissa = frexpf (Infinityf (), &exp);
     ASSERT (mantissa == Infinityf ());
   }
+  {
+    int exp = -9999;
+    float mantissa;
+    mantissa = frexpf (- Infinityf (), &exp);
+    ASSERT (mantissa == - Infinityf ());
+  }
 
   return 0;
 }
--- a/tests/test-frexpl-ieee.c
+++ b/tests/test-frexpl-ieee.c
@@ -62,6 +62,12 @@
     mantissa = frexpl (Infinityl (), &exp);
     ASSERT (mantissa == Infinityl ());
   }
+  {
+    int exp = -9999;
+    long double mantissa;
+    mantissa = frexpl (- Infinityl (), &exp);
+    ASSERT (mantissa == - Infinityl ());
+  }
 
   return 0;
 }