added worst-case

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

1 files changed, 11 insertions, 0 deletions

diff --git a/tests/tget_str.c b/tests/tget_str.c
index e89792c14..c8d13bbaa 100644
--- a/tests/tget_str.c
+++ b/tests/tget_str.c
@@ -229,6 +229,17 @@ check_small (void)
     }
   mpfr_free_str (s);
 
+  /* worst case found by Vincent Lefe`vre */
+  mpfr_set_prec (x, 53);
+  mpfr_set_str_binary (x, "10011110111100000000001011011110101100010000011011111E164");
+  s = mpfr_get_str (NULL, &e, 10, 17, x, GMP_RNDN);
+  if (strcmp (s, "13076622631878654") || (e != 66))
+    {
+      printf ("Error in mpfr_get_str (7): s=%s e=%d\n", s, (int) e);
+      exit (1);
+    }
+  mpfr_free_str (s);
+
   mpfr_set_prec (x, 45);
   mpfr_set_str_binary (x, "1E45");
   s = mpfr_get_str (NULL, &e, 32, 9, x, GMP_RNDN);