Commits

adrian  committed e52348a

packages: Update build-report.el for test harness output

-------------------- ChangeLog entries follow: --------------------

xemacs-packages/build/ChangeLog addition:

2003-10-18 Adrian Aichner <adrian@xemacs.org>

* build-report.el: Update copyright years.
* build-report.el (build-report-keep-regexp): Update
build-report.el for test harness output.
* build-report.el (build-report-delete-regexp): Ditto.
* build-report.el (build-report-installation-data): Handle
builds of non-beta versions.
* build-report.el (build-report-version-file-data): Ditto.

  • Participants
  • Parent commits 4d15d61

Comments (0)

Files changed (2)

+2003-10-18  Adrian Aichner  <adrian@xemacs.org>
+
+	* build-report.el: Update copyright years.
+	* build-report.el (build-report-keep-regexp): Update
+	build-report.el for test harness output.
+	* build-report.el (build-report-delete-regexp): Ditto.
+	* build-report.el (build-report-installation-data): Handle
+	builds of non-beta versions.
+	* build-report.el (build-report-version-file-data): Ditto.
+
 2003-10-13  Norbert Koch  <viteno@xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.12 released.

File build-report.el

 ;;; build-report.el --- Automatically formatted build reports for XEmacs
 
-;; Copyright (C) 1997-2002 Adrian Aichner
+;; Copyright (C) 1997-2003 Adrian Aichner
 
 ;; Author: Adrian Aichner <adrian@xemacs.org>
 ;; Date: $Date$
    "\\s-+tests\\s-+"
    "^[A-Z] [^ ]+$"
    "^Wrong number of arguments:"
-   "^  \\*\\* ")
+   "^  \\*\\* "
+   "^\\(FAIL\\|SKIP\\):")
   "*Regexp of make process output lines to keep in the report."
   :type '(repeat
           :custom-show t
 (defcustom build-report-delete-regexp
   (list
    "confl.*with.*auto-inlining"
-   "^Formatting:")
+   "^Formatting:"
+   "^\\s-*0 .*\\(failure\\|error\\)s?"
+   "^PASS:"
+   "(100%) tests successful")
   "*Regexp of make process output lines to delete from the report."
   :type '(repeat
           :custom-show t
           (goto-char (match-end 0)))
          ((looking-at "\n")
           (goto-char (match-end 0)))))
-      (values major minor beta codename extraname configuration srcdir))))
+      (values major minor (or beta "") codename extraname configuration srcdir))))
 
 (defun build-report-version-file-data (&optional file)
   "Return a list of XEmacs version information containing
           (goto-char (match-end 0)))
          ((looking-at "\n")
           (goto-char (match-end 0)))))
-      (values major minor beta codename extraname))))
+      (values major minor (or beta "") codename extraname))))
 
 ;;; build-report.el ends here