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