summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2017-02-13 17:14:38 +0100
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2017-02-13 17:21:24 +0100
commit990fd09ca86ef9bd6c64060d8cd668c80ed7ad9e (patch)
tree7c6cdd5ced234a84f82e87fb74e260643c87f88a
parentd347d85a15750641552b15436b7e86bb0b9d1fa8 (diff)
downloadorg-mode-990fd09ca86ef9bd6c64060d8cd668c80ed7ad9e.tar.gz
Fix some tests
* testing/lisp/test-org-element (test-org-element/link-parser): Remove a test. * testing/lisp/test-org-pcomplete (test-org-pcomplete/keyword): * testing/lisp/test-ox.el (test-org-export/file-uri): Fix tests.
-rw-r--r--testing/lisp/test-org-element.el8
-rw-r--r--testing/lisp/test-org-pcomplete.el10
-rw-r--r--testing/lisp/test-ox.el5
3 files changed, 9 insertions, 14 deletions
diff --git a/testing/lisp/test-org-element.el b/testing/lisp/test-org-element.el
index 8652aad..c8c3528 100644
--- a/testing/lisp/test-org-element.el
+++ b/testing/lisp/test-org-element.el
@@ -1655,14 +1655,6 @@ e^{i\\pi}+1=0
:path
(org-element-map (org-element-parse-buffer) 'link
#'identity nil t))))))
- ;; ... id link.
- (should
- (equal
- "id"
- (org-test-with-temp-text "[[id:aaaa]]"
- (org-element-property
- :type
- (org-element-map (org-element-parse-buffer) 'link 'identity nil t)))))
;; ... custom-id link.
(should
(equal
diff --git a/testing/lisp/test-org-pcomplete.el b/testing/lisp/test-org-pcomplete.el
index 064cd4f..56f7185 100644
--- a/testing/lisp/test-org-pcomplete.el
+++ b/testing/lisp/test-org-pcomplete.el
@@ -43,17 +43,19 @@
(ert-deftest test-org-pcomplete/keyword ()
"Test keyword and block completion."
(should
- (equal
+ (string-prefix-p
"#+startup: "
(org-test-with-temp-text "#+start<point>"
(pcomplete)
- (buffer-string))))
+ (buffer-string))
+ t))
(should
- (equal
+ (string-prefix-p
"#+begin_center"
(org-test-with-temp-text "#+begin_ce<point>"
(pcomplete)
- (buffer-string)))))
+ (buffer-string))
+ t)))
(provide 'test-org-pcomplete)
;;; test-org-pcomplete.el ends here
diff --git a/testing/lisp/test-ox.el b/testing/lisp/test-ox.el
index 7a23b1d..cfcf05e 100644
--- a/testing/lisp/test-ox.el
+++ b/testing/lisp/test-ox.el
@@ -3232,8 +3232,9 @@ Another text. (ref:text)
"Test `org-export-file-uri' specifications."
;; Preserve relative filenames.
(should (equal "relative.org" (org-export-file-uri "relative.org")))
- ;; Local files start with "file:///"
- (should (equal "file:///local.org" (org-export-file-uri "/local.org")))
+ ;; Local files start with "file://"
+ (should (equal (concat "file://" (expand-file-name "/local.org"))
+ (org-export-file-uri "/local.org")))
;; Remote files start with "file://"
(should (equal "file://myself@some.where:papers/last.pdf"
(org-export-file-uri "/myself@some.where:papers/last.pdf")))