From 57e5f5be50d2c54fd785553189ca6b2724d8b12f Mon Sep 17 00:00:00 2001 From: Mats Lidell Date: Sun, 30 Mar 2025 23:30:15 +0200 Subject: [PATCH] Remove hywiki-directory when test is done --- ChangeLog | 5 +++++ test/hywiki-tests.el | 13 ++++++++----- 2 files changed, 13 insertions(+), 5 deletions(-) diff --git a/ChangeLog b/ChangeLog index 99015dd4..04f8aaa6 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2025-03-30 Mats Lidell + +* test/hywiki-tests.el (hywiki-tests--add-find): Remove hywiki-directory + at end of test case. + 2025-03-23 Mats Lidell * 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 58373f17..7edf503c 100644 --- a/test/hywiki-tests.el +++ b/test/hywiki-tests.el @@ -879,11 +879,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'."