added test for 0.99999999999999999

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

1 files changed, 10 insertions, 1 deletions

diff --git a/tests/tout_str.c b/tests/tout_str.c
index 94f9b5212..e7027fa03 100644
--- a/tests/tout_str.c
+++ b/tests/tout_str.c
@@ -82,8 +82,17 @@ void check_large()
   mpfr_set_prec(x, 128);
   mpfr_set_str_raw(x, "0.10111001100110011001100110011001100110011001100110011001100110011001100110011001100110011001100110011001100110011001100110011010E3");
   s = mpfr_get_str(NULL, &e, 10, 0, x, GMP_RNDU);
-
   free(s); 
+
+  mpfr_set_prec(x, 381);
+  mpfr_set_str_raw(x, "0.111111111111111111111111111111111111111111111111111111111111111111101110110000100110011101101101001010111000101111000100100011110101010110101110100000010100001000110100000100011111001000010010000010001010111001011110000001110010111101100001111000101101100000010110000101100100000101010110010110001010100111001111100011100101100000100100111001100010010011110011011010110000001000010");
+  s = mpfr_get_str(NULL, &e, 10, 0, x, GMP_RNDD);
+  if (e != 0) {
+    fprintf(stderr, "Error in mpfr_get_str for x=0.999999..., exponent is %d instead of 0\n", e);
+    exit(1);
+  }
+  free(s);
+
   mpfr_clear(x);
 }