Explorar o código

Add test for `org-find-property'

* testing/lisp/test-org.el (test-org/find-property): Add test.
Nicolas Goaziou %!s(int64=5) %!d(string=hai) anos
pai
achega
a3d23b3a97
Modificáronse 1 ficheiros con 5 adicións e 0 borrados
  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