Changeset 15416


Ignore:
Timestamp:
10/14/20 07:07:27 (2 years ago)
Author:
Mark Evenson
Message:

ansi-tests: default reporting is for compiled tests

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/test/lisp/ansi/parse-ansi-errors.lisp

    r15286 r15416  
    146146                                                      failure-2)))))))
    147147
    148 (defun report (test version-1 version-2)
     148(defun deprecated/report (test version-1 version-2)
     149  (report version-1 version-2 :test test))
     150 
     151(defun report (version-1 version-2 &key (test 'compileit))
    149152  "Report on the difference of test failures for TEST between VERSION-1 and VERSION-2.
    150153
     
    190193        (format t "~&~A-~A:~&  ~A" id2 version-2 diff-2->1)))))
    191194
     195(defun report-compiled (version-1 version-2)
     196  (let ((compiled-reports (generate-report 'compileit version-1 version-2)))
     197    (dolist (interpreted interpreted-reports)
     198      (destructuring-bind ((id1 . id2) ((total-failures1 diff-1->2)
     199                                        (total-failures2 diff-2->1)))
     200          interpreted
     201        (format t "~2&Interpreted~%")
     202        (format t "~&~20<~A-~A~>~20<~A-~A~>" id1  version-1 id2 version-2)
     203        (format t "~&~20<~A failures~>~20<~A failures~>"
     204                total-failures1 total-failures2)
     205        (format t "~&~A-~A:~&  ~A" id1 version-1 diff-1->2)
     206        (format t "~&~A-~A:~&  ~A" id2 version-2 diff-2->1)))
     207    (dolist (compiled compiled-reports)
     208      (destructuring-bind ((id1 . id2) ((total-failures1 diff-1->2)
     209                                        (total-failures2 diff-2->1)))
     210          compiled
     211        (format t "~2&Compiled~%")
     212        (format t "~&~20<~A-~A~>~20<~A-~A~>" id1  version-1 id2 version-2)
     213        (format t "~&~20<~A failures~>~20<~A failures~>"
     214                total-failures1 total-failures2)
     215        (format t "~&~A-~A:~&  ~A" id1 version-1 diff-1->2)
     216        (format t "~&~A-~A:~&  ~A" id2 version-2 diff-2->1)))))
     217
    192218     
    193219   
Note: See TracChangeset for help on using the changeset viewer.