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

test-ox: Tiny refactoring 

* testing/lisp/test-ox.el (test-org-export/expand-include): Tiny
  refactoring.
This commit is contained in:
Nicolas Goaziou 2014-04-12 16:17:13 +02:00
parent b8781c4c85
commit d5484ae3f5
1 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
testing/lisp/test-ox.el
View File

@ -868,11 +868,10 @@ Footnotes[fn:1], [fn:test] and [fn:inline:anonymous footnote].
(format "#+INCLUDE: \"%s\"\n#+INCLUDE: \"%s\"" (format "#+INCLUDE: \"%s\"\n#+INCLUDE: \"%s\""
file1 file2) file1 file2)
(org-export-expand-include-keyword) (org-export-expand-include-keyword)
(let (unique-labels) (org-element-map (org-element-parse-buffer)
(org-element-map (org-element-parse-buffer) 'footnote-reference
'footnote-reference (lambda (ref)
(lambda (ref) (org-element-property :label ref)))))))))))))
(org-element-property :label ref))))))))))))))
;; Footnotes labels are not local to each include keyword. ;; Footnotes labels are not local to each include keyword.
(should (should
(= 3 (= 3
@ -887,11 +886,9 @@ Footnotes[fn:1], [fn:test] and [fn:inline:anonymous footnote].
(org-test-with-temp-text (org-test-with-temp-text
(format "#+INCLUDE: \"%s\"\n#+INCLUDE: \"%s\"" file file) (format "#+INCLUDE: \"%s\"\n#+INCLUDE: \"%s\"" file file)
(org-export-expand-include-keyword) (org-export-expand-include-keyword)
(let (unique-labels) (org-element-map (org-element-parse-buffer)
(org-element-map (org-element-parse-buffer) 'footnote-reference
'footnote-reference (lambda (ref) (org-element-property :label ref))))))))))))
(lambda (ref)
(org-element-property :label ref)))))))))))))
(ert-deftest test-org-export/expand-macro () (ert-deftest test-org-export/expand-macro ()
"Test macro expansion in an Org buffer." "Test macro expansion in an Org buffer."