branch: elpa/forth-mode
commit 715d813c83b1fb55d9b98ae148ffe29b2f08cdd9
Author: Lars Brinkhoff <[email protected]>
Commit: Lars Brinkhoff <[email protected]>
Clean up tests.
---
build.el | 2 +-
test/tests.el | 18 ++++++------------
2 files changed, 7 insertions(+), 13 deletions(-)
diff --git a/build.el b/build.el
index 6172088e19..68e3037c23 100644
--- a/build.el
+++ b/build.el
@@ -9,7 +9,7 @@
(require 'ert)
(defmacro ert-deftest (name args &rest body)
`(progn ,@body))
- (defun ert-run-tests-batch-and-exit ()
+ (defun ert-run-tests-batch-and-exit (&optional x)
(kill-emacs 0))
(defun should (arg))
(defun should-not (arg)))
diff --git a/test/tests.el b/test/tests.el
index 840230d608..6ceceaf1ea 100644
--- a/test/tests.el
+++ b/test/tests.el
@@ -1,23 +1,17 @@
-(ert-deftest load-forth-mode ()
- "Load forth-mode."
- (should (require 'forth-mode))
- (should (featurep 'forth-mode))
- (with-temp-buffer
- (forth-mode)
- (should (eq major-mode 'forth-mode))
- (kill-buffer)))
-
(ert-deftest load-not-block ()
(find-file "test/noblock.fth")
(should (eq major-mode 'forth-mode))
- (should-not (and (boundp 'forth-block-mode) forth-block-mode)))
+ (should-not (and (boundp 'forth-block-mode) forth-block-mode))
+ (kill-buffer))
(ert-deftest load-block-with-newlines ()
(find-file "test/block2.fth")
(should (eq major-mode 'forth-mode))
- (should (and (boundp 'forth-block-mode) forth-block-mode)))
+ (should (and (boundp 'forth-block-mode) forth-block-mode))
+ (kill-buffer))
(ert-deftest load-block-without-newlines ()
(find-file "test/block1.fth")
(should (eq major-mode 'forth-mode))
- (should (and (boundp 'forth-block-mode) forth-block-mode)))
+ (should (and (boundp 'forth-block-mode) forth-block-mode))
+ (kill-buffer))
