mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-03 16:20:39 +02:00
Code Activity

Sort goops class precedence tests to have a more reproducible check-guile.log

Browse source 
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
This commit is contained in:
Michael Gran 2023-06-20 13:06:20 -07:00
parent 196f6fca44
commit 83cf9fa5c4
1 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test-suite/tests/goops.test
View file

@ -121,10 +121,14 @@
(let rec ((class <top>)) (let rec ((class <top>))
(hash-create-handle! table class #f) (hash-create-handle! table class #f)
(for-each rec (class-direct-subclasses class))) (for-each rec (class-direct-subclasses class)))
(sort
(hash-fold (lambda (class ignore classes) (hash-fold (lambda (class ignore classes)
(cons class classes)) (cons class classes))
'() '()
table)))) table)
(lambda (a b)
(string<? (symbol->string (class-name a))
(symbol->string (class-name b))))))))
) )
(with-test-prefix "classes for built-in types" (with-test-prefix "classes for built-in types"