diff options
| author | Clément Lassieur <clement@lassieur.org> | 2018-07-20 10:50:48 +0200 |
|---|---|---|
| committer | Clément Lassieur <clement@lassieur.org> | 2018-07-30 00:26:31 +0200 |
| commit | 99241ef1af24cadf39e3cad39f9ff27c96b22068 (patch) | |
| tree | 70fe49350cc8f232ae886565137f8359c34d6d24 /tests/database.scm | |
| parent | 675cd04a8530fdc16f68758a410b91ce10d46b18 (diff) | |
| download | cuirass-99241ef1af24cadf39e3cad39f9ff27c96b22068.tar cuirass-99241ef1af24cadf39e3cad39f9ff27c96b22068.tar.gz | |
http: Change the paramater format from two-elements lists to pairs.
* src/cuirass/database.scm (assqx-ref): Remove exported procedure.
(db-get-builds, db-get-build): Adapt to new format.
* src/cuirass/http.scm (request-parameters): Use (cons key param) instead
of (list key param).
(url-handler): Adapt to new format.
* tests/database.scm ("db-get-builds"): Idem.
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") |