diff options
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/treesit-tests.el | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/test/src/treesit-tests.el b/test/src/treesit-tests.el index 5aa12e8aa0e..468cd221ef9 100644 --- a/test/src/treesit-tests.el +++ b/test/src/treesit-tests.el | |||
| @@ -977,22 +977,22 @@ and \"]\"." | |||
| 977 | 977 | ||
| 978 | (defvar treesit--ert-defun-navigation-nested-master | 978 | (defvar treesit--ert-defun-navigation-nested-master |
| 979 | ;; START PREV-BEG NEXT-END PREV-END NEXT-BEG | 979 | ;; START PREV-BEG NEXT-END PREV-END NEXT-BEG |
| 980 | '((0 103 105 102 106) ; Between Beg of parent & 1st sibling. | 980 | '((0 103 105 102 104) ; Between Beg of parent & 1st sibling. |
| 981 | (1 103 105 102 106) ; Beg of 1st sibling. | 981 | (1 103 105 102 106) ; Beg of 1st sibling. |
| 982 | (2 104 105 102 106) ; Inside 1st sibling. | 982 | (2 104 105 102 106) ; Inside 1st sibling. |
| 983 | (3 104 107 102 109) ; End of 1st sibling. | 983 | (3 104 107 102 106) ; End of 1st sibling. |
| 984 | (4 104 107 102 109) ; Between 1st sibling & 2nd sibling. | 984 | (4 104 107 105 106) ; Between 1st sibling & 2nd sibling. |
| 985 | (5 104 107 102 109) ; Beg of 2nd sibling. | 985 | (5 104 107 105 109) ; Beg of 2nd sibling. |
| 986 | (6 106 107 105 109) ; Inside 2nd sibling. | 986 | (6 106 107 105 109) ; Inside 2nd sibling. |
| 987 | (7 106 108 105 109) ; End of 2nd sibling. | 987 | (7 106 108 105 109) ; End of 2nd sibling. |
| 988 | (8 106 108 105 109) ; Between 2nd sibling & end of parent. | 988 | (8 106 108 107 109) ; Between 2nd sibling & end of parent. |
| 989 | (9 103 110 102 nil) ; End of parent. | 989 | (9 103 110 102 109) ; End of parent. |
| 990 | 990 | ||
| 991 | (100 nil 102 nil 103) ; Before 1st parent. | 991 | (100 nil 102 nil 101) ; Before 1st parent. |
| 992 | (101 nil 102 nil 103) ; Beg of 1st parent. | 992 | (101 nil 102 nil 103) ; Beg of 1st parent. |
| 993 | (102 101 108 nil 109) ; Between 1st & 2nd parent. | 993 | (102 101 108 102 103) ; Between 1st & 2nd parent. |
| 994 | (103 101 108 nil 109) ; Beg of 2nd parent. | 994 | (103 101 108 102 109) ; Beg of 2nd parent. |
| 995 | (110 109 nil 108 nil) ; After 3rd parent. | 995 | (110 109 nil 110 nil) ; After 3rd parent. |
| 996 | ) | 996 | ) |
| 997 | "Master of nested navigation test. | 997 | "Master of nested navigation test. |
| 998 | 998 | ||
| @@ -1000,7 +1000,7 @@ This basically says, e.g., \"start with point on marker 0, go to | |||
| 1000 | the prev-beg, now point should be at marker 103\", etc.") | 1000 | the prev-beg, now point should be at marker 103\", etc.") |
| 1001 | 1001 | ||
| 1002 | (defvar treesit--ert-defun-navigation-top-level-master | 1002 | (defvar treesit--ert-defun-navigation-top-level-master |
| 1003 | ;; START PREV-BEG NEXT-END NEXT-BEG PREV-END | 1003 | ;; START PREV-BEG NEXT-END PREV-END NEXT-BEG |
| 1004 | '((0 103 108 102 109) ; Between Beg of parent & 1st sibling. | 1004 | '((0 103 108 102 109) ; Between Beg of parent & 1st sibling. |
| 1005 | (1 103 108 102 109) ; Beg of 1st sibling. | 1005 | (1 103 108 102 109) ; Beg of 1st sibling. |
| 1006 | (2 103 108 102 109) ; Inside 1st sibling. | 1006 | (2 103 108 102 109) ; Inside 1st sibling. |
| @@ -1010,14 +1010,14 @@ the prev-beg, now point should be at marker 103\", etc.") | |||
| 1010 | (6 103 108 102 109) ; Inside 2nd sibling. | 1010 | (6 103 108 102 109) ; Inside 2nd sibling. |
| 1011 | (7 103 108 102 109) ; End of 2nd sibling. | 1011 | (7 103 108 102 109) ; End of 2nd sibling. |
| 1012 | (8 103 108 102 109) ; Between 2nd sibling & end of parent. | 1012 | (8 103 108 102 109) ; Between 2nd sibling & end of parent. |
| 1013 | (9 103 110 102 nil) ; End of parent. | 1013 | (9 103 110 102 109) ; End of parent. |
| 1014 | 1014 | ||
| 1015 | ;; Top-level defuns should be identical to the nested test. | 1015 | ;; Top-level defuns should be identical to the nested test. |
| 1016 | (100 nil 102 nil 103) ; Before 1st parent. | 1016 | (100 nil 102 nil 101) ; Before 1st parent. |
| 1017 | (101 nil 102 nil 103) ; Beg of 1st parent. | 1017 | (101 nil 102 nil 103) ; Beg of 1st parent. |
| 1018 | (102 101 108 nil 109) ; Between 1st & 2nd parent. | 1018 | (102 101 108 102 103) ; Between 1st & 2nd parent. |
| 1019 | (103 101 108 nil 109) ; Beg of 2nd parent. | 1019 | (103 101 108 102 109) ; Beg of 2nd parent. |
| 1020 | (110 109 nil 108 nil) ; After 3rd parent. | 1020 | (110 109 nil 110 nil) ; After 3rd parent. |
| 1021 | ) | 1021 | ) |
| 1022 | "Master of top-level navigation test.") | 1022 | "Master of top-level navigation test.") |
| 1023 | 1023 | ||