diff options
author | thevenyp <thevenyp@211d60ee-9f03-0410-a15a-8952a2c7a4e4> | 2008-05-30 12:07:33 +0000 |
---|---|---|
committer | thevenyp <thevenyp@211d60ee-9f03-0410-a15a-8952a2c7a4e4> | 2008-05-30 12:07:33 +0000 |
commit | 0b55c596b46f71b6efe426728a0173b566f24970 (patch) | |
tree | a514def9770e2ac0c75c86f80f3e2517dbefcd1f /tests/tdiv.c | |
parent | cd15a7dfc9f31517c50d230b5c3c1b42c35bec98 (diff) | |
download | mpc-0b55c596b46f71b6efe426728a0173b566f24970.tar.gz |
Add random seed setting (with environmnent variable GMP_CHECK_RANDOMIZE) for
reproducible tests.
git-svn-id: svn://scm.gforge.inria.fr/svn/mpc/trunk@147 211d60ee-9f03-0410-a15a-8952a2c7a4e4
Diffstat (limited to 'tests/tdiv.c')
-rw-r--r-- | tests/tdiv.c | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/tests/tdiv.c b/tests/tdiv.c index 213e4e7..49b4abf 100644 --- a/tests/tdiv.c +++ b/tests/tdiv.c @@ -26,6 +26,8 @@ MA 02111-1307, USA. */ #include "mpc.h" #include "mpc-impl.h" +#include "random.c" + #define ERR(x) { mpc_out_str (stderr, 2, 0, x, MPC_RNDNN); \ fprintf (stderr, "\n"); } @@ -235,6 +237,8 @@ main() mp_rnd_t rnd_re, rnd_im; mpc_rnd_t rnd; + test_start (); + mpc_init (b); mpc_init (c); mpc_init (q); @@ -271,6 +275,8 @@ main() for (prec = 2; prec < 1000; prec++) { + const size_t s = 1 + (prec-1)/BITS_PER_MP_LIMB; + mpc_set_prec (b, prec); mpc_set_prec (c, prec); mpc_set_prec (q, prec); @@ -278,11 +284,11 @@ main() for (i = 0; i < (int) (1000/prec); i++) { - mpc_random (b); + mpc_random2 (b, s, 0); /* generate a non-zero divisor */ do { - mpc_random (c); + mpc_random2 (c, s, 0); } while (mpfr_sgn (MPC_RE(c)) == 0 && mpfr_sgn (MPC_IM(c)) == 0); @@ -318,5 +324,7 @@ main() mpc_clear (q); mpc_clear (q_ref); + test_end (); + return 0; } |