diff options
Diffstat (limited to 'guix-data-service/jobs/load-new-guix-revision.scm')
| -rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index 1168f03..278066b 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -383,7 +383,12 @@ WHERE job_id = $1") (define (all-inferior-system-tests inf store guix-source guix-commit) (define inf-systems - (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 + (inferior-guix-systems inf) + string<?)) (define extract `(lambda (store) @@ -683,9 +688,11 @@ WHERE job_id = $1") '(defined? 'targets (resolve-module '(guix platform))) inf) - (inferior-eval - '((@ (guix platform) targets)) - inf)) + (sort + (inferior-eval + '((@ (guix platform) targets)) + inf) + string<?)) (else '("arm-linux-gnueabihf" |