procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
test slightly by reusing the same temporary buffer across multiple
test cases.
This commit is contained in:
Michal Nazarewicz 2014-06-05 16:42:45 +02:00
parent 03d7d160c3
commit 1d7f01eeed
2 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
test/ChangeLog
View file

@ -1,5 +1,9 @@
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.

10
test/automated/tildify-tests.el
View file

@ -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)