Commit 4fb17021 authored by pfdietz's avatar pfdietz
Browse files

Modified some tests so they don't make ecl crash (instead they just fail). ...

Modified some tests so they don't make ecl crash (instead they just fail).  Also, modified the RT test harness to work around other obnoxious bugs in ecl.
parent cd1aca75
......@@ -391,14 +391,16 @@
nil)
(deftest dotimes.6
(let ((x nil))
(dotimes (i -1 x) (push i x)))
nil)
(block done
(dotimes (i -1 'good)
(return-from done 'bad)))
good)
(deftest dotimes.7
(let ((x nil))
(dotimes (i (1- most-negative-fixnum) x) (push i x)))
nil)
(block done
(dotimes (i (1- most-negative-fixnum) 'good)
(return-from done 'bad)))
good)
;;; Implicit nil block has the right scope
(deftest dotimes.8
......
......@@ -165,31 +165,34 @@ them.")
r)
;; (declare (special *break-on-warnings*))
(flet ((%do
()
(setf r
(multiple-value-list
(if *compile-tests*
(funcall (compile
nil
`(lambda ()
(declare
(optimize ,@*optimization-settings*))
,(form entry))))
(eval (form entry)))))))
(block aborted
(if *catch-errors*
(handler-bind (#-ecl (style-warning #'muffle-warning)
(error #'(lambda (c)
(setf aborted t)
(setf r (list c))
(return-from aborted nil))))
(%do))
(%do))))
(block aborted
(setf r
(flet ((%do
()
(if *compile-tests*
(multiple-value-list
(funcall (compile
nil
`(lambda ()
(declare
(optimize ,@*optimization-settings*))
,(form entry)))))
(multiple-value-list
(eval (form entry))))))
(if *catch-errors*
(handler-bind
(#-ecl (style-warning #'muffle-warning)
(error #'(lambda (c)
(setf aborted t)
(setf r (list c))
(return-from aborted nil))))
(%do))
(%do)))))
(setf (pend entry)
(or aborted
(not (equalp-with-case r (vals entry)))))
(when (pend entry)
(let ((*print-circle* *print-circle-on-failure*))
(format s "~&Test ~:@(~S~) failed~
......
Supports Markdown
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