[elpa] externals/hyperbole c77f4460cc 06/11: elisp-compiler-msg - Fix to handle two forms of test result messages

[ELPA Syncer]

branch: externals/hyperbole
commit c77f4460ccaa990382d6acaeb93282cfeb6bdb57
Author: bw <rsw@gnu.org>
Commit: bw <rsw@gnu.org>

    elisp-compiler-msg - Fix to handle two forms of test result messages
---
 ChangeLog   | 4 ++++
 hibtypes.el | 8 ++++----
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 6dc2e6ebbf..d018a070ba 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2024-07-07  Bob Weiner  <rsw@gnu.org>
 
+* hibtypes.el (elisp-compiler-msg): Fix to handle both of these cases:
+  skipped  13/15  hywiki-tests--no-face-property-for-no-wikipage (0.000121 sec)
+  SKIPPED  hywiki-tests--face-property-for-wikiword-with-wikipage
+
 * hywiki.el (hywiki-word-highlight-flag-changed): Ensure highlighting via
     'window-buffer-change-functions' is properly reset when toggling this flag.
     Also ensure highlighting/dehighlighting of HyWikiWords.  Remove separate
diff --git a/hibtypes.el b/hibtypes.el
index 58597e66ae..d660bd0945 100644
--- a/hibtypes.el
+++ b/hibtypes.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:    19-Sep-91 at 20:45:31
-;; Last-Mod:      6-Jul-24 at 01:43:04 by Bob Weiner
+;; Last-Mod:      7-Jul-24 at 23:38:46 by Bob Weiner
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -1180,13 +1180,13 @@ This works when activated anywhere within file line 
references."
             (save-excursion
               (and (re-search-backward "^[^ \t\n\r]" nil t)
                    (looking-at "While compiling\\|In \\([^ \n]+\\):$"))))
-    (let (src buffer-p label start-end
-         lbl-start-end)
+    (let ((case-fold-search t)
+         src buffer-p label start-end lbl-start-end)
       (or
        ;; Emacs Regression Test (ERT) output lines
        (when (or (save-excursion
                   (forward-line 0)
-                  (or (looking-at 
"\\s-+\\(passed\\|failed\\|skipped\\)\\s-+[0-9]+/[0-9]+\\s-+\\(\\S-+\\)\\s-+(")
+                  (or (looking-at 
"\\s-+\\(passed\\|failed\\|skipped\\)\\s-+\\(?:[0-9]+/[0-9]+\\s-+\\)\\(\\S-+\\)")
                       (looking-at 
"\\(Test\\)\\s-+\\(\\S-+\\)\\s-+\\(backtrace\\|condition\\):")))
                 ;; Handle symbols and pathnames in a backtrace from an ERT 
test exception
                 (save-match-data