Procházet zdrojové kódy

org-element: Fix failing test

* testing/lisp/test-org-element.el (test-org-element/link-parser): Fix
  failing test.  The bug was introduced in 827413e.
Nicolas Goaziou před 8 roky
rodič
revize
480d3523bc
1 změnil soubory, kde provedl 6 přidání a 7 odebrání
  1. 6 7
      testing/lisp/test-org-element.el

+ 6 - 7
testing/lisp/test-org-element.el

@@ -1604,13 +1604,12 @@ e^{i\\pi}+1=0
    (equal
     "127.0.0.1"
     (org-test-with-temp-text "[[http://orgmode.org]]"
-      (cl-letf (((symbol-function 'link-translate)
-		 (lambda (type _) (cons type "127.0.0.1"))))
-	(let ((org-link-translation-function 'link-translate))
-	  (org-element-property
-	   :path
-	   (org-element-map (org-element-parse-buffer) 'link
-	     'identity nil t)))))))
+      (let ((org-link-translation-function
+	     (lambda (type _) (cons type "127.0.0.1"))))
+	(org-element-property
+	 :path
+	 (org-element-map (org-element-parse-buffer) 'link
+	   #'identity nil t))))))
   ;; ... id link.
   (should
    (equal