From 348fe36b558ac42d9a63c13cb95ea708c76123cd Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Fri, 21 Jul 2023 12:10:55 +0100
Subject: Sort systems and targets for more deterministic behaviour

As the ordering from Guix seems to be non-deterministic.
---
 guix-data-service/jobs/load-new-guix-revision.scm | 15 +++++++++++----
 1 file 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"
-- 
cgit v1.2.3