X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fdebug.impure.lisp;h=7a2d9135a16ca4230479d7f3590cbcfaf9fe3478;hb=9837343101c3da7b3a8f94609ec116ec5025436a;hp=e2812149ccb2c9a8f38f6e6480c41deb383a7ba2;hpb=6ce6b4d3e995f7fae210c8fe139a693fd413ed01;p=sbcl.git diff --git a/tests/debug.impure.lisp b/tests/debug.impure.lisp index e281214..7a2d913 100644 --- a/tests/debug.impure.lisp +++ b/tests/debug.impure.lisp @@ -207,9 +207,13 @@ (with-test (:name (:throw :no-such-tag) :fails-on '(or + (and :x86 :openbsd) (and :x86 :sunos) (and :x86 :darwin) + (and :x86 :linux) (and :x86-64 :darwin) + (and :x86-64 :linux) + (and :x86-64 :openbsd) (and :sparc :linux) :alpha :mips)) @@ -257,6 +261,16 @@ `(let ((sb-debug:*show-entry-point-details* ,bool)) ,@body)) +(defun bug-354 (x) + (error "XEPs in backtraces: ~S" x)) + +(with-test (:name :bug-354) + (with-details t + (assert (not (verify-backtrace (lambda () (bug-354 354)) + '((bug-354 &rest) + ((sb-c::tl-xep bug-354) &rest)))))) + (assert (verify-backtrace (lambda () (bug-354 354)) '((bug-354 354))))) + ;;; FIXME: This test really should be broken into smaller pieces (with-test (:name (:backtrace :misc) :fails-on '(or (and :x86 (or :sunos)) (and :x86-64 :darwin)))