[elpa] externals/hyperbole 8ab9a3b 1/2: Fix demo-org-hide-header-test with save-excursion

[ELPA Syncer]

branch: externals/hyperbole
commit 8ab9a3b7bb04647b5a6bee8227fd2b5b50348988
Author: Bob Weiner <rsw@gnu.org>
Commit: Bob Weiner <rsw@gnu.org>

    Fix demo-org-hide-header-test with save-excursion
---
 ChangeLog          |  4 ++++
 test/demo-tests.el | 10 ++++------
 2 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index a20c653..a8398c3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2021-05-09  Bob Weiner  <rsw@gnu.org>
 
+* test/demo-tests.el (demo-org-hide-header-test): Fix, add
+    save-excursion around action-key call since somehow the
+    ert test runner changes the current buffer to its stats
+    buffer after this call, then the final should test fails.
 * hsys-org.el (hsys-org-radio-target-at-p,
                hsys-org-radio-target-link-at-p): Fix to return
     def or target region.
diff --git a/test/demo-tests.el b/test/demo-tests.el
index 475fa6c..eb4d671 100644
--- a/test/demo-tests.el
+++ b/test/demo-tests.el
@@ -239,18 +239,16 @@
 
 ;; org
 (ert-deftest demo-org-hide-header-test ()
-  "Hide org mode header.
-Bug: Should work with action-key but does not.  Works with org mode's hide 
function."
-  :expected-result :failed
+  "Hide org mode header."
   (with-temp-buffer
     (org-mode)
     (insert "* 1\n** 2\n*** 3\n")
     (goto-char 1)
     (should (not (org-check-for-hidden 'headlines)))
-    (action-key)
+    (save-excursion
+      (action-key))
     ;;; (org-hide-entry)
-    (should (org-check-for-hidden 'headlines))
-    ))
+    (should (org-check-for-hidden 'headlines))))
 
 ;; Manifest
 (ert-deftest demo-manifest-test ()