From 547be2e0371682d2e56a5e7bcf90f2c0645fa196 Mon Sep 17 00:00:00 2001 From: Yuan Fu Date: Sun, 15 Sep 2024 00:42:41 -0700 Subject: [PATCH] ; Add even more tests for previous commit * test/src/treesit-tests.el: (treesit-range-fixup-after-edit): Make the tests trickier. (cherry picked from commit ae22ad7f624afa5e974059b8f2e78959402d8b3a) --- test/src/treesit-tests.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/test/src/treesit-tests.el b/test/src/treesit-tests.el index 89267157840..4e55d97105e 100644 --- a/test/src/treesit-tests.el +++ b/test/src/treesit-tests.el @@ -713,21 +713,23 @@ visible_end.)" (should (equal (treesit-parser-included-ranges parser) '((5 . 7) (10 . 13)))) - ;; Narrow in front. + ;; Narrow in front, and discard the last one. (widen) - (treesit-parser-set-included-ranges parser '((4 . 17))) + (treesit-parser-set-included-ranges + parser '((4 . 10) (12 . 14) (16 . 20))) ;; 11111111111111111111 - ;; [ ] + ;; [ ] [ ] [ ] ;; { } narrow (narrow-to-region 1 8) (should (equal (treesit-parser-included-ranges parser) '((4 . 8)))) - ;; Narrow in back. + ;; Narrow in back, and discard the first one. (widen) - (treesit-parser-set-included-ranges parser '((4 . 17))) + (treesit-parser-set-included-ranges + parser '((1 . 5) (7 . 9) (11 . 17))) ;; 11111111111111111111 - ;; [ ] + ;; [ ] [ ] [ ] ;; { } narrow (narrow-to-region 15 20) (should (equal (treesit-parser-included-ranges parser) -- 2.39.5