[nongnu] elpa/forth-mode d1498037a2 107/153: Add simple tests for forward-sexp

[ELPA Syncer]

branch: elpa/forth-mode
commit d1498037a28ceef1cc6479b52d34b29e4eaad5d4
Author: Helmut Eller <eller.helmut@gmail.com>
Commit: Helmut Eller <eller.helmut@gmail.com>

    Add simple tests for forward-sexp
    
    * test/tests.el (forth-sexp-movements): New test
    (forth-assert-forward-sexp): New helper.
    * fort-smie.el (forth-smie--grammar): Add rule for :noname ... ; so
    that forward-sexp works and it "blinks" in the right when point is on it.
---
 forth-smie.el |  3 ++-
 test/tests.el | 11 +++++++++++
 2 files changed, 13 insertions(+), 1 deletion(-)

diff --git a/forth-smie.el b/forth-smie.el
index ae44364ca7..aa6b64a382 100644
--- a/forth-smie.el
+++ b/forth-smie.el
@@ -18,7 +18,8 @@
        ("do" words "loop")
        ("do" words "+loop")
        ("begin-structure" words "end-structure")
-       (":" words ";"))
+       (":" words ";")
+       (":noname" words ";"))
       (words)))))
 
 (defvar forth-smie--basic-indent 2)
diff --git a/test/tests.el b/test/tests.el
index e9460de9cc..1681a10389 100644
--- a/test/tests.el
+++ b/test/tests.el
@@ -50,6 +50,12 @@ The whitespace before and including \"|\" on each line is 
removed."
        (should (string= (forth-strip-| expected)
                         (substring-no-properties (buffer-string))))))))
 
+(defun forth-assert-forward-sexp (content start end)
+  (forth-with-temp-buffer content
+    (goto-char start)
+    (forward-sexp)
+    (should (= (point) end))))
+
 (ert-deftest forth-paren-comment-font-lock ()
   (forth-assert-face "( )" 1 font-lock-comment-delimiter-face)
   (forth-assert-face ".( )" 1 font-lock-comment-face)
@@ -170,3 +176,8 @@ The whitespace before and including \"|\" on each line is 
removed."
    |  [char] b of bar endof
    |  drop exit
    |endcase"))
+
+(ert-deftest forth-sexp-movements ()
+  (forth-assert-forward-sexp " : foo bar ; \ x" 2 13)
+  (forth-assert-forward-sexp " :noname foo bar ; \ x" 2 19)
+  (forth-assert-forward-sexp " if drop exit else 1+ then bar " 2 27))