From ac4512897c6e08f26f87d9b7ddd9120436610513 Mon Sep 17 00:00:00 2001 From: Mathieu Lirzin Date: Wed, 27 Jul 2016 19:19:26 +0200 Subject: schema: Evaluations: Add 'revision' column. * src/schema.sql (Evaluations): Add 'revision' column. * src/cuirass/database.scm (db-add-evaluation): Adapt. All callers changed. --- tests/database.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'tests') diff --git a/tests/database.scm b/tests/database.scm index eecef8b..8cc022a 100644 --- a/tests/database.scm +++ b/tests/database.scm @@ -59,12 +59,12 @@ (test-assert "sqlite-exec" (begin - (sqlite-exec (%db) - "INSERT INTO Evaluations (specification) VALUES (1);") - (sqlite-exec (%db) - "INSERT INTO Evaluations (specification) VALUES (2);") - (sqlite-exec (%db) - "INSERT INTO Evaluations (specification) VALUES (3);") + (sqlite-exec (%db) "\ +INSERT INTO Evaluations (specification, revision) VALUES (1, 1);") + (sqlite-exec (%db) "\ +INSERT INTO Evaluations (specification, revision) VALUES (2, 2);") + (sqlite-exec (%db) "\ +INSERT INTO Evaluations (specification, revision) VALUES (3, 3);") (sqlite-exec (%db) "SELECT * FROM Evaluations;"))) (test-equal "db-add-specification" -- cgit v1.2.3