branch: externals/hyperbole
commit 13e6bf8cb2aa60c9de2f53c18e31681649f0ea09
Author: Mats Lidell <mats.lid...@lidells.se>
Commit: Mats Lidell <mats.lid...@lidells.se>
Small updates to improve running all tests
With these changes running all tests in docker seems to be fairly
stable over all supported Emacs versions. There are still issues
running all tests in native environment that needs to be addressed.
---
ChangeLog | 15 +++++++++++++++
hib-debbugs.el | 3 ++-
test/hsys-org-tests.el | 5 +++--
test/hy-test-helpers.el | 4 ++--
test/hywiki-tests.el | 4 ++--
5 files changed, 24 insertions(+), 7 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 5f8a62fb40..cd6f5b478c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,18 @@
+2025-09-15 Mats Lidell <ma...@gnu.org>
+
+* hib-debbugs.el (debbugs-gnu-rescan): Declare to silence byte compile
+ warnings.
+
+* test/hywiki-tests.el
+ (hywiki-tests--save-referent-org-roam-node-use-menu): Remove extra RET
+ not needed due to mocking of org read functions.
+
+* test/hy-test-helpers.el (hy-test-helpers:consume-input-events): Only
+ exit an ongoing recursive-edit.
+
+* test/hsys-org-tests.el (hsys-org--org-outside-org-mode-tmp-buffer): Mock
+ org-open-at-point-global to avoid opening the link target.
+
2025-09-14 Bob Weiner <r...@gnu.org>
* hywiki.el (hywiki-create-page-and-display): Replace with updated
diff --git a/hib-debbugs.el b/hib-debbugs.el
index 0724f9d969..ed8d865222 100644
--- a/hib-debbugs.el
+++ b/hib-debbugs.el
@@ -3,7 +3,7 @@
;; Author: Bob Weiner
;;
;; Orig-Date: 21-Jun-16 at 14:24:53
-;; Last-Mod: 14-Sep-25 at 12:33:09 by Bob Weiner
+;; Last-Mod: 15-Sep-25 at 18:51:51 by Mats Lidell
;;
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
@@ -80,6 +80,7 @@
(declare-function debbugs-get-status "ext:debbugs-gnu")
(declare-function debbugs-gnu-bugs "ext:debbugs-gnu")
(declare-function debbugs-gnu-current-id "ext:debbugs-gnu")
+(declare-function debbugs-gnu-rescan "ext:debbugs-gnu")
(declare-function debbugs-gnu-select-report "ext:debbugs-gnu")
(declare-function debbugs-gnu-show-reports "ext:debbugs-gnu")
(defvar debbugs-gnu-current-query)
diff --git a/test/hsys-org-tests.el b/test/hsys-org-tests.el
index 61c6f8bbcd..db5e7dac95 100644
--- a/test/hsys-org-tests.el
+++ b/test/hsys-org-tests.el
@@ -3,7 +3,7 @@
;; Author: Mats Lidell <ma...@gnu.org>
;;
;; Orig-Date: 23-Apr-21 at 20:55:00
-;; Last-Mod: 31-Jul-25 at 17:32:10 by Mats Lidell
+;; Last-Mod: 15-Sep-25 at 20:07:53 by Mats Lidell
;;
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
@@ -158,7 +158,8 @@ This is independent of the setting of
`hsys-org-enable-smart-keys'."
(insert "[[file:/tmp/abc][file]]\n")
(goto-char 6)
(should (equal hsys-org-enable-smart-keys v)) ; Traceability
- (should (action-key))
+ (mocklet (((org-open-at-point-global) => t))
+ (should (action-key)))
(should (hattr:ibtype-is-p 'org-link-outside-org-mode)))))))
(ert-deftest hsys-org--org-outside-org-mode-tmp-file ()
diff --git a/test/hy-test-helpers.el b/test/hy-test-helpers.el
index f482d14917..4b390ad5f9 100644
--- a/test/hy-test-helpers.el
+++ b/test/hy-test-helpers.el
@@ -3,7 +3,7 @@
;; Author: Mats Lidell <ma...@gnu.org>
;;
;; Orig-Date: 30-Jan-21 at 12:00:00
-;; Last-Mod: 17-Aug-25 at 10:12:52 by Bob Weiner
+;; Last-Mod: 15-Sep-25 at 17:39:59 by Mats Lidell
;;
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
@@ -25,7 +25,7 @@
(defun hy-test-helpers:consume-input-events ()
"Use `recursive-edit' to consume the events kbd-key generates."
- (run-with-timer 0.1 nil (lambda () (exit-recursive-edit)))
+ (run-with-timer 0.1 nil (lambda () (if (> (recursion-depth) 0)
(exit-recursive-edit))))
(recursive-edit))
(defun hy-test-helpers:ensure-link-possible-type (type)
diff --git a/test/hywiki-tests.el b/test/hywiki-tests.el
index 0a46f67790..28fe481055 100644
--- a/test/hywiki-tests.el
+++ b/test/hywiki-tests.el
@@ -1478,8 +1478,8 @@ named WikiReferent with a non-page referent type."
(mocklet (((hypb:require-package 'org-roam) => t)
((org-roam-node-read) => "node")
((org-roam-node-title "node") => "node-title")
- (hywiki-display-org-roam-node => t))
- (should (hact 'kbd-key "C-u C-h hhc WikiReferent RET r RET"))
+ ((hywiki-display-org-roam-node "WikiReferent" "node-title") => t))
+ (should (hact 'kbd-key "C-u C-h hhc WikiReferent RET r"))
(hy-test-helpers:consume-input-events))))
(ert-deftest hywiki-tests--delete-parenthesised-char ()
