From 2840347cb82878363283b2d4ea70926b496c4872 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 16 Jan 2019 16:24:49 -0700
Subject: [PATCH] fix submodule tests to not rely on order

---
 pkgs/racket-test-core/tests/racket/submodule.rktl | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/pkgs/racket-test-core/tests/racket/submodule.rktl b/pkgs/racket-test-core/tests/racket/submodule.rktl
index 3bac35cc2c..87689f746b 100644
--- a/pkgs/racket-test-core/tests/racket/submodule.rktl
+++ b/pkgs/racket-test-core/tests/racket/submodule.rktl
@@ -128,14 +128,15 @@
   (define (sort-by-name l)
     (sort l (lambda (a b) (symbol<? (last (module-compiled-name a))
                                     (last (module-compiled-name b))))))
+  (define post-submods (sort-by-name (module-compiled-submodules c #f)))
   (for ([sub (in-list (append (module-compiled-submodules c #t)
-                              (sort-by-name (module-compiled-submodules c #f))))]
+                              post-submods))]
         [name '(z a b)])
     (test (list 'subm-example-0 name) values (module-compiled-name sub))
     (when (eq? name 'a)
       (test 1 values (length (module-compiled-submodules sub #f)))
       (test '(subm-example-0 a i) values (module-compiled-name (car (module-compiled-submodules sub #f))))))
-  (define a (module-compiled-name (car (module-compiled-submodules c #f))
+  (define a (module-compiled-name (car post-submods)
                                   'reset))
   (test 'reset values (module-compiled-name a))
   (test '(reset i) values (module-compiled-name (car (module-compiled-submodules a #f))))
@@ -144,14 +145,14 @@
   (test '(reset again i) values (module-compiled-name (car (module-compiled-submodules (car (module-compiled-submodules aa #f)) #f))))
 
   (define also-c (module-compiled-submodules c #f (module-compiled-submodules c #f)))
-  (test '(subm-example-0 a) values (module-compiled-name (car (module-compiled-submodules also-c #f))))
+  (test '(subm-example-0 a) values (module-compiled-name (car (sort-by-name (module-compiled-submodules also-c #f)))))
   (define re-c
     (let ([s (open-output-bytes)])
       (write also-c s)
       (parameterize ([read-accept-compiled #t])
         (read (open-input-bytes (get-output-bytes s))))))
   ;; Marshaling preserves the order:
-  (test '(subm-example-0 a) values (module-compiled-name (car (module-compiled-submodules re-c #f)))))
+  (test '(subm-example-0 a) values (module-compiled-name (car (sort-by-name (module-compiled-submodules re-c #f))))))
 
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;