[elpa] externals/hyperbole 1f45b45af9 047/143: Add hyrolo-get-file-list tests

[ELPA Syncer]

branch: externals/hyperbole
commit 1f45b45af97ae70131cf79113558d3803ecf56c6
Author: Mats Lidell <mats.lidell@lidells.se>
Commit: Mats Lidell <mats.lidell@lidells.se>

    Add hyrolo-get-file-list tests
---
 ChangeLog            |  5 +++++
 test/hyrolo-tests.el | 19 ++++++++++++++++++-
 2 files changed, 23 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 650a09db5b..4969506ca4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2023-01-02  Mats Lidell  <matsl@gnu.org>
+
+* test/hyrolo-tests.el (hyrolo-tests--get-file-list-change)
+    (hyrolo-tests--get-file-list-wrong-suffice): Add hyrolo tests.
+
 2024-01-02  Mats Lidell  <matsl@gnu.org>
 
 * test/hypb-ert-tests.el (hypb-ert-tests--def-at-p)
diff --git a/test/hyrolo-tests.el b/test/hyrolo-tests.el
index 68dac7f64f..06b18d9e55 100644
--- a/test/hyrolo-tests.el
+++ b/test/hyrolo-tests.el
@@ -3,7 +3,7 @@
 ;; Author:       Mats Lidell <matsl@gnu.org>
 ;;
 ;; Orig-Date:    19-Jun-21 at 22:42:00
-;; Last-Mod:     30-Dec-23 at 23:22:54 by Bob Weiner
+;; Last-Mod:     31-Dec-23 at 16:10:00 by Mats Lidell
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -24,6 +24,7 @@
 (require 'hyrolo-demo)
 (require 'hy-test-helpers "test/hy-test-helpers")
 (require 'hib-kbd)
+(require 'kotl-mode)
 (require 'with-simulated-input)
 
 (declare-function hy-test-helpers:consume-input-events "hy-test-helpers")
@@ -449,5 +450,21 @@ Match a string in the second cell."
       (kill-buffer hyrolo-display-buffer)
       (delete-directory temporary-file-directory))))
 
+(ert-deftest hyrolo-tests--get-file-list-change ()
+  "Verify a change to hyrolo-file-list is noticed by hyrolo-get-file-list."
+  (let* ((tmp-file (make-temp-file "hypb" nil ".org"))
+         (hyrolo-file-list (list tmp-file)))
+    (unwind-protect
+        (let ((hl (hyrolo-get-file-list)))
+          (should (= 1 (length hl)))
+          (should (string= (car hl) tmp-file)))
+      (hy-delete-file-and-buffer tmp-file))))
+
+(ert-deftest hyrolo-tests--get-file-list-wrong-suffice ()
+  "Verify files need to have the proper suffix in hyrolo-file-list."
+  (should-error
+   (let ((hyrolo-file-list (list "file-no-proper-suffix")))
+     ())))
+
 (provide 'hyrolo-tests)
 ;;; hyrolo-tests.el ends here