Index: tol_tests/tol/database/sqlite/test_001/test_sqlite.tol
===================================================================
--- tol_tests/tol/database/sqlite/test_001/test_sqlite.tol	(revision 78dd3c007dfe81a746601c6b35ed91b255aea032)
+++ tol_tests/tol/database/sqlite/test_001/test_sqlite.tol	(revision 2a444e755b5a4a1a47d021f5178a2cc7e39eba49)
@@ -1,5 +1,12 @@
-Real DBOpen("db_test","","",[["sqlite","../db_test.db",""]]);
+NameBlock connection = DBConnect::Create (
+  "db_test", "_", "_", 
+  "sqlite", "../db_test.db", "", 
+  "Checking SQLite connection from TOL"
+);
 
-//Real DBExecQuery("DROP TABLE student");
+Real connection::Open(?);
+
+//Real DBOpen("db_test","","",[["sqlite","../db_test.db",""]]);
+
 
 Real DBExecQuery("
@@ -11,5 +18,7 @@
 
 
-Text query.insert = "INSERT INTO studQu "<<
+Text query.insert = "
+BEGIN;
+INSERT INTO studQu "<<
 SetSum(For(1,200,Text(Real k)
 {
@@ -18,5 +27,7 @@
   "SELECT 'S"<<IntRand(111111,999999)<<"' as code, "<<
   Real Rand(0,10)<<" as qualify"
-}));
+}))+";
+COMMIT;
+";
 
 Real DBExecQuery(query.insert);
@@ -24,3 +35,7 @@
 Set DBTable("SELECT * FROM studQu");
 
-Real DBClose("db_test");
+//Real DBClose("db_test");
+
+
+Real connection::Close(?);
+
Index: tol_tests/tol/database/sqlite/test_003/test_sqlite.tol
===================================================================
--- tol_tests/tol/database/sqlite/test_003/test_sqlite.tol	(revision 78dd3c007dfe81a746601c6b35ed91b255aea032)
+++ tol_tests/tol/database/sqlite/test_003/test_sqlite.tol	(revision 2a444e755b5a4a1a47d021f5178a2cc7e39eba49)
@@ -1,18 +1,46 @@
-Real GlobalizeSeries := False;
-Real DBOpen("db_test","","",[["sqlite","../db_test.db",""]]);
+#Embed "config.tol";
 
-Set rand_series = For(1,3,Serie(Real k)
-{
-  Serie ser = SubSer(Gaussian(0,1,Weekly),y2015m04,y2015m12d31);
-  Eval("RS_"<<FormatReal(k,"%05.0lf")+"=ser")
+Real connection::Open(?);
+
+Real genTime = 0;
+Real insertTime = 0;
+
+//Real tab = 1;
+Set For(1,tableNumber,Real(Real tab) {
+  Text tabId = "TRS"<<FormatReal(tab,"%05.0lf");
+  WriteLn("Generating random series for table "+tabId);
+  Real t0Gen = Copy(Time);
+  Set series = For(1,seriesByTable,Serie(Real k)
+  {
+    Serie ser = SubSer(Gaussian(0,1,$tms),first,last);
+    Eval("RS_"<<FormatReal(k,"%05.0lf")+"=ser")
+  });
+  Real genTime := genTime + Copy(Time) - t0Gen;
+  WriteLn("Inserting random series in table "+tabId);
+  Real t0Insert = Copy(Time);
+  Real DBExecQuery("
+  PRAGMA synchronous = 0;
+  BEGIN;
+  CREATE TABLE IF NOT EXISTS "+tabId+"(unused float);
+  ");
+  Real DBCreateSeriesTable(tabId,series,"dt_date", "datetime"); 
+  Real DBExecQuery("
+  COMMIT;
+  PRAGMA synchronous = 2;
+  ");
+  Real insertTime := insertTime + Copy(Time) - t0Insert;
+  True
 });
+  
+Real genTimeByDatum = genTime / dataLength;
+Real insertTimeByDatum = insertTime / dataLength;
 
-Real DBCreateSeriesTable("rand_series",rand_series,"dt_date", "datetime");
-
-
+/*
 Set rand_series_ = { DBSeries(
   "SELECT * FROM rand_series",
   Weekly,
   EvalSet(rand_series,Name)) };
+*/
 
-Real DBClose("db_test");
+Real connection::Close(?);
+