[nongnu] elpa/geiser-kawa 1b82b8f 056/119: Add tests for elisp

[Philip Kaludercic]

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

    Add tests for elisp
---
 run-elisp-tests.sh        |  1 +
 tests/test-geiser-kawa.el | 40 ++++++++++++++++++++++++++++++++++++++++
 2 files changed, 41 insertions(+)

diff --git a/run-elisp-tests.sh b/run-elisp-tests.sh
new file mode 100644
index 0000000..a149684
--- /dev/null
+++ b/run-elisp-tests.sh
@@ -0,0 +1 @@
+cask exec buttercup -L .
diff --git a/tests/test-geiser-kawa.el b/tests/test-geiser-kawa.el
new file mode 100644
index 0000000..dc5a5b9
--- /dev/null
+++ b/tests/test-geiser-kawa.el
@@ -0,0 +1,40 @@
+(require 'geiser)
+(require 'geiser-mode)
+(require 'geiser-kawa)
+
+(defun switch-to-and-reset-scratch-buffer()
+  (switch-to-buffer "*scratch*")
+  (delete-region (point-min) (point-max))
+  (geiser-impl--set-buffer-implementation 'kawa))
+
+(describe
+ "run-kawa"
+
+ (before-all
+  (let ((mvn-buf (geiser-kawa-deps-mvn-package)))
+    (while compilation-in-progress
+      (sleep-for 0 250)))
+  (setq geiser-kawa-use-included-kawa t)
+  (switch-to-and-reset-scratch-buffer)
+  (run-kawa)
+  (geiser-mode))
+
+ (before-each
+  (switch-to-and-reset-scratch-buffer))
+
+ (it (concat "can find " geiser-kawa-deps-jar-path)
+     (expect
+      (file-exists-p geiser-kawa-deps-jar-path)))
+
+ (it "can `run-kawa'"
+     (expect
+      (get-buffer "* Kawa REPL *")))
+
+ (it "can `geiser-eval-buffer'"
+     (expect
+      (progn
+        (insert "(display 'foobar)")
+        (geiser-eval-buffer))
+      :to-equal '((result "") (output . "foobar"))))
+
+ )