branch: elpa/geiser-kawa
commit 6009d95dd68e36a55d651f2ead77229efac2a137
Author: spellcard199 <[email protected]>
Commit: spellcard199 <[email protected]>
Rename test-geiser-kawa.el to geiser-kawa-test.el + fix flycheck issues
---
.../{test-geiser-kawa.el => geiser-kawa-test.el} | 30 +++++++++++++++-------
1 file changed, 21 insertions(+), 9 deletions(-)
diff --git a/elisp/tests/test-geiser-kawa.el b/elisp/tests/geiser-kawa-test.el
similarity index 82%
rename from elisp/tests/test-geiser-kawa.el
rename to elisp/tests/geiser-kawa-test.el
index 3a7eacc..71a489d 100644
--- a/elisp/tests/test-geiser-kawa.el
+++ b/elisp/tests/geiser-kawa-test.el
@@ -7,13 +7,22 @@
;; have received a copy of the license along with this program. If
;; not, see <http://www.xfree86.org/3.3.6/COPYRIGHT2.html#5>.
+;;; Commentary:
+;; Tests for testing elisp side of `geiser-kawa`.
+
+(require 'buttercup)
+
(require 'geiser)
(require 'geiser-mode)
(require 'geiser-kawa)
(require 'gnus-util)
-(defun switch-to-and-reset-scratch-buffer()
- (switch-to-buffer "*scratch*")
+;;; Code:
+
+(defun geiser-kawa-test--switch-reset-work-buffer()
+ "Reset *test-geiser-kawa*.
+New tests expect a clean buffer to run."
+ (switch-to-buffer "*geiser-kawa-test*")
(delete-region (point-min) (point-max))
(geiser-impl--set-buffer-implementation 'kawa))
@@ -24,19 +33,20 @@
(print "[test-geiser-kawa.el] Running `mvnw package'...")
- (let ((mvnw-buf (geiser-kawa-deps-mvnw-package geiser-kawa-dir)))
- (while compilation-in-progress
- (sleep-for 0 250)))
+ (geiser-kawa-deps-mvnw-package geiser-kawa-dir)
+
+ (while compilation-in-progress
+ (sleep-for 0 250))
(print "[test-geiser-kawa.el] `mvnw package' done.")
(setq geiser-kawa-use-included-kawa t)
- (switch-to-and-reset-scratch-buffer)
+ (geiser-kawa-test--switch-reset-work-buffer)
(run-kawa)
(geiser-mode))
(before-each
- (switch-to-and-reset-scratch-buffer))
+ (geiser-kawa-test--switch-reset-work-buffer))
(it (concat "can find " geiser-kawa-deps-jar-path)
(expect
@@ -73,7 +83,7 @@
(goto-char (point-max))
(geiser-expand-last-sexp)
(geiser-debug--with-buffer
- (buffer-substring-no-properties (point-min) (point-max))))
+ (buffer-substring-no-properties (point-min) (point-max))))
:to-equal "(if #t (begin (quote foo) (quote bar)))"))
(it "can `geiser:completions'"
@@ -103,4 +113,6 @@
)
-;;; test-geiser-kawa.el ends here
+(provide 'geiser-kawa-test)
+
+;;; geiser-kawa-test.el ends here
