test backtrace-interrupted-condition-wait works on Darwin/x86 as well

[sbcl.git] / tests / debug.impure.lisp

diff --git a/tests/debug.impure.lisp b/tests/debug.impure.lisp
index 2411256..dab0481 100644 (file)
--- a/tests/debug.impure.lisp
+++ b/tests/debug.impure.lisp
@@ -177,7 +177,7 @@
                   ;; stunted, ending at _sigtramp, when we add :TIMEOUT NIL to
                   ;; the frame we expect. If we leave it out, the backtrace is
                   ;; fine -- but the test fails. I can only boggle right now.
-            :fails-on '(and :x86 (or :linux :darwin)))
+            :fails-on '(and :x86 :linux))
   (let ((m (sb-thread:make-mutex))
         (q (sb-thread:make-waitqueue)))
     (assert (verify-backtrace
@@ -650,6 +650,8 @@
                  (if (eq '* match)
                      ;; Whatever, till the next line matches.
                      (let ((text (pop targets)))
+                       #+nil
+                       (format *error-output* "Looking for: ~A~%" text)
                        (unless (search text line)
                          (push text targets)
                          (push match targets)))
@@ -694,7 +696,7 @@
       (let ((f #'(lambda (x cont)
                    (print x (make-broadcast-stream))
                    (if (zerop x)
-                       (error "foo")
+                       (error "~%foo")
                        (funcall cont (1- x) cont)))))
         (funcall f 10 f)))
    '*
@@ -702,7 +704,7 @@
    '*
    "foo"
    '*
-   "source: (ERROR \"foo\")"
+   "source: (ERROR \"~%foo\")"
    '*
    "(LAMBDA (X CONT)"
    '*