tests/static-garbage.impure.lisp

   1 ;;; Ideally we want to assert that there are no pseudostatic unreachable objects
   2 ;;; at all, but that's not simple to do from lisp.
   3 ;;; Perform this by itself to remain unaffected by anything else.
   4 #-cheneygc
   5 (with-test (:name :pseudostatic-garbage :skipped-on (:not :sb-thread))
   6   (flet ((check-not-static (list)
   7            (dolist (x list)
   8              (assert (< (sb-kernel:generation-of x) sb-vm:+pseudo-static-generation+)))))
   9     (check-not-static (sb-vm:list-allocated-objects :all :test #'sb-thread::thread-p))
  10     (check-not-static (sb-vm:list-allocated-objects :all :test #'sb-thread::semaphore-p))))