mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

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.
This commit is contained in:
Nicolas Goaziou 2016-06-04 21:48:02 +02:00
parent 2c70283641
commit 480d3523bc
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
testing/lisp/test-org-element.el
View File

@ -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