[Emacs-diffs] trunk r117273: * tests/automated/tildify-tests.el (tildify-test--test): Optimise the

[Michal Nazarewicz]

------------------------------------------------------------
revno: 117273
revision-id: address@hidden
parent: address@hidden
committer: Michal Nazarewicz <address@hidden>
branch nick: emacs-trunk
timestamp: Thu 2014-06-05 16:42:45 +0200
message:
  * tests/automated/tildify-tests.el (tildify-test--test): Optimise the
  test slightly by reusing the same temporary buffer across multiple
  test cases.
modified:
  test/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-8588
  test/automated/tildify-tests.el 
tildifytests.el-20140528005849-0ztb8xe7wxesfzgk-1

=== modified file 'test/ChangeLog'
--- a/test/ChangeLog    2014-06-05 14:42:07 +0000
+++ b/test/ChangeLog    2014-06-05 14:42:45 +0000
@@ -1,5 +1,9 @@
 2014-06-05  Michal Nazarewicz  <address@hidden>
 
+       * 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.

=== modified file 'test/automated/tildify-tests.el'
--- a/test/automated/tildify-tests.el   2014-06-05 14:42:07 +0000
+++ b/test/automated/tildify-tests.el   2014-06-05 14:42:45 +0000
@@ -54,16 +54,16 @@
   "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)