1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
(use sqlite3)
(include "test-common.scm")
(define db (open-database "test.db"))
(execute db test-table-defn)
(execute db syncsetup)
(define (register-test db run-id testname host cpuload diskfree uname rundir shortdir item-path state status final-logf run-duration comment event-time)
(execute db
test-insert
run-id
testname host cpuload diskfree uname rundir shortdir item-path state status final-logf run-duration comment event-time))
(create-tests db)
(finalize! db)
|
>
|
|
<
|
|
>
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
(use sqlite3)
(include "test-common.scm")
(define db (open-database "test.db"))
(execute db test-table-defn)
(execute db syncsetup)
(define (register-test stmth run-id testname host cpuload diskfree uname rundir shortdir item-path state status final-logf run-duration comment event-time)
(execute stmth
run-id
testname host cpuload diskfree uname rundir shortdir item-path state status final-logf run-duration comment event-time))
(let ((stmth (prepare db test-insert)))
(create-tests stmth)
(finalize! stmth))
(finalize! db)
|