Commit 1d7f01ee authored by Michal Nazarewicz's avatar Michal Nazarewicz
Browse files

* tests/automated/tildify-tests.el (tildify-test--test): Optimise the

test slightly by reusing the same temporary buffer across multiple
test cases.
parent 03d7d160
2014-06-05 Michal Nazarewicz <mina86@mina86.com>
* 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.
......
......@@ -54,16 +54,16 @@ If IS-XML is non-nil, <pre> 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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment