commit d45be106c1a694503ec1a6d720614d7979594cb4 parent 85f4502130fdc531e739b4c2644e465434654738 Author: Wilfred Hughes <me@wilfred.me.uk> Date: Sat, 14 Oct 2017 11:07:26 +0100 Ensure that we don't leave any temporary buffers lying about Ensures that #33 stays fixed. Diffstat:
| M | test/unit-test.el | | | 14 | ++++++++++++++ |
1 file changed, 14 insertions(+), 0 deletions(-)
diff --git a/test/unit-test.el b/test/unit-test.el @@ -120,3 +120,17 @@ variables defined without `defvar'." (should (equal (helpful--signature 'some-unused-function) "(some-unused-function [Arg list not available until function definition is loaded.])"))) + +(ert-deftest helpful-function--single-buffer () + "Ensure that calling `helpful-buffer' does not leave any extra +buffers lying around." + (let ((initial-buffers (buffer-list)) + expected-buffers results-buffer) + (helpful-function #'enable-theme) + (setq results-buffer (get-buffer "*helpful: enable-theme*")) + (setq expected-buffers + (cons results-buffer + initial-buffers)) + (should + (null + (-difference (buffer-list) expected-buffers)))))