From 63c5bc44255cd96819609f7e7e5c4dc4412e89d5 Mon Sep 17 00:00:00 2001
From: Achim Gratz <Stromeko@Stromeko.DE>
Date: Mon, 18 Mar 2013 08:07:26 +0100
Subject: [PATCH] fix test fail introduced by change of default in e8742b78e0
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* testing/lisp/test-org-list.el (test-org-list/to-html): Bind
  `org-html-indent´ to nil for testing.
---
 testing/lisp/test-org-list.el | 27 ++++++++++++++-------------
 1 file changed, 14 insertions(+), 13 deletions(-)

diff --git a/testing/lisp/test-org-list.el b/testing/lisp/test-org-list.el
index 6ab80b0a0..adac82ed8 100644
--- a/testing/lisp/test-org-list.el
+++ b/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."