Commit 0a7fe22d authored by Raymond Toy's avatar Raymond Toy
Browse files

Clear unexpected failures and successes

Need to clear `*unexpected-failures*` and `*unexpected-successes* when
running the test so that these variables contain the correct values.
If we don't, then subsequent calls to run tests may indicate no
unexpected results but these contain non-null values because a
previous run set them.
parent cf091f95
...@@ -343,7 +343,9 @@ ...@@ -343,7 +343,9 @@
((:catch-errors *catch-errors*) *catch-errors*) ((:catch-errors *catch-errors*) *catch-errors*)
((:compile *compile-tests*) *compile-tests*)) ((:compile *compile-tests*) *compile-tests*))
(setq *failed-tests* nil (setq *failed-tests* nil
*passed-tests* nil) *passed-tests* nil
*unexpected-failures* nil
*unexpected-successes nil)
(dolist (entry (cdr *entries*)) (dolist (entry (cdr *entries*))
(setf (pend entry) t)) (setf (pend entry) t))
(if (streamp out) (if (streamp out)
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