Fix weather value.

* src/cuirass/database.scm (db-get-builds): Fix weather value.
* tests/http.scm (build-query-result): Adapt it.
This commit is contained in:
Mathieu Othacehe 2021-02-02 14:27:49 +01:00
parent 6bd940fc24
commit 8bdc7ee535
No known key found for this signature in database
GPG Key ID: 8354763531769CA6
2 changed files with 4 additions and 3 deletions

View File

@ -1134,8 +1134,9 @@ ORDER BY ~a;"
(#:status . ,(string->number status))
(#:last-status . ,(and last-status
(string->number last-status)))
(#:weather . ,(and weather
(string->number weather)))
(#:weather . ,(if weather
(string->number weather)
(build-weather unknown)))
(#:priority . ,(string->number priority))
(#:max-silent . ,(string->number max-silent))
(#:timeout . ,(string->number timeout))

View File

@ -65,7 +65,7 @@
(#:system . "x86_64-linux")
(#:nixname . "fake-1.0")
(#:buildstatus . 0)
(#:weather . #nil)
(#:weather . -1)
(#:busy . 0)
(#:priority . 0)
(#:finished . 1)