diff --git a/ansi-tests/rt.lsp b/ansi-tests/rt.lsp index 95a748e6286a49fb8737ffe6bde58e529fbec405..d658243e660c84f2f20b324e31a0c9ee675fc67d 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))))