branch: externals/hyperbole
commit ae6188cbd900813e0a6b1667718943a57852afaf
Author: Mats Lidell <mats.lid...@lidells.se>
Commit: GitHub <nore...@github.com>

    Verify hyrolo--expanded-file-list is updated when a file is added (#590)
    
    Test marked as expected-result failed since cache currently is not
    updated which seems like an error.
---
 ChangeLog            |  5 +++++
 test/hyrolo-tests.el | 20 +++++++++++++++++++-
 2 files changed, 24 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index b2cd7d8c67..ad80593f5f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2024-09-11  Mats Lidell  <ma...@gnu.org>
+
+* test/hyrolo-tests.el (hyrolo-tests--get-file-list): Verify
+    `hyrolo--expanded-file-list' is updated when a file is added.
+
 2024-09-10  Bob Weiner  <r...@gnu.org>
 
 * hywiki.el (hywiki-org-make-publish-project-alist): Add
diff --git a/test/hyrolo-tests.el b/test/hyrolo-tests.el
index 1d116b1d49..6190fdfc8f 100644
--- a/test/hyrolo-tests.el
+++ b/test/hyrolo-tests.el
@@ -3,7 +3,7 @@
 ;; Author:       Mats Lidell <ma...@gnu.org>
 ;;
 ;; Orig-Date:    19-Jun-21 at 22:42:00
-;; Last-Mod:      5-Aug-24 at 22:16:27 by Mats Lidell
+;; Last-Mod:     11-Sep-24 at 23:56:02 by Mats Lidell
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -470,6 +470,24 @@ Match a string in the second cell."
            ()))
       (hy-delete-file-and-buffer tmp-file))))
 
+(ert-deftest hyrolo-tests--get-file-list ()
+  "Verify `hyrolo-get-file-list` includes added files."
+  :expected-result :failed
+  (let* ((folder (make-temp-file "hypb" t))
+         (prefix (expand-file-name "hypb" folder))
+         (org-file (make-temp-file prefix nil ".org"))
+         (hyrolo-file-list (list folder)))
+    (unwind-protect
+        (progn
+          (should (= 1 (length (hyrolo-get-file-list))))
+          (let ((org2-file (make-temp-file prefix nil ".org")))
+            (unwind-protect
+                (should (= 2 (length (hyrolo-get-file-list))))
+              (hy-delete-file-and-buffer org2-file))))
+      (dolist (f (list org-file))
+        (hy-delete-file-and-buffer f))
+      (delete-directory folder))))
+
 ;; Outline movement tests
 (defun hyrolo-tests--level-number (section depth)
   "Generate the number for the SECTION at DEPTH.

Reply via email to