From 17d26e466fdca7f444c0c3d8c3038beae3a1e9b3 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Sun, 26 Nov 2023 12:52:02 +0100 Subject: [PATCH] ; 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 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." -- 2.39.5