Add safer method to remove hywiki-folder

Author: matsl

ChangeLog

@@ -1,3 +1,16 @@
+2025-10-18  Mats Lidell  <[email protected]>
+
+* test/hywiki-tests.el (hywiki-tests--edit): Added cleanup of
+    hywiki-directory after test.
+    (hywiki-tests--only-file-in-dir-p)
+    (hywiki-tests--delete-hywiki-cache)
+    (hywiki-tests--delete-hywiki-dir-and-buffer): Add safer delete of
+    hywiki-directory so removal of a live hywiki-directory is less
+    likely. The dir must be empty and cache is only removed if it is the
+    last file remaining in the dir. Moved these into hywiki-tests since
+    they are only used with managing hywiki-directory in test cleanup and
+    use it through out the hywiki-directory tests.
+
 2025-10-13  Mats Lidell  <[email protected]>
 
 * hycontrol.el (hycontrol-frame-zoom, hycontrol-frame-zoom-reset): For

test/hy-test-helpers.el

@@ -3,7 +3,7 @@
 ;; Author:       Mats Lidell <[email protected]>
 ;;
 ;; Orig-Date:    30-Jan-21 at 12:00:00
-;; Last-Mod:      5-Oct-25 at 23:56:44 by Mats Lidell
+;; Last-Mod:     18-Oct-25 at 00:31:06 by Mats Lidell
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -110,16 +110,9 @@ Checks ACTYPE, ARGS, LOC, LBL-KEY and NAME."
 
 (defun hy-delete-dir-and-buffer (dir)
   "Delete DIR and buffer visiting directory."
-  (let ((buf (find-buffer-visiting dir))
-	(hywiki-cache (when (featurep 'hywiki)
-			(expand-file-name hywiki-cache-default-file
-					  dir))))
+  (let ((buf (find-buffer-visiting dir)))
     (when buf
       (kill-buffer buf))
-    (when (and hywiki-cache
-	       (file-readable-p hywiki-cache)
-	       (file-writable-p hywiki-cache))
-      (delete-file hywiki-cache))
     (delete-directory dir)))
 
 (defun hy-make-random-wikiword (&optional length word-length)