masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-05 11:49:37 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

; Add even more tests for previous commit

Browse source 
* test/src/treesit-tests.el:
(treesit-range-fixup-after-edit): Make the tests trickier.
This commit is contained in:
Yuan Fu 2024-09-15 00:42:41 -07:00
parent 460b9d705a
commit ae22ad7f62
No known key found for this signature in database
GPG key ID: 56E19BC57664A442
1 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

14
test/src/treesit-tests.el
View file

@ -711,21 +711,23 @@ visible_end.)"
(should (equal (treesit-parser-included-ranges parser) (should (equal (treesit-parser-included-ranges parser)
'((5 . 7) (10 . 13)))) '((5 . 7) (10 . 13))))
;; Narrow in front. ;; Narrow in front, and discard the last one.
(widen) (widen)
(treesit-parser-set-included-ranges parser '((4 . 17))) (treesit-parser-set-included-ranges
parser '((4 . 10) (12 . 14) (16 . 20)))
;; 11111111111111111111 ;; 11111111111111111111
;; [ ] ;; [ ] [ ] [ ]
;; { } narrow ;; { } narrow
(narrow-to-region 1 8) (narrow-to-region 1 8)
(should (equal (treesit-parser-included-ranges parser) (should (equal (treesit-parser-included-ranges parser)
'((4 . 8)))) '((4 . 8))))
;; Narrow in back. ;; Narrow in back, and discard the first one.
(widen) (widen)
(treesit-parser-set-included-ranges parser '((4 . 17))) (treesit-parser-set-included-ranges
parser '((1 . 5) (7 . 9) (11 . 17)))
;; 11111111111111111111 ;; 11111111111111111111
;; [ ] ;; [ ] [ ] [ ]
;; { } narrow ;; { } narrow
(narrow-to-region 15 20) (narrow-to-region 15 20)
(should (equal (treesit-parser-included-ranges parser) (should (equal (treesit-parser-included-ranges parser)