summaryrefslogtreecommitdiff
path: root/tests/tinternals.c
diff options
context:
space:
mode:
authorvlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4>2005-11-03 16:39:31 +0000
committervlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4>2005-11-03 16:39:31 +0000
commite4945bf43848371a8ea8cf93b60319b30a5f8305 (patch)
treeac2165c3f2280bb44eab07fbd91c54ffb5c18f06 /tests/tinternals.c
parente43f4805303eb3da315871cac67a5f3c119a70ae (diff)
downloadmpfr-e4945bf43848371a8ea8cf93b60319b30a5f8305.tar.gz
Eliminated the case inex == 0.
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@3938 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'tests/tinternals.c')
-rw-r--r--tests/tinternals.c11
1 files changed, 9 insertions, 2 deletions
diff --git a/tests/tinternals.c b/tests/tinternals.c
index 0e1150fd5..e5bf592cd 100644
--- a/tests/tinternals.c
+++ b/tests/tinternals.c
@@ -62,8 +62,13 @@ test_round_near_x (void)
for (r = 0; r < GMP_RND_MAX; r++)
{
inex = mpfr_round_near_x (y, x, err, dir, r);
- if (err == 2 && inex == 0)
- continue; /* err = 2 is always too large */
+
+ if (inex == 0 && err < 6)
+ {
+ /* The test is more restrictive than necessary.
+ So, no failure in this case. */
+ continue;
+ }
/* TODO: add other tests here */
@@ -82,6 +87,8 @@ test_round_near_x (void)
mpfr_out_str (stdout, 2, 3, y, GMP_RNDZ);
}
printf ("\n");
+ if (inex == 0)
+ printf ("Rounding was possible!\n");
/* exit (1); */
}
}