From 899dac72050005b98f9bf0bae6e4e159abbf3d82 Mon Sep 17 00:00:00 2001 From: Stas Boukarev Date: Tue, 30 Apr 2024 14:56:33 +0300 Subject: [PATCH] Disable failing tests on mark-region-gc --- tests/map-refs.pure.lisp | 3 ++- tests/type.pure.lisp | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/tests/map-refs.pure.lisp b/tests/map-refs.pure.lisp index 5f1067b76..9672e935b 100644 --- a/tests/map-refs.pure.lisp +++ b/tests/map-refs.pure.lisp @@ -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) diff --git a/tests/type.pure.lisp b/tests/type.pure.lisp index f11d02466..26f748c52 100644 --- a/tests/type.pure.lisp +++ b/tests/type.pure.lisp @@ -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) -- 2.11.4.GIT