fast-demo-display-kotl-starting-from-cell - Stop mod of kotl/EXAMPLE

Author: rswgnu

ChangeLog

@@ -1,5 +1,8 @@
 2026-06-16  Bob Weiner  <rsw@gnu.org>
 
+* test/demo-tests.el (fast-demo-display-kotl-starting-from-cell): Fix to
+    erase viespec modification to "kotl/EXAMPLE.kotl" which test was leaving.
+
 * hsys-activities.el: Improve documentation.
 
 * hui.el (hui:ebut-message, hui:ibut-message): Fix 'actype' setting so

test/demo-tests.el

@@ -3,7 +3,7 @@
 ;; Author:       Mats Lidell <matsl@gnu.org>
 ;;
 ;; Orig-Date:    30-Jan-21 at 12:00:00
-;; Last-Mod:     16-Mar-26 at 00:16:06 by Bob Weiner
+;; Last-Mod:     16-Jun-26 at 22:09:58 by Bob Weiner
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -807,12 +807,19 @@ enough files with matching mode loaded."
       (insert (format "<%skotl/EXAMPLE.kotl#3b10|c2en>"
 		      default-directory))
       (goto-char 5)
-      (action-key)
-      (setq buf (current-buffer))
-      (should (string-suffix-p "EXAMPLE.kotl" buffer-file-name))
-      (should (looking-at-p "Cell Transposition:"))
-      ;; Ensure visible cell length is cutoff at 2 lines
-      (should (= 2 (hypb:string-count-matches "\n" (kcell-view:contents)))))))
+      (unwind-protect
+          (progn (action-key)
+                 (setq buf (current-buffer))
+                 (should (string-suffix-p "EXAMPLE.kotl" buffer-file-name))
+                 (should (looking-at-p "Cell Transposition:"))
+                 ;; Ensure visible cell length is cutoff at 2 lines
+                 (should (= 2 (hypb:string-count-matches
+                               "\n" (kcell-view:contents)))))
+        ;; Restore kotl/EXAMPLE.kotl to its original viewspec and kill the
+        ;; buffer so it is unchanged.
+        (kvspec:activate "ben")
+        (set-buffer-modified-p nil)
+        (kill-buffer (current-buffer))))))
 
 (provide 'demo-tests)