branch: elpa/geiser-stklos
commit 330330afe581d95e9a6fd2eb199bb7ae9ae16392
Author: Jeronimo Pellegrini <[email protected]>
Commit: Jeronimo Pellegrini <[email protected]>
Add tests on both (STklos and Emacs) sides.
---
Makefile | 11 ++++++++++-
geiser-stklos-test.el | 34 ++++++++++++++++++++++++++++++++++
2 files changed, 44 insertions(+), 1 deletion(-)
diff --git a/Makefile b/Makefile
index 2c3aad0..ac1bc7d 100644
--- a/Makefile
+++ b/Makefile
@@ -2,5 +2,14 @@ all:
@echo "There is no need to call make ot install Geiser-STklos."
@echo "You can call 'make test' to test it, though."
-test:
+.PHONY: test-stklos
+test-stklos:
stklos --no-init-file --utf8-encoding=yes -f geiser-stklos-test.stk
+
+.PHONY: test-emacs
+test-emacs:
+ @emacs -batch -l ert -l geiser-stklos-test.el -f
ert-run-tests-batch-and-exit 1> test-emacs-stdout.log
+
+test: test-stklos test-emacs
+
+
diff --git a/geiser-stklos-test.el b/geiser-stklos-test.el
new file mode 100644
index 0000000..f18dded
--- /dev/null
+++ b/geiser-stklos-test.el
@@ -0,0 +1,34 @@
+
+(setq load-path (cons "../geiser/elisp" (cons "." load-path)))
+(require 'geiser)
+(load "geiser-stklos.el")
+;(eval-when-compile
+(require 'cl-lib)
+;)
+
+
+(ert-deftest geiser-stklos--loaded ()
+ (should (member 'geiser-stklos features)))
+
+(ert-deftest find-close-par ()
+ 29
+ (with-temp-buffer
+ (insert "(let* ((let 'let) (let* let)) let)")
+ (goto-char 7)
+ (find-close-par)))
+
+(ert-deftest find-close-par-2 ()
+ 18
+ (with-temp-buffer
+ (insert "(let* ((let 'let) (let* let)) let)")
+ (goto-char 10)
+ (find-close-par 8)))
+
+
+;; this one could have many more variants
+(ert-deftest geiser-stklos--symbol-begin ()
+ 5
+ (with-temp-buffer
+ (insert "(abc def (ghijkl))")
+ (goto-char 7)
+ (geiser-stklos--symbol-begin nil)))
