Jelajahi Sumber

test-ox: Tiny refactoring

* testing/lisp/test-ox.el (test-org-export/expand-include): Tiny
  refactoring.
Nicolas Goaziou 11 tahun lalu
induk
melakukan
d5484ae3f5
1 mengubah file dengan 7 tambahan dan 10 penghapusan
  1. 7 10
      testing/lisp/test-ox.el

+ 7 - 10
testing/lisp/test-ox.el

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