diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/database.scm | 12 | ||||
| -rw-r--r-- | tests/http.scm | 2 |
2 files changed, 7 insertions, 7 deletions
diff --git a/tests/database.scm b/tests/database.scm index 8fd663d..01d7e67 100644 --- a/tests/database.scm +++ b/tests/database.scm @@ -97,14 +97,14 @@ (test-assert "sqlite-exec" (begin (sqlite-exec (%db) "\ -INSERT INTO Evaluations (specification, in_progress, -timestamp, checkouttime, evaltime) VALUES (1, false, 0, 0, 0);") +INSERT INTO Evaluations (specification, status, +timestamp, checkouttime, evaltime) VALUES (1, 0, 0, 0, 0);") (sqlite-exec (%db) "\ -INSERT INTO Evaluations (specification, in_progress, -timestamp, checkouttime, evaltime) VALUES (2, false, 0, 0, 0);") +INSERT INTO Evaluations (specification, status, +timestamp, checkouttime, evaltime) VALUES (2, 0, 0, 0, 0);") (sqlite-exec (%db) "\ -INSERT INTO Evaluations (specification, in_progress, -timestamp, checkouttime, evaltime) VALUES (3, false, 0, 0, 0);") +INSERT INTO Evaluations (specification, status, +timestamp, checkouttime, evaltime) VALUES (3, 0, 0, 0, 0);") (sqlite-exec (%db) "SELECT * FROM Evaluations;"))) (test-equal "db-add-specification" diff --git a/tests/http.scm b/tests/http.scm index f80e515..e2d6982 100644 --- a/tests/http.scm +++ b/tests/http.scm @@ -78,7 +78,7 @@ (define evaluations-query-result #(((#:id . 2) (#:specification . "guix") - (#:in-progress . 1) + (#:status . -1) (#:checkouts . #(((#:commit . "fakesha2") (#:input . "savannah") (#:directory . "dir3"))))))) |