Ver código fonte

fix test fail introduced by change of default in e8742b78e0

* testing/lisp/test-org-list.el (test-org-list/to-html): Bind
  `org-html-indent´ to nil for testing.
Achim Gratz 12 anos atrás
pai
commit
63c5bc4425
1 arquivos alterados com 14 adições e 13 exclusões
  1. 14 13
      testing/lisp/test-org-list.el

+ 14 - 13
testing/lisp/test-org-list.el

@@ -757,24 +757,25 @@
   "Test `org-list-to-html' specifications."
   (should
    (equal "<ul class=\"org-ul\">\n<li>a\n</li>\n</ul>"
-	  (with-temp-buffer
-	    (insert "<!-- BEGIN RECEIVE ORGLST name -->
+	  (let (org-html-indent)
+	    (with-temp-buffer
+	      (insert "<!-- BEGIN RECEIVE ORGLST name -->
 <!-- END RECEIVE ORGLST name -->
 <!--
 #+ORGLST: SEND name org-list-to-html
 - a
 -->")
-	    (goto-char (point-min))
-	    (re-search-forward "^- a" nil t)
-	    (beginning-of-line)
-	    (org-list-send-list)
-	    (goto-line 2)
-	    (buffer-substring-no-properties
-	     (point)
-	     (progn (re-search-forward "^<!-- END" nil t)
-		    (beginning-of-line)
-		    (skip-chars-backward " \r\t\n")
-		    (point)))))))
+	      (goto-char (point-min))
+	      (re-search-forward "^- a" nil t)
+	      (beginning-of-line)
+	      (org-list-send-list)
+	      (goto-line 2)
+	      (buffer-substring-no-properties
+	       (point)
+	       (progn (re-search-forward "^<!-- END" nil t)
+		      (beginning-of-line)
+		      (skip-chars-backward " \r\t\n")
+		      (point))))))))
 
 (ert-deftest test-org-list/to-latex ()
   "Test `org-list-to-latex' specifications."