diff options
| author | Yuan Fu | 2024-09-20 20:40:26 -0700 |
|---|---|---|
| committer | Yuan Fu | 2024-09-20 20:54:23 -0700 |
| commit | 0834106a6209833ab5f5c032cce857f39889d3d6 (patch) | |
| tree | 38d84bd1573dff8afc11be5987dd45b145d24dfc /test/src | |
| parent | 76c6b4d2799ab1396ba003d33e4a177519d7e53d (diff) | |
| download | emacs-0834106a6209833ab5f5c032cce857f39889d3d6.tar.gz emacs-0834106a6209833ab5f5c032cce857f39889d3d6.zip | |
Fix treesit--merge-ranges (bug#73324)
* lisp/treesit.el (treesit--merge-ranges): Make sure that old
ranges that intersects with START-END are actually discarded.
* test/src/treesit-tests.el (treesit-range-merge): New test.
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/treesit-tests.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/test/src/treesit-tests.el b/test/src/treesit-tests.el index 24cd755fcf0..700b0505d71 100644 --- a/test/src/treesit-tests.el +++ b/test/src/treesit-tests.el | |||
| @@ -684,6 +684,11 @@ visible_end.)" | |||
| 684 | (should (equal '((16 . 28)) (treesit-query-range | 684 | (should (equal '((16 . 28)) (treesit-query-range |
| 685 | 'javascript query nil nil '(1 . -1))))))) | 685 | 'javascript query nil nil '(1 . -1))))))) |
| 686 | 686 | ||
| 687 | (ert-deftest treesit-range-merge () | ||
| 688 | "Test merging ranges." | ||
| 689 | (should (equal (treesit--merge-ranges '((1 . 1) (3 . 483)) nil 1 488) | ||
| 690 | nil))) | ||
| 691 | |||
| 687 | (ert-deftest treesit-range-fixup-after-edit () | 692 | (ert-deftest treesit-range-fixup-after-edit () |
| 688 | "Tests if Emacs can fix OOB ranges after deleting text or narrowing." | 693 | "Tests if Emacs can fix OOB ranges after deleting text or narrowing." |
| 689 | (skip-unless (treesit-language-available-p 'json)) | 694 | (skip-unless (treesit-language-available-p 'json)) |