common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Disable failing tests on mark-region-gc

Browse source
This commit is contained in:
Stas Boukarev 2024-04-30 14:56:33 +03:00
parent 684802b892
commit 899dac7205
2 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
tests/map-refs.pure.lisp
View file

@ -2,7 +2,8 @@
;;; potential pointers. Also make sure it sees the SYMBOL-INFO slot.
(defstruct afoo (slot nil :type sb-ext:word))
(defvar *afoo* (make-afoo :slot (sb-kernel:get-lisp-obj-address '*posix-argv*)))
(with-test (:name :map-referencing-objs)
(with-test (:name :map-referencing-objs
:broken-on :mark-region-gc)
(sb-vm::map-referencing-objects (lambda (x) (assert (not (typep x 'afoo))))
:dynamic '*posix-argv*)
(let ((v (sb-kernel:symbol-%info 'satisfies)) referers)

3
tests/type.pure.lisp
View file

@ -305,7 +305,8 @@
(loop for d from c below size do
(test a b c d op deriver))))))))))
(with-test (:name (:type-derivation :logical-operations :scaling) :slow t)
(with-test (:name (:type-derivation :logical-operations :scaling
:broken-on :mark-region-gc) :slow t)
(let ((type-x1 (sb-c::specifier-type `(integer ,(expt 2 10000)
,(expt 2 10000))))
(type-x2 (sb-c::specifier-type `(integer ,(expt 2 100000)