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
|
(equal
|
||||||
"127.0.0.1"
|
"127.0.0.1"
|
||||||
(org-test-with-temp-text "[[http://orgmode.org]]"
|
(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"))))
|
(lambda (type _) (cons type "127.0.0.1"))))
|
||||||
(let ((org-link-translation-function 'link-translate))
|
(org-element-property
|
||||||
(org-element-property
|
:path
|
||||||
:path
|
(org-element-map (org-element-parse-buffer) 'link
|
||||||
(org-element-map (org-element-parse-buffer) 'link
|
#'identity nil t))))))
|
||||||
'identity nil t)))))))
|
|
||||||
;; ... id link.
|
;; ... id link.
|
||||||
(should
|
(should
|
||||||
(equal
|
(equal
|
||||||
|
|
Loading…
Reference in New Issue