浏览代码

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 8 年之前
父节点
当前提交
480d3523bc
共有 1 个文件被更改,包括 6 次插入7 次删除
  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