[nongnu] elpa/sweeprolog 17d26e466f 4/4: ; Add test for 'forward/backward-sexp' in strings

[ELPA Syncer]

branch: elpa/sweeprolog
commit 17d26e466fdca7f444c0c3d8c3038beae3a1e9b3
Author: Eshel Yaron <me@eshelyaron.com>
Commit: Eshel Yaron <me@eshelyaron.com>

    ; Add test for 'forward/backward-sexp' in strings
---
 sweeprolog-tests.el | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/sweeprolog-tests.el b/sweeprolog-tests.el
index 074d2ddaee..7eec10241c 100644
--- a/sweeprolog-tests.el
+++ b/sweeprolog-tests.el
@@ -1861,6 +1861,18 @@ head,
   (backward-sexp)
   (should (= (point) 1)))
 
+(sweeprolog-deftest backward-sexp-to-string-boundary ()
+  "Test `backward-sexp' inside a string."
+  "foo :- A = \"bar, baz-!-\"."
+  (backward-sexp)
+  (should (= (point) 18))
+  (backward-sexp)
+  (should (= (point) 13))
+  (forward-sexp)
+  (should (= (point) 16))
+  (forward-sexp)
+  (should (= (point) 21)))
+
 (sweeprolog-deftest usage-example-comment ()
   "Tests adding usage example comments."
   "\nfoo."