Infinis, premiere tentative (tests)

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

1 files changed, 8 insertions, 0 deletions

diff --git a/tests/tcan_round.c b/tests/tcan_round.c
index db42e6668..f32b68de0 100644
--- a/tests/tcan_round.c
+++ b/tests/tcan_round.c
@@ -35,6 +35,14 @@ int main()
    if (mpfr_can_round(x, 54, GMP_RNDZ, GMP_RNDZ, 53) != 0) {
      fprintf(stderr, "Error in mpfr_can_round\n"); exit(1);
    }
+
+   mpfr_set_str_raw(x, "-Inf"); 
+   if (mpfr_can_round(x, 2000, GMP_RNDZ, GMP_RNDZ, 2000) != 0) { 
+     fprintf(stderr, "Error in mpfr_can_round\n"); exit(1); 
+   }
    mpfr_clear(x);
    return 0;
 }
+
+
+