diff options
Diffstat (limited to 'tests/database.scm')
| -rw-r--r-- | tests/database.scm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/tests/database.scm b/tests/database.scm index 6ca9d1c..17d48f5 100644 --- a/tests/database.scm +++ b/tests/database.scm @@ -194,12 +194,14 @@ INSERT INTO Evaluations (specification, commits) VALUES (3, 3);") (let ((summarize (lambda (alist) (list (assq-ref alist #:id) (assq-ref alist #:derivation))))) - (vector (map summarize (db-get-builds db '((nr 3) (order build-id)))) + (vector (map summarize (db-get-builds db '((nr . 3) + (order . build-id)))) (map summarize (db-get-builds db '())) - (map summarize (db-get-builds db '((jobset "guix")))) - (map summarize (db-get-builds db '((nr 1)))) + (map summarize (db-get-builds db '((jobset . "guix")))) + (map summarize (db-get-builds db '((nr . 1)))) (map summarize - (db-get-builds db '((order status+submission-time)))))))) + (db-get-builds + db '((order . status+submission-time)))))))) (test-equal "db-get-pending-derivations" '("/bar.drv" "/foo.drv") |