the test for the tiny input case was too optimistic: fixed and added test.

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

1 files changed, 12 insertions, 0 deletions

diff --git a/tests/tzeta.c b/tests/tzeta.c
index edd6b2140..d29c9d22a 100644
--- a/tests/tzeta.c
+++ b/tests/tzeta.c
@@ -352,6 +352,18 @@ main (int argc, char *argv[])
       exit (1);
     }
 
+  mpfr_set_prec (s, 34);
+  mpfr_set_prec (z, 34);
+  mpfr_set_str_binary (s, "-1.111111100001011110000010001010000e-35");
+  mpfr_zeta (z, s, GMP_RNDD);
+  mpfr_set_str_binary (s, "-1.111111111111111111111111111111111e-2");
+  if (mpfr_cmp (s, z))
+    {
+      printf ("Error in mpfr_zeta, prec=34, GMP_RNDD\n");
+      mpfr_dump (z);
+      exit (1);
+    }
+
   mpfr_clear (s);
   mpfr_clear (y);
   mpfr_clear (z);