[elpa] externals/hyperbole 9c25ca128a 051/143: Add test for moving up from sub header

[ELPA Syncer]

branch: externals/hyperbole
commit 9c25ca128a94efb81e0a6ed24d123a0d78dc5bea
Author: Mats Lidell <mats.lidell@lidells.se>
Commit: Mats Lidell <mats.lidell@lidells.se>

    Add test for moving up from sub header
---
 ChangeLog            |  1 +
 test/hyrolo-tests.el | 24 +++++++++++++++++++++++-
 2 files changed, 24 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 0f02762c89..50eddf1d3d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -7,6 +7,7 @@
     (hyrolo-tests--outline-next-visible-header)
     (hyrolo-tests--tab-through-matches)
     (hyrolo-tests--outline-hide-show-heading)
+    (hyrolo-tests--outline-up-header)
     (hyrolo-tests--outline-next-visible-header-two-sections): Add test for
     working with hyrolo matches.
 
diff --git a/test/hyrolo-tests.el b/test/hyrolo-tests.el
index 7cb7f8bf33..5e714c5b1f 100644
--- a/test/hyrolo-tests.el
+++ b/test/hyrolo-tests.el
@@ -3,7 +3,7 @@
 ;; Author:       Mats Lidell <matsl@gnu.org>
 ;;
 ;; Orig-Date:    19-Jun-21 at 22:42:00
-;; Last-Mod:      1-Jan-24 at 19:29:48 by Mats Lidell
+;; Last-Mod:      1-Jan-24 at 20:56:49 by Mats Lidell
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -566,6 +566,28 @@ Example:
       (kill-buffer "*HyRolo*")
       (hy-delete-file-and-buffer org-file))))
 
+(ert-deftest hyrolo-tests--outline-up-header ()
+  "Verify movement from sub header to next header one level above."
+  (let* ((org-file (make-temp-file "hypb" nil ".org"
+                                   (hyrolo-tests--gen-outline "header" 2 
"body" 3)))
+         (hyrolo-file-list (list org-file)))
+    (unwind-protect
+        (progn
+          (hyrolo-grep "body")
+          (should (string= "*HyRolo*" (buffer-name)))
+
+          ;; Move to last header
+          (goto-char (point-max))
+          (forward-line -2)
+          (should (looking-at-p "^*** header 2.2.3$"))
+          (should (hact 'kbd-key "u"))
+          (should (looking-at-p "^** header 2.2$"))
+          (should (hact 'kbd-key "u"))
+          (should (looking-at-p "^* header 2$"))
+          (should-error (hact 'kbd-key "u")))
+      (kill-buffer "*HyRolo*")
+      (hy-delete-file-and-buffer org-file))))
+
 (ert-deftest hyrolo-tests--outline-next-visible-header-two-sections ()
   "Verify movement to next visible header with two sections."
   (let* ((org-file1 (make-temp-file "hypb" nil ".org"