From: Eshel Yaron <me@eshelyaron.com>
Date: Sun, 26 Nov 2023 11:52:02 +0000 (+0100)
Subject: ; Add test for 'forward/backward-sexp' in strings
X-Git-Tag: V9.1.19-sweep-0.27.2~2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=17d26e466fdca7f444c0c3d8c3038beae3a1e9b3;p=sweep.git

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

diff --git a/sweeprolog-tests.el b/sweeprolog-tests.el
index 074d2dd..7eec102 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."