Commit f73cf659 authored by pfdietz's avatar pfdietz
Browse files

Added code to invoke-debugger.error.[12] to avoid bombing the tests on ACL 6.2

parent d366781e
...@@ -23,11 +23,21 @@ ...@@ -23,11 +23,21 @@
good) good)
(deftest invoke-debugger.error.1 (deftest invoke-debugger.error.1
(classify-error (invoke-debugger)) (classify-error
(block done
(let ((*debugger-hook* #'(lambda (&rest args)
(declare (ignore args))
(return-from done 'bad))))
(invoke-debugger))))
program-error) program-error)
(deftest invoke-debugger.error.2 (deftest invoke-debugger.error.2
(classify-error (invoke-debugger (make-condition 'simple-error) nil)) (classify-error
(block done
(let ((*debugger-hook* #'(lambda (&rest args)
(declare (ignore args))
(return-from done 'bad))))
(invoke-debugger (make-condition 'simple-error) nil))))
program-error) program-error)
;;; If the debugger hook function expects the wrong number ;;; If the debugger hook function expects the wrong number
......
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