[elpa] externals/hyperbole 72d93e55c5 3/3: Merge Mats updates in branch 'master' of hyperbole

[ELPA Syncer]

branch: externals/hyperbole
commit 72d93e55c56b07df3161fac99a1ef1929e656789
Merge: bc0c4f74af dc1e20b389
Author: Robert Weiner <rsw@gnu.org>
Commit: Robert Weiner <rsw@gnu.org>

    Merge Mats updates in branch 'master' of hyperbole
---
 ChangeLog               |  7 +++++++
 test/kotl-mode-tests.el | 18 ++++++++++++++++++
 2 files changed, 25 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index bf7b847d10..1fe1d9c84e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,4 @@
+<<<<<<< HEAD
 2022-01-22  Bob Weiner  <rsw@gnu.org>
 
 * hycontrol.el (hycontrol-windows-grid-by-file-pattern): Add this command that 
creates
@@ -15,6 +16,12 @@
   HY-NEWS: Add Koutlines 0 cell attribute handling description.
   man/hyperbole.texi (Cell Attributes): Document above change.
 
+2022-01-22  Mats Lidell  <matsl@gnu.org>
+
+* test/kotl-mode-tests.el
+    (kotl-mode-copy-kotl-file-updates-root-id-attributes): Verify that
+    root cell attribute for file name is updated.
+
 2022-01-21  Bob Weiner  <rsw@gnu.org>
 
 * kotl/kotl-mode.el (kotl-mode:cell-attributes): Assume parent has set stdout
diff --git a/test/kotl-mode-tests.el b/test/kotl-mode-tests.el
index d1d71d8c5f..2f3c2a45bc 100644
--- a/test/kotl-mode-tests.el
+++ b/test/kotl-mode-tests.el
@@ -463,5 +463,23 @@
           (should (looking-at-p "first")))
       (delete-file kotl-file))))
 
+(ert-deftest kotl-mode-copy-kotl-file-updates-root-id-attributes ()
+  "Verify root id-attribute is updated when kotl mode is copied."
+  (let ((kotl-file (make-temp-file "hypb" nil ".kotl"))
+        (new-name (concat (make-temp-name (concat temporary-file-directory 
"hypb")) ".kotl")))
+    (unwind-protect
+        (progn
+          (find-file kotl-file)
+          (insert "a cell")
+          (save-buffer)
+          (should (string= (kcell:get-attr (kcell-view:cell-from-ref 0) 'file) 
kotl-file))
+
+          (copy-file kotl-file new-name)
+          (find-file new-name)
+          (should (string= (kcell:get-attr (kcell-view:cell-from-ref 0) 'file) 
new-name)))
+      (progn
+        (delete-file kotl-file)
+        (delete-file new-name)))))
+
 (provide 'kotl-mode-tests)
 ;;; kotl-mode-tests.el ends here