diff options
author | zimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4> | 2017-06-02 10:44:12 +0000 |
---|---|---|
committer | zimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4> | 2017-06-02 10:44:12 +0000 |
commit | f97a9c17ef78ce4c4e1197d11a95cf68e8679a71 (patch) | |
tree | 4453d0ea3f6fbf2dda803f9281e10a4eeae33002 /tests/tget_q.c | |
parent | bd811b9b51d306146b07e2c630d34b82341de8fe (diff) | |
download | mpfr-f97a9c17ef78ce4c4e1197d11a95cf68e8679a71.tar.gz |
added new function mpfr_get_q
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@11563 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'tests/tget_q.c')
-rw-r--r-- | tests/tget_q.c | 111 |
1 files changed, 111 insertions, 0 deletions
diff --git a/tests/tget_q.c b/tests/tget_q.c new file mode 100644 index 000000000..0bafd4817 --- /dev/null +++ b/tests/tget_q.c @@ -0,0 +1,111 @@ +/* Test file for mpfr_get_q. + +Copyright 2017 Free Software Foundation, Inc. +Contributed by the AriC and Caramba projects, INRIA. + +This file is part of the GNU MPFR Library. + +The GNU MPFR Library is free software; you can redistribute it and/or modify +it under the terms of the GNU Lesser General Public License as published by +the Free Software Foundation; either version 3 of the License, or (at your +option) any later version. + +The GNU MPFR Library is distributed in the hope that it will be useful, but +WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY +or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public +License for more details. + +You should have received a copy of the GNU Lesser General Public License +along with the GNU MPFR Library; see the file COPYING.LESSER. If not, see +http://www.gnu.org/licenses/ or write to the Free Software Foundation, Inc., +51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. */ + +#include "mpfr-test.h" + +static void +special (void) +{ + mpfr_t f; + mpq_t q; + + mpfr_init2 (f, MPFR_PREC_MIN); + mpq_init (q); + + /* check NaN */ + mpfr_set_nan (f); + mpfr_clear_erangeflag (); + mpfr_get_q (q, f); + MPFR_ASSERTN(mpq_cmp_ui (q, 0, 1) == 0); + MPFR_ASSERTN(mpfr_erangeflag_p ()); + + /* check +Inf */ + mpfr_set_inf (f, 1); + mpfr_clear_erangeflag (); + mpfr_get_q (q, f); + MPFR_ASSERTN(mpq_cmp_ui (q, 0, 1) == 0); + MPFR_ASSERTN(mpfr_erangeflag_p ()); + + /* check -Inf */ + mpfr_set_inf (f, -1); + mpfr_clear_erangeflag (); + mpfr_get_q (q, f); + MPFR_ASSERTN(mpq_cmp_ui (q, 0, 1) == 0); + MPFR_ASSERTN(mpfr_erangeflag_p ()); + + /* check +0 */ + mpfr_set_zero (f, 1); + mpfr_clear_erangeflag (); + mpfr_get_q (q, f); + MPFR_ASSERTN(mpq_cmp_ui (q, 0, 1) == 0); + MPFR_ASSERTN(!mpfr_erangeflag_p ()); + + /* check -0 */ + mpfr_set_zero (f, -1); + mpfr_clear_erangeflag (); + mpfr_get_q (q, f); + MPFR_ASSERTN(mpq_cmp_ui (q, 0, 1) == 0); + MPFR_ASSERTN(!mpfr_erangeflag_p ()); + + mpq_clear (q); + mpfr_clear (f); +} + +static void +random_tests (void) +{ + mpfr_t f, g; + mpq_t q; + int inex; + mpfr_rnd_t rnd; + int i; + + mpfr_init2 (f, MPFR_PREC_MIN + (randlimb() % 100)); + mpfr_init2 (g, mpfr_get_prec (f)); + mpq_init (q); + + for (i = 0; i < 1000; i++) + { + mpfr_urandomb (f, RANDS); + mpfr_get_q (q, f); + rnd = RND_RAND (); + inex = mpfr_set_q (g, q, rnd); + MPFR_ASSERTN(inex == 0); + MPFR_ASSERTN(mpfr_cmp (f, g) == 0); + } + + mpq_clear (q); + mpfr_clear (f); + mpfr_clear (g); +} + +int +main (void) +{ + tests_start_mpfr (); + + special (); + random_tests (); + + tests_end_mpfr (); + return 0; +} |