[tests/tget_d.c] Improved error messages.

git-svn-id: https://scm.gforge.inria.fr/anonscm/svn/mpfr/trunk@14537 280ebfd0-de03-0410-8827-d642c229c3f4

1 files changed, 17 insertions, 12 deletions

diff --git a/tests/tget_d.c b/tests/tget_d.c
index e0ba35025..c7e408080 100644
--- a/tests/tget_d.c
+++ b/tests/tget_d.c
@@ -110,6 +110,7 @@ check_inf_nan (void)
   if (!DOUBLE_ISNAN (d))
     {
       printf ("Error in check_inf_nan() for NaN, got %.17g\n", d);
+      printf ("MPFR_DBL_NAN is %.17g (should be NaN)\n", MPFR_DBL_NAN);
       exit (1);
     }
 
@@ -201,27 +202,31 @@ check_get_d_2exp_inf_nan (void)
   var_d = mpfr_get_d_2exp (&exp, var, MPFR_RNDN);
   if (!DOUBLE_ISNAN (var_d))
     {
-      printf ("mpfr_get_d_2exp with a NAN mpfr value returned a wrong value :\n"
-              " waiting for %g got %g\n", MPFR_DBL_NAN, var_d);
+      printf ("mpfr_get_d_2exp on NaN returned a wrong value: %.17g\n",
+              var_d);
+      printf ("MPFR_DBL_NAN is %.17g (should be NaN)\n", MPFR_DBL_NAN);
       exit (1);
     }
 
   mpfr_set_zero (var, 1);
   var_d = mpfr_get_d_2exp (&exp, var, MPFR_RNDN);
-  if ((exp != 0) || (var_d != 0.0))
+  if (exp != 0 || var_d != 0.0)
     {
-      printf ("mpfr_get_d_2exp with a +0.0 mpfr value returned a wrong value :\n"
-              " double waiting for 0.0 got %g\n exp waiting for 0 got %ld\n",
+      printf ("mpfr_get_d_2exp on +0.0 returned a wrong value:\n"
+              " expected 0.0, got %.17g\n"
+              " exp: expected 0, got %ld\n",
               var_d, exp);
       exit (1);
     }
 
   mpfr_set_zero (var, -1);
   var_d = mpfr_get_d_2exp (&exp, var, MPFR_RNDN);
-  if ((exp != 0) || (var_d != DBL_NEG_ZERO))
+  /* Note: the sign of the negative zero (when supported) is not checked. */
+  if (exp != 0 || var_d != DBL_NEG_ZERO)
     {
-      printf ("mpfr_get_d_2exp with a +0.0 mpfr value returned a wrong value :\n"
-              " double waiting for %g got %g\n exp waiting for 0 got %ld\n",
+      printf ("mpfr_get_d_2exp on -0.0 returned a wrong value:\n"
+              " expected %.17g, got %.17g\n"
+              " exp: expected 0, got %ld\n",
               DBL_NEG_ZERO, var_d, exp);
       exit (1);
     }
@@ -230,8 +235,8 @@ check_get_d_2exp_inf_nan (void)
   var_d = mpfr_get_d_2exp (&exp, var, MPFR_RNDN);
   if (var_d != MPFR_DBL_INFP)
     {
-      printf ("mpfr_get_d_2exp with a +Inf mpfr value returned a wrong value :\n"
-              " waiting for %g got %g\n", MPFR_DBL_INFP, var_d);
+      printf ("mpfr_get_d_2exp on +Inf returned a wrong value:\n"
+              " expected %g, got %g\n", MPFR_DBL_INFP, var_d);
       exit (1);
     }
 
@@ -239,8 +244,8 @@ check_get_d_2exp_inf_nan (void)
   var_d = mpfr_get_d_2exp (&exp, var, MPFR_RNDN);
   if (var_d != MPFR_DBL_INFM)
     {
-      printf ("mpfr_get_d_2exp with a -Inf mpfr value returned a wrong value :\n"
-              " waiting for %g got %g\n", MPFR_DBL_INFM, var_d);
+      printf ("mpfr_get_d_2exp on -Inf returned a wrong value:\n"
+              " expected %g, got %g\n", MPFR_DBL_INFM, var_d);
       exit (1);
     }