mirror of https://notabug.org/mthl/cuirass.git
parent
18e42be302
commit
b1dd669196
|
@ -29,6 +29,7 @@
|
||||||
db-delete-evaluation
|
db-delete-evaluation
|
||||||
db-add-build-log
|
db-add-build-log
|
||||||
read-sql-file
|
read-sql-file
|
||||||
|
sqlite-exec
|
||||||
;; Parameters.
|
;; Parameters.
|
||||||
%package-database
|
%package-database
|
||||||
;; Macros.
|
;; Macros.
|
||||||
|
@ -39,9 +40,14 @@
|
||||||
MSG to database DB. MSG can contain '~A' and '~S' escape characters which
|
MSG to database DB. MSG can contain '~A' and '~S' escape characters which
|
||||||
will be replaced by ARGS."
|
will be replaced by ARGS."
|
||||||
(let* ((sql (apply simple-format #f msg args))
|
(let* ((sql (apply simple-format #f msg args))
|
||||||
(stmt (sqlite-prepare db sql)))
|
(stmt (sqlite-prepare db sql))
|
||||||
(sqlite-step stmt)
|
(res (let loop ((res '()))
|
||||||
(sqlite-finalize stmt)))
|
(let ((row (sqlite-step stmt)))
|
||||||
|
(if (not row)
|
||||||
|
(reverse! res)
|
||||||
|
(loop (cons row res)))))))
|
||||||
|
(sqlite-finalize stmt)
|
||||||
|
res))
|
||||||
|
|
||||||
(define %package-database
|
(define %package-database
|
||||||
;; Define to the database file name of this package.
|
;; Define to the database file name of this package.
|
||||||
|
|
|
@ -42,6 +42,16 @@
|
||||||
(test-assert "db-init"
|
(test-assert "db-init"
|
||||||
(%db (db-init)))
|
(%db (db-init)))
|
||||||
|
|
||||||
|
(test-assert "sqlite-exec"
|
||||||
|
(begin
|
||||||
|
(sqlite-exec (%db) "\
|
||||||
|
INSERT INTO build (job_spec, drv) VALUES ('job1', 'drv1');")
|
||||||
|
(sqlite-exec (%db) "\
|
||||||
|
INSERT INTO build (job_spec, drv) VALUES ('job2', 'drv2');")
|
||||||
|
(sqlite-exec (%db) "\
|
||||||
|
INSERT INTO build (job_spec, drv) VALUES ('job3', 'drv3');")
|
||||||
|
(sqlite-exec (%db) "SELECT * FROM build;")))
|
||||||
|
|
||||||
(test-assert "db-add-evaluation"
|
(test-assert "db-add-evaluation"
|
||||||
(%id (db-add-evaluation (%db) (make-dummy-job))))
|
(%id (db-add-evaluation (%db) (make-dummy-job))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue