From: Bruno Haible <bruno@clisp.org>
Date: Sun, 26 Feb 2012 15:02:40 +0000 (+0100)
Subject: More tests for modules frexpf-ieee, frexp-ieee, frexpl-ieee.
X-Git-Tag: v0.1~1086
X-Git-Url: http://erislabs.org.uk/gitweb/?a=commitdiff_plain;h=e300fea773aedae5711c0157e7dc8991b87e2872;p=gnulib.git

More tests for modules frexpf-ieee, frexp-ieee, frexpl-ieee.
---

diff --git a/tests/test-frexp-ieee.c b/tests/test-frexp-ieee.c
index 8a3897e94..258d1dd66 100644
--- a/tests/test-frexp-ieee.c
+++ b/tests/test-frexp-ieee.c
@@ -62,6 +62,12 @@ main ()
     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
index d8e3f730a..ea32ea9c2 100644
--- a/tests/test-frexpf-ieee.c
+++ b/tests/test-frexpf-ieee.c
@@ -62,6 +62,12 @@ main ()
     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
index ebe72c77f..c9fae568a 100644
--- a/tests/test-frexpl-ieee.c
+++ b/tests/test-frexpl-ieee.c
@@ -62,6 +62,12 @@ main ()
     mantissa = frexpl (Infinityl (), &exp);
     ASSERT (mantissa == Infinityl ());
   }
+  {
+    int exp = -9999;
+    long double mantissa;
+    mantissa = frexpl (- Infinityl (), &exp);
+    ASSERT (mantissa == - Infinityl ());
+  }
 
   return 0;
 }