Commit 33e27a6d authored by sds's avatar sds

do-entries: also print "unexpected successes"

parent 16812893
......@@ -385,6 +385,20 @@
~^, ~}~)."
(length new-failures)
new-failures)))
(when *expected-failures*
(let ((pending-table (make-hash-table :test #'equal)))
(dolist (ex pending)
(setf (gethash ex pending-table) t))
(let ((unexpected-successes
(loop :for ex :in *expected-failures*
:unless (gethash ex pending-table) :collect ex)))
(if unexpected-successes
(format t "~&~:D unexpected successes: ~
~:@(~{~<~% ~1:;~S~>~
~^, ~}~)."
(length unexpected-successes)
unexpected-successes)
(format t "~&No unexpected successes.")))))
))
(finish-output s)
(null pending))))
......
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