From 47041c2d5cbd86119b993d05d38697e5403b1393 Mon Sep 17 00:00:00 2001
From: Philippe Theveny <philippe.theveny@laposte.net>
Date: Tue, 16 Sep 2008 15:40:49 +0000
Subject: Speed up tests.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svnroot/mpc/trunk@175 211d60ee-9f03-0410-a15a-8952a2c7a4e4
---
 tests/tgeneric.c | 4 ++--
 tests/tlog.c     | 4 ++--
 tests/tsin.c     | 2 +-
 tests/tsinh.c    | 2 +-
 tests/tsqrt.c    | 2 +-
 tests/tsub.c     | 2 +-
 tests/ttan.c     | 2 +-
 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 ();
 
-- 
cgit v1.2.1