diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2016-07-22 12:35:09 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-07-25 02:12:40 +0200 |
| commit | b1dd669196b01ac2dcd7accd052b28b536b85e08 (patch) | |
| tree | 77b4146135f389fe90671286f18c05415daea837 /tests | |
| parent | 18e42be3029af2aa655fc7819caf0cc23b8ba9f2 (diff) | |
| download | cuirass-b1dd669196b01ac2dcd7accd052b28b536b85e08.tar cuirass-b1dd669196b01ac2dcd7accd052b28b536b85e08.tar.gz | |
database: sqlite-exec: Return every rows.
Export it. Add a test.
Diffstat (limited to 'tests')
| -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)))) |