1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
(use sql-de-lite)
(define megatest.db (conc (get-environment-variable "MT_RUN_AREA_HOME") "/megatest.db"))
(define runsquery "sysname||'/'||fsname||'/'||datapath||'/'||runname||'/'||runs.state||'-'||runs.status")
(define bigquery
(conc
"SELECT " runsquery "||testname||'/'||item_path||'-'||'-'||tests.state||'-'||tests.status||'-'||runs.id AS outdat FROM runs INNER JOIN tests ON runs.id=tests.run_id ORDER BY outdat ASC ;"))
(print "Creating file for legacy db")
(with-output-to-file "legacy-db-dump"
(lambda ()
(let ((db (open-database megatest.db)))
(query (for-each-row
(lambda (res)
|
|
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
(use sql-de-lite)
(define megatest.db (conc (get-environment-variable "MT_RUN_AREA_HOME") "/megatest.db"))
(define runsquery "sysname||'/'||fsname||'/'||datapath||'/'||runname||'/'||runs.state||'-'||runs.status")
(define bigquery
(conc
"SELECT " runsquery "||testname||'/'||item_path||'-'||'-'||tests.state||'-'||tests.status||'-'||runs.id AS outdat FROM runs INNER JOIN tests ON runs.id=tests.run_id WHERE runs.state NOT LIKE 'deleted' AND tests.state NOT LIKE 'deleted' AND testname NOT LIKE 'db_sync' ORDER BY outdat ASC ;"))
(print "Creating file for legacy db")
(with-output-to-file "legacy-db-dump"
(lambda ()
(let ((db (open-database megatest.db)))
(query (for-each-row
(lambda (res)
|