New test framework, merged from test branch.

git-svn-id: svn://scm.gforge.inria.fr/svn/mpc/trunk@1416 211d60ee-9f03-0410-a15a-8952a2c7a4e4

1 files changed, 20 insertions, 6 deletions

diff --git a/tests/tfma.c b/tests/tfma.c
index 81bc167..62a7b0c 100644
--- a/tests/tfma.c
+++ b/tests/tfma.c
@@ -1,6 +1,6 @@
 /* tfma -- test file for mpc_fma.
 
-Copyright (C) 2011, 2012 INRIA
+Copyright (C) 2011, 2012, 2013 INRIA
 
 This file is part of GNU MPC.
 
@@ -88,18 +88,32 @@ check_random (void)
    mpc_clear (c);
 }
 
+#define MPC_FUNCTION_CALL                                               \
+  P[0].mpc_inex =                                                       \
+    mpc_fma (P[1].mpc, P[2].mpc, P[3].mpc, P[4].mpc, P[5].mpc_rnd)
+#define MPC_FUNCTION_CALL_REUSE_OP1                                     \
+  P[0].mpc_inex =                                                       \
+    mpc_fma (P[1].mpc, P[1].mpc, P[3].mpc, P[4].mpc, P[5].mpc_rnd)
+#define MPC_FUNCTION_CALL_REUSE_OP2                                     \
+  P[0].mpc_inex =                                                       \
+    mpc_fma (P[1].mpc, P[2].mpc, P[1].mpc, P[4].mpc, P[5].mpc_rnd)
+#define MPC_FUNCTION_CALL_REUSE_OP3                                     \
+  P[0].mpc_inex =                                                       \
+    mpc_fma (P[1].mpc, P[2].mpc, P[3].mpc, P[1].mpc, P[5].mpc_rnd)
+
+#include "data_check.tpl"
+#include "tgeneric.tpl"
 
 int
 main (void)
 {
-  DECL_FUNC (CCCC, f, mpc_fma);
-
   test_start ();
 
-  check_random ();
+  check_random (); /* Remove it? */
+
+  data_check_template ("fma.dsc", "fma.dat");
 
-  data_check (f, "fma.dat");
-  tgeneric (f, 2, 1024, 1, 256);
+  tgeneric_template ("fma.dsc", 2, 1024, 1, 256);
 
   test_end ();