[tests/tset_z_2exp.c] Test a result.

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

1 files changed, 8 insertions, 0 deletions

diff --git a/tests/tset_z_2exp.c b/tests/tset_z_2exp.c
index bc77b56e0..ac26c4b06 100644
--- a/tests/tset_z_2exp.c
+++ b/tests/tset_z_2exp.c
@@ -183,6 +183,14 @@ check_huge (void)
       mpz_mul_2exp (z, z, 0xffffffb0);
       mpz_add_ui (z, z, 1);
       mpfr_set_z_2exp (x, z, -1, MPFR_RNDN);
+      if (! MPFR_IS_INF (x) || MPFR_IS_NEG (x))
+        {
+          printf ("Error 2 in check_huge\n");
+          printf ("Expected @Inf@\n");
+          printf ("Got      ");
+          mpfr_dump (x);
+          exit (1);
+        }
       mpz_clear (z);
 
       mpfr_clear (x);