; Add test for 'forward/backward-sexp' in strings

diff --git a/sweeprolog-tests.el b/sweeprolog-tests.el
index 074d2ddaee1042aead4dbcaf68bd84f39bd0e607..7eec10241c62759fba7c81adfe0c425699f56ead 100644 (file)
--- 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."