Skip to content
Snippets Groups Projects
Commit 33e27a6d authored by sds's avatar sds
Browse files

do-entries: also print "unexpected successes"

parent 16812893
No related branches found
No related tags found
No related merge requests found
...@@ -385,6 +385,20 @@ ...@@ -385,6 +385,20 @@
~^, ~}~)." ~^, ~}~)."
(length new-failures) (length new-failures)
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) (finish-output s)
(null pending)))) (null pending))))
......
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