From b1dd669196b01ac2dcd7accd052b28b536b85e08 Mon Sep 17 00:00:00 2001 From: Mathieu Lirzin Date: Fri, 22 Jul 2016 12:35:09 +0200 Subject: database: sqlite-exec: Return every rows. Export it. Add a test. --- tests/database.scm | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'tests') 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)))) -- cgit v1.2.3