Changeset 2a444e7 in tol


Ignore:
Timestamp:
Nov 24, 2015, 3:04:01 PM (11 years ago)
Author:
Víctor de Buen <vdebuen@…>
Branches:
1941-docker-image-to-test, devel, master
Children:
a5f3e8f
Parents:
78dd3c0
Message:

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@7066 be4846ae-f051-483a-831f-b64e7d08527f

Location:
tol_tests/tol/database/sqlite
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • tol_tests/tol/database/sqlite/test_001/test_sqlite.tol

    r78dd3c0 r2a444e7  
    1 Real DBOpen("db_test","","",[["sqlite","../db_test.db",""]]);
     1NameBlock connection = DBConnect::Create (
     2  "db_test", "_", "_",
     3  "sqlite", "../db_test.db", "",
     4  "Checking SQLite connection from TOL"
     5);
    26
    3 //Real DBExecQuery("DROP TABLE student");
     7Real connection::Open(?);
     8
     9//Real DBOpen("db_test","","",[["sqlite","../db_test.db",""]]);
     10
    411
    512Real DBExecQuery("
    … …  
    1118
    1219
    13 Text query.insert = "INSERT INTO studQu "<<
     20Text query.insert = "
     21BEGIN;
     22INSERT INTO studQu "<<
    1423SetSum(For(1,200,Text(Real k)
    1524{
    … …  
    1827  "SELECT 'S"<<IntRand(111111,999999)<<"' as code, "<<
    1928  Real Rand(0,10)<<" as qualify"
    20 }));
     29}))+";
     30COMMIT;
     31";
    2132
    2233Real DBExecQuery(query.insert);
    … …  
    2435Set DBTable("SELECT * FROM studQu");
    2536
    26 Real DBClose("db_test");
     37//Real DBClose("db_test");
     38
     39
     40Real connection::Close(?);
     41

  • tol_tests/tol/database/sqlite/test_003/test_sqlite.tol

    r78dd3c0 r2a444e7  
    1 Real GlobalizeSeries := False;
    2 Real DBOpen("db_test","","",[["sqlite","../db_test.db",""]]);
     1#Embed "config.tol";
    32
    4 Set rand_series = For(1,3,Serie(Real k)
    5 {
    6   Serie ser = SubSer(Gaussian(0,1,Weekly),y2015m04,y2015m12d31);
    7   Eval("RS_"<<FormatReal(k,"%05.0lf")+"=ser")
     3Real connection::Open(?);
     4
     5Real genTime = 0;
     6Real insertTime = 0;
     7
     8//Real tab = 1;
     9Set For(1,tableNumber,Real(Real tab) {
     10  Text tabId = "TRS"<<FormatReal(tab,"%05.0lf");
     11  WriteLn("Generating random series for table "+tabId);
     12  Real t0Gen = Copy(Time);
     13  Set series = For(1,seriesByTable,Serie(Real k)
     14  {
     15    Serie ser = SubSer(Gaussian(0,1,$tms),first,last);
     16    Eval("RS_"<<FormatReal(k,"%05.0lf")+"=ser")
     17  });
     18  Real genTime := genTime + Copy(Time) - t0Gen;
     19  WriteLn("Inserting random series in table "+tabId);
     20  Real t0Insert = Copy(Time);
     21  Real DBExecQuery("
     22  PRAGMA synchronous = 0;
     23  BEGIN;
     24  CREATE TABLE IF NOT EXISTS "+tabId+"(unused float);
     25  ");
     26  Real DBCreateSeriesTable(tabId,series,"dt_date", "datetime");
     27  Real DBExecQuery("
     28  COMMIT;
     29  PRAGMA synchronous = 2;
     30  ");
     31  Real insertTime := insertTime + Copy(Time) - t0Insert;
     32  True
    833});
     34 
     35Real genTimeByDatum = genTime / dataLength;
     36Real insertTimeByDatum = insertTime / dataLength;
    937
    10 Real DBCreateSeriesTable("rand_series",rand_series,"dt_date", "datetime");
    11 
    12 
     38/*
    1339Set rand_series_ = { DBSeries(
    1440  "SELECT * FROM rand_series",
    1541  Weekly,
    1642  EvalSet(rand_series,Name)) };
     43*/
    1744
    18 Real DBClose("db_test");
     45Real connection::Close(?);
     46
Note: See TracChangeset for help on using the changeset viewer.