mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-24 21:41:29 -08:00
Code Issues Projects Releases Packages Wiki Activity

tests: finalization shouldn't use special variabile

Browse source
This commit is contained in:
Daniel Kochmański 2016-12-07 19:41:25 +01:00
parent 42eed437d1
commit 6cd9dcf6b6
1 changed files with 19 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

40
src/tests/normal-tests/compiler.lsp
View file

@ -192,27 +192,25 @@
;;; The following code tests that at least three objects are finalized.
;;;
;;; Note: this test fails in multithreaded mode. GC takes too long!
(ext:with-clean-symbols (*all-tags*)
(test cmp.0009.finalization
(is-equal '(0 1 2 3 4)
(let ((*all-tags* '()))
(declare (special *all-tags*))
(flet ((custom-finalizer (tag)
#'(lambda (o)
(declare (ignore o))
;; XXX
(push tag *all-tags*))))
(let ((a '()))
(dotimes (i 5)
(let ((x (cons i i)))
(si::set-finalizer x (custom-finalizer i))
(push x a))))
(sleep 1) ; mitigate gc being slow
(dotimes (j 100)
(dotimes (i 10000)
(cons 1.0 1.0))
(si::gc t)))
(sort *all-tags* #'<)))))
(test cmp.0009.finalization
(is-equal '(0 1 2 3 4)
(let ((all-tags))
(flet ((custom-finalizer (tag)
#'(lambda (o)
(declare (ignore o))
(push tag all-tags))))
(let ((a '()))
(dotimes (i 5)
(let ((x (cons i i)))
(si::set-finalizer x (custom-finalizer i))
(push x a))))
;; mitigate GC slowness
(sleep 1)
(dotimes (j 100)
(dotimes (i 10000)
(cons 1.0 1.0))
(ext:gc t)))
(sort all-tags #'<))))
;;; Date: 8/10/2006 (Dustin Long)
;;; Fixed: 10/10/2006 (Dustin Long)