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:
parent
2c70283641
commit
480d3523bc
|
@ -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)
|
||||
(let ((org-link-translation-function
|
||||
(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)))))))
|
||||
#'identity nil t))))))
|
||||
;; ... id link.
|
||||
(should
|
||||
(equal
|
||||
|
|
Loading…
Reference in New Issue