[nongnu] elpa/forth-mode 715d813c83 062/153: Clean up tests.

[ELPA Syncer]

branch: elpa/forth-mode
commit 715d813c83b1fb55d9b98ae148ffe29b2f08cdd9
Author: Lars Brinkhoff <lars.brinkhoff@delphi.com>
Commit: Lars Brinkhoff <lars.brinkhoff@delphi.com>

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