Browse Source

Add test for `org-find-property'

* testing/lisp/test-org.el (test-org/find-property): Add test.
Nicolas Goaziou 2 months ago
parent
commit
a3d23b3a97
1 changed files with 5 additions and 0 deletions
  1. 5 0
      testing/lisp/test-org.el

+ 5 - 0
testing/lisp/test-org.el

@@ -5204,6 +5204,11 @@ Paragraph<point>"
    (= 1
       (org-test-with-temp-text "* H\n:PROPERTIES:\n:PROP: value\n:END:"
 	(org-find-property "prop"))))
+  ;; Find properties in top-level property drawer.
+  (should
+   (= 1
+      (org-test-with-temp-text ":PROPERTIES:\n:PROP: value\n:END:"
+	(org-find-property "prop"))))
   ;; Ignore false positives.
   (should
    (= 27