[nongnu] elpa/geiser-kawa 6009d95 100/119: Rename test-geiser-kawa.el to geiser-kawa-test.el + fix flycheck issues

[Philip Kaludercic]

branch: elpa/geiser-kawa
commit 6009d95dd68e36a55d651f2ead77229efac2a137
Author: spellcard199 <spellcard199@protonmail.com>
Commit: spellcard199 <spellcard199@protonmail.com>

    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