diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2024-03-17 22:55:58 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2024-03-17 22:55:58 -0700 |
commit | afaf69fcc38125ffa5a21b5f16d25cf1fdc93bae (patch) | |
tree | 501aa05a46320fc5b2a7030ca83e7d9f40e40f7c | |
parent | febb0ede7ef5a687011c059b8b9b7812fac77f08 (diff) | |
download | txr-afaf69fcc38125ffa5a21b5f16d25cf1fdc93bae.tar.gz txr-afaf69fcc38125ffa5a21b5f16d25cf1fdc93bae.tar.bz2 txr-afaf69fcc38125ffa5a21b5f16d25cf1fdc93bae.zip |
tests: stability of fini test case.
* test/012/fini.tl: Pass t to sys:gc to request full
garbage collection. Otherwise the output may be reordered,
due to some of the objects made earlier in the test case
being promoted to the mature generation and thus not
finalized by the (sys:gc) call.
-rw-r--r-- | tests/012/fini.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/012/fini.tl b/tests/012/fini.tl index 4036b5d4..506b4c9e 100644 --- a/tests/012/fini.tl +++ b/tests/012/fini.tl @@ -21,7 +21,7 @@ (put-line "after with-objects")) (mapcar (ret (new derived)) (range 1 20)) -(sys:gc) +(sys:gc t) (defstruct multi () (:init (me) |