Skip to content
Snippets Groups Projects
Commit 6c6786ee authored by pfdietz's avatar pfdietz
Browse files

Disabled two disputed tests

parent b4342bb8
No related branches found
No related tags found
No related merge requests found
...@@ -100,6 +100,9 @@ ...@@ -100,6 +100,9 @@
(foo () 'also-bad))))) (foo () 'also-bad)))))
nil nil) 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 (deftest compute-restarts.10
(let ((c2 (make-condition 'error))) (let ((c2 (make-condition 'error)))
(block done (block done
...@@ -121,6 +124,7 @@ ...@@ -121,6 +124,7 @@
(foo () :test (lambda (c) (or (null c) (not (eq c c2)))) (foo () :test (lambda (c) (or (null c) (not (eq c c2))))
'also-bad))))) 'also-bad)))))
nil nil) nil nil)
|#
......
...@@ -146,6 +146,9 @@ ...@@ -146,6 +146,9 @@
;;; Using the :test-function to associate a restart with a condition ;;; 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 (deftest restart-bind.20
(let ((c (make-condition 'error))) (let ((c (make-condition 'error)))
(restart-bind (restart-bind
...@@ -156,6 +159,7 @@ ...@@ -156,6 +159,7 @@
(eq c c2))))) (eq c c2)))))
(invoke-restart (find-restart 'foo c)))) (invoke-restart (find-restart 'foo c))))
good) good)
|#
(deftest restart-bind.21 (deftest restart-bind.21
(let ((c (make-condition 'error))) (let ((c (make-condition 'error)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment