branch: externals/hyperbole
commit 30359a2e54f8da4f82c9505c095d96f633e6497d
Merge: 641868cf6f c3ee94418a
Author: bw <r...@gnu.org>
Commit: bw <r...@gnu.org>
Merge branch 'rsw' of hyperbole into rsw
---
ChangeLog | 5 +++++
test/hywiki-tests.el | 13 ++++++++-----
2 files changed, 13 insertions(+), 5 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 6d015d471d..50433ea8b1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -42,6 +42,11 @@
(hywiki-word-highlighted-at-p): Add to return any highlighted wikiword ref
at point.
+2025-03-30 Mats Lidell <ma...@gnu.org>
+
+* test/hywiki-tests.el (hywiki-tests--add-find): Remove hywiki-directory
+ at end of test case.
+
2025-03-23 Mats Lidell <ma...@gnu.org>
* test/hywiki-tests.el (hywiki-tests--run-test-case): Run DSL for testing
diff --git a/test/hywiki-tests.el b/test/hywiki-tests.el
index 74d017c66f..7fd9d47b3a 100644
--- a/test/hywiki-tests.el
+++ b/test/hywiki-tests.el
@@ -888,11 +888,14 @@ Note special meaning of `hywiki-allow-plurals-flag'."
(ert-deftest hywiki-tests--add-find ()
"Verify `hywiki-add-find'."
- (let ((hywiki-directory (make-temp-file "hywiki" t))
- (wikiword "WikiWord")
- (referent '(find . hywiki-word-grep)))
- (hywiki-add-find wikiword)
- (should (equal referent (hywiki-get-referent wikiword)))))
+ (let* ((hywiki-directory (make-temp-file "hywiki" t))
+ (wikiword "WikiWord")
+ (referent '(find . hywiki-word-grep)))
+ (unwind-protect
+ (progn
+ (hywiki-add-find wikiword)
+ (should (equal referent (hywiki-get-referent wikiword))))
+ (hy-delete-dir-and-buffer hywiki-directory))))
(ert-deftest hywiki-tests--add-global-button ()
"Verify `hywiki-add-global-button'."
