Changeset 15416

Timestamp:

10/14/20 07:07:27 (3 years ago)

Author:

Mark Evenson

Message:

ansi-tests: default reporting is for compiled tests

File:

• trunk/abcl/test/lisp/ansi/parse-ansi-errors.lisp (modified) (2 diffs)

trunk/abcl/test/lisp/ansi/parse-ansi-errors.lisp

@@ -146 +146 @@
                                                       failure-2)))))))
 
-(defun report (test version-1 version-2)
+(defun deprecated/report (test version-1 version-2)
+  (report version-1 version-2 :test test))
+  
+(defun report (version-1 version-2 &key (test 'compileit))
   "Report on the difference of test failures for TEST between VERSION-1 and VERSION-2.
 
@@ -190 +193 @@
         (format t "~&~A-~A:~&  ~A" id2 version-2 diff-2->1)))))
 
+(defun report-compiled (version-1 version-2)
+  (let ((compiled-reports (generate-report 'compileit version-1 version-2)))
+    (dolist (interpreted interpreted-reports)
+      (destructuring-bind ((id1 . id2) ((total-failures1 diff-1->2)
+                                        (total-failures2 diff-2->1)))
+          interpreted
+        (format t "~2&Interpreted~%")
+        (format t "~&~20<~A-~A~>~20<~A-~A~>" id1  version-1 id2 version-2)
+        (format t "~&~20<~A failures~>~20<~A failures~>" 
+                total-failures1 total-failures2)
+        (format t "~&~A-~A:~&  ~A" id1 version-1 diff-1->2)
+        (format t "~&~A-~A:~&  ~A" id2 version-2 diff-2->1)))
+    (dolist (compiled compiled-reports)
+      (destructuring-bind ((id1 . id2) ((total-failures1 diff-1->2)
+                                        (total-failures2 diff-2->1)))
+          compiled
+        (format t "~2&Compiled~%")
+        (format t "~&~20<~A-~A~>~20<~A-~A~>" id1  version-1 id2 version-2)
+        (format t "~&~20<~A failures~>~20<~A failures~>" 
+                total-failures1 total-failures2)
+        (format t "~&~A-~A:~&  ~A" id1 version-1 diff-1->2)
+        (format t "~&~A-~A:~&  ~A" id2 version-2 diff-2->1)))))
+