diff options
author | Philippe Theveny <philippe.theveny@laposte.net> | 2008-09-16 15:40:49 +0000 |
---|---|---|
committer | Philippe Theveny <philippe.theveny@laposte.net> | 2008-09-16 15:40:49 +0000 |
commit | 47041c2d5cbd86119b993d05d38697e5403b1393 (patch) | |
tree | 0b18e973c17be375e0af76d4203fc3b06a167aa6 | |
parent | dfdbe981b100932f99b01c3009621c145a76ea7b (diff) | |
download | mpc-git-47041c2d5cbd86119b993d05d38697e5403b1393.tar.gz |
Speed up tests.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svnroot/mpc/trunk@175 211d60ee-9f03-0410-a15a-8952a2c7a4e4
-rw-r--r-- | tests/tgeneric.c | 4 | ||||
-rw-r--r-- | tests/tlog.c | 4 | ||||
-rw-r--r-- | tests/tsin.c | 2 | ||||
-rw-r--r-- | tests/tsinh.c | 2 | ||||
-rw-r--r-- | tests/tsqrt.c | 2 | ||||
-rw-r--r-- | tests/tsub.c | 2 | ||||
-rw-r--r-- | tests/ttan.c | 2 | ||||
-rw-r--r-- | tests/ttanh.c | 2 |
8 files changed, 10 insertions, 10 deletions
diff --git a/tests/tgeneric.c b/tests/tgeneric.c index edf1df8..0d7d2d8 100644 --- a/tests/tgeneric.c +++ b/tests/tgeneric.c @@ -64,7 +64,7 @@ message_failed (mpc_srcptr op, mpc_srcptr rop, } static void -tgeneric(mpfr_prec_t prec_min, mpfr_prec_t prec_max, mp_exp_t exp_max) +tgeneric(mpfr_prec_t prec_min, mpfr_prec_t prec_max, mpfr_prec_t step, mp_exp_t exp_max) { mpc_t x, z, t, u; mpc_rnd_t rnd_re; @@ -91,7 +91,7 @@ tgeneric(mpfr_prec_t prec_min, mpfr_prec_t prec_max, mp_exp_t exp_max) if (-exp_max > exp_min) exp_min = - exp_max; - for (prec = prec_min; prec <= prec_max; prec += 7) + for (prec = prec_min; prec <= prec_max; prec+=step) { mpc_set_prec (x, prec); mpc_set_prec (z, prec); diff --git a/tests/tlog.c b/tests/tlog.c index e70aa4f..87a3bfd 100644 --- a/tests/tlog.c +++ b/tests/tlog.c @@ -49,7 +49,7 @@ main (void) mpfr_div_2ui (twopi, twopi, 1, GMP_RNDN); /* Test whether exp (log (z)) = z */ - for (prec = 2; prec <= 1000; prec+=7) + for (prec = 2; prec <= 1000; prec+=11) { mpc_set_prec (z, prec); mpc_set_prec (z2, prec); @@ -75,7 +75,7 @@ main (void) /* Test whether log (exp (z)) = z for purely imaginary z; then exp (x) */ /* lies on the unit cercle, a critical case for the logarithm. */ - for (prec = 2; prec <= 1000; prec+=7) + for (prec = 2; prec <= 1000; prec+=11) { mpc_set_prec (z, prec); mpc_set_prec (z2, prec); diff --git a/tests/tsin.c b/tests/tsin.c index 56f8854..fe71bdf 100644 --- a/tests/tsin.c +++ b/tests/tsin.c @@ -525,7 +525,7 @@ main (void) pure_real_argument (); pure_imaginary_argument (); - tgeneric (2, 512, 7); + tgeneric (2, 512, 7, 7); check_53bits (); diff --git a/tests/tsinh.c b/tests/tsinh.c index 3dec521..d95a20d 100644 --- a/tests/tsinh.c +++ b/tests/tsinh.c @@ -441,7 +441,7 @@ main (void) pure_real_argument (); pure_imaginary_argument (); - tgeneric (2, 512, 7); + tgeneric (2, 512, 7, 7); check_53bits (); diff --git a/tests/tsqrt.c b/tests/tsqrt.c index b5bc252..44d14d1 100644 --- a/tests/tsqrt.c +++ b/tests/tsqrt.c @@ -732,7 +732,7 @@ main (void) bugs_fixed (); - tgeneric (2, 1024, 256); + tgeneric (2, 1024, 7, 256); test_end (); diff --git a/tests/tsub.c b/tests/tsub.c index 871d468..fece725 100644 --- a/tests/tsub.c +++ b/tests/tsub.c @@ -33,7 +33,7 @@ main (void) { test_start (); - tgeneric (2, 1024, -1); + tgeneric (2, 1024, 7, -1); test_end (); diff --git a/tests/ttan.c b/tests/ttan.c index e1b0f61..dcdbbae 100644 --- a/tests/ttan.c +++ b/tests/ttan.c @@ -539,7 +539,7 @@ main (void) pure_real_argument (); pure_imaginary_argument (); - tgeneric (2, 512, 4); + tgeneric (2, 512, 7, 4); check_53 (); test_end (); diff --git a/tests/ttanh.c b/tests/ttanh.c index ebcea50..c8a1c7e 100644 --- a/tests/ttanh.c +++ b/tests/ttanh.c @@ -611,7 +611,7 @@ main (void) pure_real_argument (); pure_imaginary_argument (); - tgeneric (2, 512, 4); + tgeneric (2, 512, 7, 4); check_53bits (); |