[elpa] externals/org fcde1f779d 090/101: test-org-element/at-point: Add new test

[ELPA Syncer]

branch: externals/org
commit fcde1f779d4a9a68de6a974bafc3254efcc7973d
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    test-org-element/at-point: Add new test
    
    * testing/lisp/test-org-element.el (test-org-element/at-point): Test
    when point is not in current buffer.
---
 testing/lisp/test-org-element.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/testing/lisp/test-org-element.el b/testing/lisp/test-org-element.el
index cf904b6cc5..fb4808ff03 100644
--- a/testing/lisp/test-org-element.el
+++ b/testing/lisp/test-org-element.el
@@ -4202,6 +4202,15 @@ Text
        (org-test-with-temp-text "#+BEGIN_CENTER\nA\n#+END_CENTER"
         (progn (search-forward "A")
                (org-element-type (org-element-at-point))))))
+  ;; Point in other buffer.
+  (should
+   (eq 'paragraph
+       (org-test-with-temp-text "#+BEGIN_CENTER\nA\n#+END_CENTER"
+        (progn (search-forward "A")
+               (org-element-type
+                 (let ((mk (point-marker)))
+                   (with-temp-buffer
+                     (org-element-at-point mk))))))))
   ;; Correctly set `:parent' property.
   (should
    (eq 'center-block