From 1d7f01eeed9b36fcfbb0d7a5de503a418b43814c Mon Sep 17 00:00:00 2001 From: Michal Nazarewicz Date: Thu, 5 Jun 2014 16:42:45 +0200 Subject: [PATCH] * tests/automated/tildify-tests.el (tildify-test--test): Optimise the test slightly by reusing the same temporary buffer across multiple test cases. --- test/ChangeLog | 4 ++++ test/automated/tildify-tests.el | 10 +++++----- 2 files changed, 9 insertions(+), 5 deletions(-) diff --git a/test/ChangeLog b/test/ChangeLog index 6248d6cb9a6..bb8ed89bed0 100644 --- a/test/ChangeLog +++ b/test/ChangeLog @@ -1,5 +1,9 @@ 2014-06-05 Michal Nazarewicz + * automated/tildify-tests.el (tildify-test--test): Optimise the test + slightly by reusing the same temporary buffer across multiple test + cases. + * automated/tildify-tests.el (tildify-test-find-env-end-re-bug) (tildify-test-find-env-group-index-bug): Update to support new signature of the `tildify-foreach-region-outside-env' function. diff --git a/test/automated/tildify-tests.el b/test/automated/tildify-tests.el index cf18320030d..86c83d7ac5b 100644 --- a/test/automated/tildify-tests.el +++ b/test/automated/tildify-tests.el @@ -54,16 +54,16 @@ If IS-XML is non-nil, 
 tag is not treated specially."
   "Test tildify running in MODES.
 INPUT is the initial content of the buffer and EXPECTED is expected result
 after `tildify-buffer' is run."
-  (dolist (mode modes)
-    (with-temp-buffer
+  (with-temp-buffer
+    (dolist (mode modes)
+      (erase-buffer)
       (funcall mode)
       (let ((header (concat "Testing `tildify-buffer' in "
                             (symbol-name mode) "\n")))
         (insert header input)
         (tildify-buffer t)
-        (should (string-equal (concat header expected) (buffer-string)))))
-    (with-temp-buffer
-      (funcall mode)
+        (should (string-equal (concat header expected) (buffer-string))))
+      (erase-buffer)
       (let ((header (concat "Testing `tildify-region' in "
                             (symbol-name mode) "\n")))
         (insert header input)
-- 
2.39.5