[nongnu] elpa/geiser-stklos 330330a 15/30: Add tests on both (STklos and Emacs) sides.

[Philip Kaludercic]

branch: elpa/geiser-stklos
commit 330330afe581d95e9a6fd2eb199bb7ae9ae16392
Author: Jeronimo Pellegrini <j_p@aleph0.info>
Commit: Jeronimo Pellegrini <j_p@aleph0.info>

    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)))