branch: elpa/sweeprolog
commit 17d26e466fdca7f444c0c3d8c3038beae3a1e9b3
Author: Eshel Yaron <[email protected]>
Commit: Eshel Yaron <[email protected]>
; 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."
