Index: tol_tests/tol/cint/test_0001/test.tol
===================================================================
--- tol_tests/tol/cint/test_0001/test.tol	(revision d9ed9cc82946cc6588da9c4899e18b478c205a60)
+++ tol_tests/tol/cint/test_0001/test.tol	(revision d9ed9cc82946cc6588da9c4899e18b478c205a60)
@@ -0,0 +1,64 @@
+//////////////////////////////////////////////////////////////////////////////
+// FILE   : test.tol
+// PURPOSE: test for CINT API
+//////////////////////////////////////////////////////////////////////////////
+
+Text email_ = "vdebuen@tol-project.org"; 
+Text link_ = "";
+Text summary_ = "test for CINT API" ;
+
+
+//Write here the initial test TOL code if needed
+
+Real numErr0 = Copy(NError);
+
+Real N = 1000000;
+Real t0 = Copy(Time);
+
+Real Cint.loadfile("tools.cpp");
+Real x.cint = Cint.calc("sum_harmonic("<<N+")");
+Real Cint.unloadfile("tools.cpp");
+
+Real t.cint = Copy(Time)-t0;
+
+#Embed "tools.tol";
+
+Real t0 := Copy(Time);
+
+Real x.tol = sum_harmonic(N);
+
+Real t.tol = Copy(Time)-t0;
+
+WriteLn("Time for evaluation of sum_harmonic("<<N+") with Cint = "<<t.cint);
+WriteLn("Time for evaluation of sum_harmonic("<<N+") with TOL  = "<<t.tol);
+
+Real numErr1 = Copy(NError);
+
+//Extented information about test behaviour
+Set partialResults_ = 
+[[
+  numErr0,
+  numErr1,
+  x.cint,
+  x.tol,
+  t.cint,
+  t.tol
+]];
+
+//This is a messure of the success of the test 
+Real quality_ = And(numErr0 == numErr1, x.cint == x.tol);
+
+//Return the results 
+Set resultStr_ = @strTestStatus(summary_, link_, quality_,
+                  "Partial results = "<<partialResults_,
+                  "NO DBServerType", "NO DBServerHost", "NO DBAlias",
+                  email_);
+WriteLn(""<<resultStr_);
+WriteLn("NObject="<<NObject);
+WriteLn("NCore="<<NCore);
+resultStr_
+/* */
+
+
+
+
Index: tol_tests/tol/cint/test_0001/tools.cpp
===================================================================
--- tol_tests/tol/cint/test_0001/tools.cpp	(revision d9ed9cc82946cc6588da9c4899e18b478c205a60)
+++ tol_tests/tol/cint/test_0001/tools.cpp	(revision d9ed9cc82946cc6588da9c4899e18b478c205a60)
@@ -0,0 +1,13 @@
+////////////////////////////////////////////////////////////////////////////////
+double sum_harmonic(double n)
+////////////////////////////////////////////////////////////////////////////////
+{
+  int i=0;
+  double zz = 0;
+  for(i=1; i<=n; i++)
+  {
+    zz += pow(i,-2);
+  };
+  return(zz);
+};
+
Index: tol_tests/tol/cint/test_0001/tools.tol
===================================================================
--- tol_tests/tol/cint/test_0001/tools.tol	(revision d9ed9cc82946cc6588da9c4899e18b478c205a60)
+++ tol_tests/tol/cint/test_0001/tools.tol	(revision d9ed9cc82946cc6588da9c4899e18b478c205a60)
@@ -0,0 +1,14 @@
+////////////////////////////////////////////////////////////////////////////////
+Real sum_harmonic(Real n)
+////////////////////////////////////////////////////////////////////////////////
+{
+  Real i=1;
+  Real zz = 0;
+  While(i<=n,
+  {
+    zz := zz + i^-2;
+    i := i+1
+  });
+  Copy(zz)
+};
+
Index: tol_tests/tol/cint/test_0002/test.tol
===================================================================
--- tol_tests/tol/cint/test_0002/test.tol	(revision d9ed9cc82946cc6588da9c4899e18b478c205a60)
+++ tol_tests/tol/cint/test_0002/test.tol	(revision d9ed9cc82946cc6588da9c4899e18b478c205a60)
@@ -0,0 +1,53 @@
+//////////////////////////////////////////////////////////////////////////////
+// FILE   : test.tol
+// PURPOSE: test for CINT API
+//////////////////////////////////////////////////////////////////////////////
+
+Text email_ = "vdebuen@tol-project.org"; 
+Text link_ = "";
+Text summary_ = "test for CINT API" ;
+
+
+//Write here the initial test TOL code if needed
+
+Real numErr0 = Copy(NError);
+
+Real Cint.loadfile("tools.cpp");
+Real x.1 = Cint.exec_text("
+  my_inequation ineq_1( 0,2); 
+  my_inequation ineq_2(-1,1); 
+  0;
+");
+Real x.2 = Cint.calc("ineq_1.constraint(12,17)");
+Real x.3 = Cint.calc("ineq_2.constraint(12,17)");
+
+Real Cint.unloadfile("tools.cpp");
+
+Real numErr1 = Copy(NError);
+
+//Extented information about test behaviour
+Set partialResults_ = 
+[[
+  numErr0,
+  numErr1,
+  x.2,
+  x.3
+]];
+
+//This is a messure of the success of the test 
+Real quality_ = And(numErr0 == numErr1, x.2 == -9, x.3 == -1348);
+
+//Return the results 
+Set resultStr_ = @strTestStatus(summary_, link_, quality_,
+                  "Partial results = "<<partialResults_,
+                  "NO DBServerType", "NO DBServerHost", "NO DBAlias",
+                  email_);
+WriteLn(""<<resultStr_);
+WriteLn("NObject="<<NObject);
+WriteLn("NCore="<<NCore);
+resultStr_
+/* */
+
+
+
+
Index: tol_tests/tol/cint/test_0002/tools.cpp
===================================================================
--- tol_tests/tol/cint/test_0002/tools.cpp	(revision d9ed9cc82946cc6588da9c4899e18b478c205a60)
+++ tol_tests/tol/cint/test_0002/tools.cpp	(revision d9ed9cc82946cc6588da9c4899e18b478c205a60)
@@ -0,0 +1,16 @@
+////////////////////////////////////////////////////////////////////////////////
+class my_inequation
+////////////////////////////////////////////////////////////////////////////////
+{
+public:
+  double a_;
+  double b_;
+  my_inequation(double a, double b) : a_(a), b_(b) {};
+ ~my_inequation() {};
+  double constraint(double x1, double x2)
+  {
+    double ax1b = a_*x1 + b_;
+    return((pow(ax1b,3) - x2));
+  }
+};
+