From 83cf9fa5c40b544ce2197930066ae98e50ab8a6a Mon Sep 17 00:00:00 2001 From: Michael Gran Date: Tue, 20 Jun 2023 13:06:20 -0700 Subject: [PATCH] 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 )) (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) + (stringstring (class-name a)) + (symbol->string (class-name b)))))))) ) (with-test-prefix "classes for built-in types"