[elpa] externals/hyperbole 8663749cd1: Add test for hide and unhide cell (#173)

[ELPA Syncer]

branch: externals/hyperbole
commit 8663749cd19d127678d9eb3e810f25d3770ce960
Author: Mats Lidell <mats.lidell@lidells.se>
Commit: GitHub <noreply@github.com>

    Add test for hide and unhide cell (#173)
    
    * Add test for hide and unhide cell, remove copyright
---
 ChangeLog               |  4 ++++
 test/kotl-mode-tests.el | 23 +++++++++++++++++++----
 2 files changed, 23 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 48c83d199c..347fa24fe8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2022-03-01  Mats Lidell  <matsl@gnu.org>
+
+* test/kotl-mode-tests.el (kotl-mode-hide-cell): Add test case.
+
 2022-02-27  Mats Lidell  <matsl@gnu.org>
 
 * Makefile (web-site): Add target for preparing web site sources
diff --git a/test/kotl-mode-tests.el b/test/kotl-mode-tests.el
index 5752a06100..a32183f3dc 100644
--- a/test/kotl-mode-tests.el
+++ b/test/kotl-mode-tests.el
@@ -1,13 +1,11 @@
 ;;; kotl-mode-tests.el --- kotl-mode-el tests            -*- lexical-binding: 
t; -*-
 
-;; Copyright (C) 2021  Mats Lidell
-
 ;; Author:       Mats Lidell <matsl@gnu.org>
 ;;
 ;; Orig-Date:    18-May-21 at 22:14:10
-;; Last-Mod:      6-Feb-22 at 00:57:24 by Bob Weiner
+;; Last-Mod:      1-Mar-22 at 23:16:05 by Mats Lidell
 ;;
-;; Copyright (C) 2021  Free Software Foundation, Inc.
+;; Copyright (C) 2021-2022  Free Software Foundation, Inc.
 ;; See the "HY-COPY" file for license information.
 ;;
 ;; This file is part of GNU Hyperbole.
@@ -480,5 +478,22 @@
         (delete-file kotl-file)
         (delete-file new-name)))))
 
+(ert-deftest kotl-mode-hide-cell ()
+  "Verify cell is hidden and unhidden on `action-key' press."
+  (let ((kotl-file (make-temp-file "hypb" nil ".kotl")))
+    (unwind-protect
+        (progn
+          (find-file kotl-file)
+          (insert "1")
+          (kotl-mode:newline 1)
+          (insert "2")
+          (kotl-mode:beginning-of-buffer)
+          (action-key)                  ; Hide cell
+          (forward-char 1)
+          (should (outline-invisible-p))
+          (action-key)                  ; Unhide cell
+          (should-not (outline-invisible-p)))
+      (delete-file kotl-file))))
+
 (provide 'kotl-mode-tests)
 ;;; kotl-mode-tests.el ends here