mike121 pushed a commit to branch wip-mingw-2025
in repository guile.
commit 83cf9fa5c40b544ce2197930066ae98e50ab8a6a
Author: Michael Gran <spk...@yahoo.com>
AuthorDate: Tue Jun 20 13:06:20 2023 -0700
Sort goops class precedence tests to have a more reproducible
check-guile.log
The GOOPS class precedence tests had been running in random order. This
sorts the tests before execution.
* test-suite/tests/goops.test ("class-precedence-list"): sort tests
---
test-suite/tests/goops.test | 12 ++++++++----
1 file changed, 8 insertions(+), 4 deletions(-)
diff --git a/test-suite/tests/goops.test b/test-suite/tests/goops.test
index 6f5957cc3..793f06ef2 100644
--- a/test-suite/tests/goops.test
+++ b/test-suite/tests/goops.test
@@ -121,10 +121,14 @@
(let rec ((class <top>))
(hash-create-handle! table class #f)
(for-each rec (class-direct-subclasses class)))
- (hash-fold (lambda (class ignore classes)
- (cons class classes))
- '()
- table))))
+ (sort
+ (hash-fold (lambda (class ignore classes)
+ (cons class classes))
+ '()
+ table)
+ (lambda (a b)
+ (string<? (symbol->string (class-name a))
+ (symbol->string (class-name b))))))))
)
(with-test-prefix "classes for built-in types"
