[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 26decec006: test-org-element-at-point: Add tests fo
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org 26decec006: test-org-element-at-point: Add tests for point outside contents |
Date: |
Mon, 24 Jan 2022 09:57:45 -0500 (EST) |
branch: externals/org
commit 26decec006e76903d82512b394a85d03803f59aa
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>
test-org-element-at-point: Add tests for point outside contents
---
testing/lisp/test-org-element.el | 19 ++++++++++++++++++-
1 file changed, 18 insertions(+), 1 deletion(-)
diff --git a/testing/lisp/test-org-element.el b/testing/lisp/test-org-element.el
index 6d7376a960..c78ea7c54a 100644
--- a/testing/lisp/test-org-element.el
+++ b/testing/lisp/test-org-element.el
@@ -3759,7 +3759,24 @@ Text
(should
(org-test-with-temp-text "* H\n"
(forward-line)
- (or (org-element-at-point) t))))
+ (or (org-element-at-point) t)))
+ ;; Return greater element when ouside contents.
+ (should
+ (eq 'drawer
+ (org-test-with-temp-text
+ ":DRAWER:\ntest\n:EN<point>D:\n"
+ (org-element-type (org-element-at-point)))))
+ (should
+ (eq 'drawer
+ (org-test-with-temp-text
+ ":DRA<point>WER:\ntest\n:END:\n"
+ (org-element-type (org-element-at-point)))))
+ ;; Return greater element when at :contents-end.
+ (should
+ (eq 'drawer
+ (org-test-with-temp-text
+ ":DRAWER:\ntest\n<point>:END:\n"
+ (org-element-type (org-element-at-point))))))
(ert-deftest test-org-element/context ()
"Test `org-element-context' specifications."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/org 26decec006: test-org-element-at-point: Add tests for point outside contents,
ELPA Syncer <=