# HG changeset patch
# User Bruno Haible <bruno@clisp.org>
# Date 1330268560 -3600
# Node ID 43b1489420381d9d35ff46328bc5dd9c553ba7f2
# Parent  c07a3d6a4827e02d2abae1842fd3ba214c4d6c13
More tests for modules frexpf-ieee, frexp-ieee, frexpl-ieee.

diff --git a/tests/test-frexp-ieee.c b/tests/test-frexp-ieee.c
--- 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;
 }
diff --git a/tests/test-frexpf-ieee.c b/tests/test-frexpf-ieee.c
--- 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;
 }
diff --git a/tests/test-frexpl-ieee.c b/tests/test-frexpl-ieee.c
--- 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;
 }