From 33e27a6d40faab4939ba3128f78d432b024ffa16 Mon Sep 17 00:00:00 2001 From: sds <sds@localhost> Date: Tue, 28 Jul 2009 15:29:29 +0000 Subject: [PATCH] do-entries: also print "unexpected successes" --- ansi-tests/rt.lsp | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/ansi-tests/rt.lsp b/ansi-tests/rt.lsp index 95a748e6..d658243e 100644 --- a/ansi-tests/rt.lsp +++ b/ansi-tests/rt.lsp @@ -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)))) -- GitLab