Browse Source

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.
Nicolas Goaziou 2 years ago
parent
commit
990fd09ca8
3 changed files with 9 additions and 14 deletions
  1. 0 8
      testing/lisp/test-org-element.el
  2. 6 4
      testing/lisp/test-org-pcomplete.el
  3. 3 2
      testing/lisp/test-ox.el

+ 0 - 8
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

+ 6 - 4
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

+ 3 - 2
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")))