mirror of
git://git.savannah.gnu.org/guix/data-service.git
synced 2023-12-14 03:23:03 +01:00
Fix the load revision system sorting
As previously it only applied to system tests.
This commit is contained in:
parent
bbc53deb1f
commit
abe50b0443
|
@ -361,6 +361,10 @@ WHERE job_id = $1")
|
|||
result)))))
|
||||
|
||||
(define (inferior-guix-systems inf)
|
||||
;; The order shouldn't matter here, but bugs in Guix can lead to different
|
||||
;; results depending on the order, so sort the systems to try and provide
|
||||
;; deterministic behaviour
|
||||
(sort
|
||||
(cond
|
||||
((inferior-eval
|
||||
'(defined? 'systems
|
||||
|
@ -379,16 +383,12 @@ WHERE job_id = $1")
|
|||
(else
|
||||
(inferior-eval
|
||||
'(@ (guix packages) %supported-systems)
|
||||
inf))))
|
||||
inf)))
|
||||
string<?))
|
||||
|
||||
(define (all-inferior-system-tests inf store guix-source guix-commit)
|
||||
(define inf-systems
|
||||
;; The order shouldn't matter here, but bugs in Guix can lead to different
|
||||
;; results depending on the order, so sort the systems to try and provide
|
||||
;; deterministic behaviour
|
||||
(sort
|
||||
(inferior-guix-systems inf)
|
||||
string<?))
|
||||
(inferior-guix-systems inf))
|
||||
|
||||
(define extract
|
||||
`(lambda (store)
|
||||
|
|
Loading…
Reference in a new issue