Verify searching all file types with matches gives @loc> headers

Author: matsl

ChangeLog

@@ -1,3 +1,8 @@
+2023-11-25  Mats Lidell  <[email protected]>
+
+* test/hyrolo-tests.el (hyrolo-fgrep-find-all-types-of-files): Test that
+    all files types are searched, matches and give proper @loc>-header.
+
 2023-11-21  Bob Weiner  <[email protected]>
 
 * hui-select.el (hui-select-initialize): Fix to set 'syntax-table-sym'

test/hyrolo-tests.el

@@ -3,7 +3,7 @@
 ;; Author:       Mats Lidell <[email protected]>
 ;;
 ;; Orig-Date:    19-Jun-21 at 22:42:00
-;; Last-Mod:     17-Nov-23 at 10:48:26 by Bob Weiner
+;; Last-Mod:     25-Nov-23 at 00:16:26 by Mats Lidell
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -270,5 +270,24 @@ and {b} the previous same level cell."
                (should (string= (buffer-string) sorted-hyrolo-file)))
       (hy-delete-file-and-buffer hyrolo-file))))
 
+(ert-deftest hyrolo-fgrep-find-all-types-of-files ()
+  "Verify that all types of files are found in an fgrep search."
+  (let* ((temporary-file-directory (make-temp-file "hypb" t))
+         (org-file (make-temp-file "hypb" nil ".org" "string\n"))
+         (kotl-file (make-temp-file "hypb" nil ".kotl" "string"))
+         (md-file (make-temp-file "hypb" nil ".md" "string\n"))
+         (outl-file (make-temp-file "hypb" nil ".otl" "string\n"))
+         (hyrolo-file-list (list temporary-file-directory)))
+    (unwind-protect
+        (progn
+          (hyrolo-fgrep "string")
+          (with-current-buffer "*HyRolo*"
+            (should (= (how-many "@loc>") 4))
+            (dolist (f (list org-file kotl-file md-file outl-file))
+              (should (= (how-many (concat "@loc> \"" f "\"")) 1)))))
+      (dolist (f (list org-file kotl-file md-file outl-file))
+        (hy-delete-file-and-buffer f))
+      (delete-directory temporary-file-directory))))
+
 (provide 'hyrolo-tests)
 ;;; hyrolo-tests.el ends here