Commit 6c6786ee authored by pfdietz's avatar pfdietz

Disabled two disputed tests

parent b4342bb8
......@@ -100,6 +100,9 @@
(foo () 'also-bad)))))
nil nil)
;;; This test is disabled until I figure out how to fix
;;; it. See sbcl-devel mailing list, Oct 2005
#|
(deftest compute-restarts.10
(let ((c2 (make-condition 'error)))
(block done
......@@ -121,6 +124,7 @@
(foo () :test (lambda (c) (or (null c) (not (eq c c2))))
'also-bad)))))
nil nil)
|#
......
......@@ -146,6 +146,9 @@
;;; Using the :test-function to associate a restart with a condition
;;; This test is disabled until I figure out how to fix
;;; it. See sbcl-devel mailing list, Oct 2005
#|
(deftest restart-bind.20
(let ((c (make-condition 'error)))
(restart-bind
......@@ -156,6 +159,7 @@
(eq c c2)))))
(invoke-restart (find-restart 'foo c))))
good)
|#
(deftest restart-bind.21
(let ((c (make-condition 'error)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment