branch: elpa/geiser-kawa
commit 1b82b8f28b30ac88d5d9e017e8fb99cdd1f03cbc
Author: spellcard199 <spellcard...@protonmail.com>
Commit: spellcard199 <spellcard...@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"))))
+
+ )
