branch: externals/hyperbole
commit 8d9b7f0dde1dff8455f05e99bcdd9767d564ad22
Author: bw <r...@gnu.org>
Commit: bw <r...@gnu.org>
hyrolo-tests.el - "*HyRolo*" literal to `hyrolo-display-buffer' var
---
test/hyrolo-tests.el | 30 +++++++++++++++---------------
1 file changed, 15 insertions(+), 15 deletions(-)
diff --git a/test/hyrolo-tests.el b/test/hyrolo-tests.el
index 786a60012f..e63b29b63d 100644
--- a/test/hyrolo-tests.el
+++ b/test/hyrolo-tests.el
@@ -3,7 +3,7 @@
;; Author: Mats Lidell <ma...@gnu.org>
;;
;; Orig-Date: 19-Jun-21 at 22:42:00
-;; Last-Mod: 28-Dec-23 at 12:48:26 by Mats Lidell
+;; Last-Mod: 28-Dec-23 at 22:16:53 by Bob Weiner
;;
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
@@ -294,13 +294,13 @@ and {b} the previous same level cell."
(unwind-protect
(progn
(hyrolo-fgrep "string")
- (should (string= (buffer-name) "*HyRolo*"))
+ (should (string= (buffer-name) hyrolo-display-buffer))
(should (= (how-many "@loc>") 4))
(dolist (f (list org-file kotl-file md-file outl-file))
(should (= (how-many (concat "@loc> \"" f "\"")) 1))))
(dolist (f (list org-file kotl-file md-file outl-file))
(hy-delete-file-and-buffer f))
- (kill-buffer "*HyRolo*")
+ (kill-buffer hyrolo-display-buffer)
(delete-directory temporary-file-directory))))
(ert-deftest hyrolo-fgrep-and-goto-next-visible-org-heading ()
@@ -311,7 +311,7 @@ and {b} the previous same level cell."
(unwind-protect
(progn
(hyrolo-fgrep "string")
- (should (string= (buffer-name) "*HyRolo*"))
+ (should (string= (buffer-name) hyrolo-display-buffer))
(should (= (how-many "@loc>") 1))
(should (looking-at-p "==="))
(hyrolo-next-visible-heading 1)
@@ -322,7 +322,7 @@ and {b} the previous same level cell."
(should (equal (current-buffer) (find-buffer-visiting org-file)))
(should (looking-at-p "* heading")))
(hy-delete-file-and-buffer org-file)
- (kill-buffer "*HyRolo*")
+ (kill-buffer hyrolo-display-buffer)
(delete-directory temporary-file-directory))))
(ert-deftest hyrolo-fgrep-and-goto-next-visible-kotl-heading ()
@@ -339,7 +339,7 @@ and {b} the previous same level cell."
(kotl-mode:newline 1)
(insert "more")
(hyrolo-fgrep "string")
- (should (string= (buffer-name) "*HyRolo*"))
+ (should (string= (buffer-name) hyrolo-display-buffer))
(should (= (how-many "@loc>") 1))
(should (looking-at-p "==="))
(hyrolo-next-visible-heading 1)
@@ -348,7 +348,7 @@ and {b} the previous same level cell."
(should (equal (current-buffer) (find-buffer-visiting kotl-file)))
(should (looking-at-p "heading")))
(hy-delete-file-and-buffer kotl-file)
- (kill-buffer "*HyRolo*")
+ (kill-buffer hyrolo-display-buffer)
(delete-directory temporary-file-directory))))
(ert-deftest hyrolo-fgrep-and-goto-next-visible-outl-heading ()
@@ -359,7 +359,7 @@ and {b} the previous same level cell."
(unwind-protect
(progn
(hyrolo-fgrep "string")
- (should (string= (buffer-name) "*HyRolo*"))
+ (should (string= (buffer-name) hyrolo-display-buffer))
(should (= (how-many "@loc>") 1))
(should (looking-at-p "==="))
(hyrolo-next-visible-heading 1)
@@ -368,7 +368,7 @@ and {b} the previous same level cell."
(should (equal (current-buffer) (find-buffer-visiting outl-file)))
(should (looking-at-p "* heading")))
(hy-delete-file-and-buffer outl-file)
- (kill-buffer "*HyRolo*")
+ (kill-buffer hyrolo-display-buffer)
(delete-directory temporary-file-directory))))
(ert-deftest hyrolo-fgrep-and-goto-next-visible-md-heading ()
@@ -379,7 +379,7 @@ and {b} the previous same level cell."
(unwind-protect
(progn
(hyrolo-fgrep "string")
- (should (string= (buffer-name) "*HyRolo*"))
+ (should (string= (buffer-name) hyrolo-display-buffer))
(should (= (how-many "@loc>") 1))
(should (looking-at-p "==="))
(hyrolo-next-visible-heading 1)
@@ -388,7 +388,7 @@ and {b} the previous same level cell."
(should (equal (current-buffer) (find-buffer-visiting md-file)))
(should (looking-at-p "# heading")))
(hy-delete-file-and-buffer md-file)
- (kill-buffer "*HyRolo*")
+ (kill-buffer hyrolo-display-buffer)
(delete-directory temporary-file-directory))))
(ert-deftest hyrolo-fgrep-and-goto-next-visible-kotl-heading-level-2 ()
@@ -408,7 +408,7 @@ Match a string in a level 2 child cell."
(kotl-mode:newline 1)
(insert "more")
(hyrolo-fgrep "string")
- (should (string= (buffer-name) "*HyRolo*"))
+ (should (string= (buffer-name) hyrolo-display-buffer))
(should (= (how-many "@loc>") 1))
(should (looking-at-p "==="))
(hyrolo-next-visible-heading 1)
@@ -417,7 +417,7 @@ Match a string in a level 2 child cell."
(should (equal (current-buffer) (find-buffer-visiting kotl-file)))
(should (looking-at-p "heading")))
(hy-delete-file-and-buffer kotl-file)
- (kill-buffer "*HyRolo*")
+ (kill-buffer hyrolo-display-buffer)
(delete-directory temporary-file-directory))))
(ert-deftest hyrolo-fgrep-and-goto-next-visible-kotl-heading-cell-2 ()
@@ -437,7 +437,7 @@ Match a string in the second cell."
(kotl-mode:newline 1)
(insert "more")
(hyrolo-fgrep "string")
- (should (string= (buffer-name) "*HyRolo*"))
+ (should (string= (buffer-name) hyrolo-display-buffer))
(should (= (how-many "@loc>") 1))
(should (looking-at-p "==="))
(hyrolo-next-visible-heading 1)
@@ -446,7 +446,7 @@ Match a string in the second cell."
(should (equal (current-buffer) (find-buffer-visiting kotl-file)))
(should (looking-at-p "heading")))
(hy-delete-file-and-buffer kotl-file)
- (kill-buffer "*HyRolo*")
+ (kill-buffer hyrolo-display-buffer)
(delete-directory temporary-file-directory))))
(provide 'hyrolo-tests)
