branch: externals/org
commit 9eed8567e8ba071b0087163079c63531243e5bbf
Author: Ihor Radchenko <yanta...@posteo.net>
Commit: Ihor Radchenko <yanta...@posteo.net>
testing/lisp/test-org-element.el: Uncomment working test
* testing/lisp/test-org-element.el (test-org-element/class):
Uncomment. Whatever caused the failure in the past is not longer the
problem. Tests are passing.
---
testing/lisp/test-org-element.el | 53 +++++++++++++++++++---------------------
1 file changed, 25 insertions(+), 28 deletions(-)
diff --git a/testing/lisp/test-org-element.el b/testing/lisp/test-org-element.el
index 78a735efec..2d67cc8711 100644
--- a/testing/lisp/test-org-element.el
+++ b/testing/lisp/test-org-element.el
@@ -143,32 +143,29 @@ Some other text
(lambda (object) (org-element-type (org-element-secondary-p object)))
nil t))))
-;; FIXME: `org-element-class' is a defsubst and cannot be tested
-;; properly (i.e., "make test" fails).
-;;
-;; (ert-deftest test-org-element/class ()
-;; "Test `org-element-class' specifications."
-;; ;; Regular tests.
-;; (should (eq 'element (org-element-class '(paragraph nil) nil)))
-;; (should (eq 'object (org-element-class '(target nil) nil)))
-;; ;; Special types.
-;; (should (eq 'element (org-element-class '(org-data nil) nil)))
-;; (should (eq 'object (org-element-class "text" nil)))
-;; (should (eq 'object (org-element-class '("secondary " "string") nil)))
-;; ;; Pseudo elements.
-;; (should (eq 'element (org-element-class '(foo nil) nil)))
-;; (should (eq 'element (org-element-class '(foo nil) '(center-block nil))))
-;; (should (eq 'element (org-element-class '(foo nil) '(org-data nil))))
-;; ;; Pseudo objects.
-;; (should (eq 'object (org-element-class '(foo nil) '(bold nil))))
-;; (should (eq 'object (org-element-class '(foo nil) '(paragraph nil))))
-;; (should (eq 'object (org-element-class '(foo nil) '("secondary"))))
-;; (should
-;; (eq 'object
-;; (let* ((datum '(foo nil))
-;; (headline `(headline (:title (,datum)))))
-;; (org-element-put-property datum :parent headline)
-;; (org-element-class datum)))))
+(ert-deftest test-org-element/class ()
+ "Test `org-element-class' specifications."
+ ;; Regular tests.
+ (should (eq 'element (org-element-class '(paragraph nil) nil)))
+ (should (eq 'object (org-element-class '(target nil) nil)))
+ ;; Special types.
+ (should (eq 'element (org-element-class '(org-data nil) nil)))
+ (should (eq 'object (org-element-class "text" nil)))
+ (should (eq 'object (org-element-class '("secondary " "string") nil)))
+ ;; Pseudo elements.
+ (should (eq 'element (org-element-class '(foo nil) nil)))
+ (should (eq 'element (org-element-class '(foo nil) '(center-block nil))))
+ (should (eq 'element (org-element-class '(foo nil) '(org-data nil))))
+ ;; Pseudo objects.
+ (should (eq 'object (org-element-class '(foo nil) '(bold nil))))
+ (should (eq 'object (org-element-class '(foo nil) '(paragraph nil))))
+ (should (eq 'object (org-element-class '(foo nil) '("secondary"))))
+ (should
+ (eq 'object
+ (let* ((datum '(foo nil))
+ (headline `(headline (:title (,datum)))))
+ (org-element-put-property datum :parent headline)
+ (org-element-class datum)))))
(ert-deftest test-org-element/adopt-elements ()
"Test `org-element-adopt-elements' specifications."
@@ -178,7 +175,7 @@ Some other text
(org-test-with-temp-text "* Headline\n *a*"
(let ((tree (org-element-parse-buffer)))
(org-element-adopt-elements
- (org-element-map tree 'bold 'identity nil t) '(italic nil "a"))
+ (org-element-map tree 'bold 'identity nil t) '(italic nil
"a"))
(mapcar (lambda (blob) (org-element-type blob))
(org-element-contents
(org-element-map tree 'bold 'identity nil t)))))))
@@ -188,7 +185,7 @@ Some other text
(org-test-with-temp-text "* Headline\n *a*"
(let ((tree (org-element-parse-buffer)))
(org-element-adopt-elements
- (org-element-map tree 'bold 'identity nil t) "b")
+ (org-element-map tree 'bold 'identity nil t) "b")
(org-element-contents
(org-element-map tree 'bold 'identity nil t)))))))
