From 450aa643f2ddd63666c5c76eeddfcf56e746f674 Mon Sep 17 00:00:00 2001
From: Mats Lidell <matsl@gnu.org>
Date: Sat, 14 Nov 2026 22:55:05 +0100
Subject: [PATCH] Fix coverage for kotl files

Files in subfolders, i.e. kotl, were not instrumented. Use an absolute
file name to point testcover-start to the right buffer.

Added a local key binding for testcover-next-mark.

* test/hy-test-coverage.el (hy-test-coverage-file): Use absolute
filename. Add keybinding for testcover-next-mark.
---
 ChangeLog                |  5 +++++
 test/hy-test-coverage.el | 27 ++++++++++++++-------------
 2 files changed, 19 insertions(+), 13 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index cebf6540..2684f1e1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2026-11-14  Mats Lidell  <matsl@gnu.org>
+
+* test/hy-test-coverage.el (hy-test-coverage-file): Use absolute
+    filename. Add keybinding for testcover-next-mark.
+
 2026-11-06  Mats Lidell  <matsl@gnu.org>
 
 * test/kotl-mode-tests.el (kotl-mode--insert-initial-tab-in-cell-row): New
diff --git a/test/hy-test-coverage.el b/test/hy-test-coverage.el
index 9ed2f406..e544c973 100644
--- a/test/hy-test-coverage.el
+++ b/test/hy-test-coverage.el
@@ -3,7 +3,7 @@
 ;; Author:       Mats Lidell
 ;;
 ;; Orig-Date:    21-Mar-24 at 13:22:27
-;; Last-Mod:      7-Apr-24 at 10:43:42 by Bob Weiner
+;; Last-Mod:     14-Nov-26 at 23:06:15 by Mats Lidell
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -40,18 +40,19 @@ With no TESTSPEC all tests are run."
   (interactive "fFilename: \nsTestspec: ")
   (unless (file-exists-p filename)
     (error "(hy-test-coverage-file): File %s does not exist" filename))
-  (unless testspec
-    (setq testspec t))
-  (let ((buff (find-file filename)))
-    (testcover-unmark-all buff)
-    (hypb-ert-require-libraries)
-    (testcover-start filename)
-    (bury-buffer)
-    (ert testspec)
-    (testcover-mark-all buff)
-    (message "Number of splotches %d." (hy-test--count-coverage))
-    (switch-to-buffer buff)
-    (point-min)))
+  (let ((absfn (expand-file-name filename)))
+    (unless testspec
+      (setq testspec t))
+    (let ((buff (find-file absfn)))
+      (testcover-unmark-all buff)
+      (hypb-ert-require-libraries)
+      (testcover-start absfn)
+      (bury-buffer)
+      (ert testspec)
+      (testcover-mark-all buff)
+      (message "Number of splotches %d." (hy-test--count-coverage))
+      (switch-to-buffer buff)
+      (local-set-key "\M-gn" #'testcover-next-mark))))
 
 (provide 'hy-test-coverage)
 ;;; hy-test-coverage.el ends here