diff options
Diffstat (limited to 'tests/database.scm')
| -rw-r--r-- | tests/database.scm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/database.scm b/tests/database.scm index eb75363..75431e9 100644 --- a/tests/database.scm +++ b/tests/database.scm @@ -42,6 +42,16 @@ (test-assert "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" (%id (db-add-evaluation (%db) (make-dummy-job)))) |