[elpa] externals/hyperbole 085cf5ae92 7/8: Merge branch 'master' into rsw

[ELPA Syncer]

branch: externals/hyperbole
commit 085cf5ae92ae5202d82fdf158312d5bf334d3b9e
Merge: 968c09d8a7 2cd6cbe153
Author: Robert Weiner <rsw@gnu.org>
Commit: GitHub <noreply@github.com>

    Merge branch 'master' into rsw
---
 ChangeLog               |  4 ++++
 test/kotl-mode-tests.el | 18 +++++++++++++++++-
 2 files changed, 21 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 6182e7c7e8..1fe7741a4a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -72,6 +72,10 @@
 
 * hui-mini.el (hui:menus): Rename DeleteIbutType to DeleteType.
 
+2023-05-11  Mats Lidell  <matsl@gnu.org>
+
+* test/kotl-mode-tests.el (kotl-mode-append-cell): Add kotl-mode test.
+
 2023-05-07  Bob Weiner  <rsw@gnu.org>
 
 * Makefile (manual): Add manual target to build manual without building other
diff --git a/test/kotl-mode-tests.el b/test/kotl-mode-tests.el
index 9bf021c92d..2f909d9efa 100644
--- a/test/kotl-mode-tests.el
+++ b/test/kotl-mode-tests.el
@@ -3,7 +3,7 @@
 ;; Author:       Mats Lidell <matsl@gnu.org>
 ;;
 ;; Orig-Date:    18-May-21 at 22:14:10
-;; Last-Mod:     15-Apr-23 at 00:25:21 by Mats Lidell
+;; Last-Mod:     23-Apr-23 at 23:42:34 by Mats Lidell
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -360,6 +360,22 @@
           (should (string= (kcell-view:idstamp) "02")))
       (delete-file kotl-file))))
 
+(ert-deftest kotl-mode-append-cell ()
+  "Kotl-mode append cell to cell."
+  (let ((kotl-file (make-temp-file "hypb" nil ".kotl")))
+    (unwind-protect
+        (progn
+          (find-file kotl-file)
+          (insert "1")
+          (let ((ids (kcell-view:idstamp)))
+            (kotl-mode:add-cell)
+            (kotl-mode:append-cell ids (kcell-view:idstamp))
+            (should (looking-at-p "1"))
+            (insert "2")
+            (kotl-mode:append-cell ids (kcell-view:idstamp))
+            (should (string= "21\n1" (substring-no-properties 
(kcell-view:contents))))))
+      (delete-file kotl-file))))
+
 (ert-deftest kotl-mode-previous-cell-from-invalid-position ()
   "When in an invalid position previous cell should move back to first valid 
cell."
     (let ((kotl-file (make-temp-file "hypb" nil ".kotl")))