diff options
| author | Eli Zaretskii | 2025-05-05 15:16:43 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2025-05-05 15:16:43 +0300 |
| commit | cc6e604da6f274aafeda1476b2e1e2083063c20e (patch) | |
| tree | ce36490aad19a23b64fad9809f6de7a03f13436a /test/src | |
| parent | b84e306be765d5071577f81a12f9557e64732ecf (diff) | |
| download | emacs-cc6e604da6f274aafeda1476b2e1e2083063c20e.tar.gz emacs-cc6e604da6f274aafeda1476b2e1e2083063c20e.zip | |
; More fixes for treesit tests
* test/src/treesit-tests.el (treesit-parse-string)
(treesit-parser-tracking-line-column-p)
(treesit-tracking-line-column-p, treesit--linecol-at)
(treesit--linecol-cache-set, treesit--linecol-cache)
(treesit-languages-require-line-column-tracking): Declare.
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/treesit-tests.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/test/src/treesit-tests.el b/test/src/treesit-tests.el index 8dda02a35ad..84cf490e549 100644 --- a/test/src/treesit-tests.el +++ b/test/src/treesit-tests.el | |||
| @@ -58,6 +58,14 @@ | |||
| 58 | (declare-function treesit-search-forward "treesit.c") | 58 | (declare-function treesit-search-forward "treesit.c") |
| 59 | (declare-function treesit-search-subtree "treesit.c") | 59 | (declare-function treesit-search-subtree "treesit.c") |
| 60 | 60 | ||
| 61 | (declare-function treesit-parse-string "treesit.c") | ||
| 62 | (declare-function treesit-parser-tracking-line-column-p "treesit.c") | ||
| 63 | (declare-function treesit-tracking-line-column-p "treesit.c") | ||
| 64 | (declare-function treesit--linecol-at "treesit.c") | ||
| 65 | (declare-function treesit--linecol-cache-set "treesit.c") | ||
| 66 | (declare-function treesit--linecol-cache "treesit.c") | ||
| 67 | |||
| 68 | |||
| 61 | ;;; Basic API | 69 | ;;; Basic API |
| 62 | 70 | ||
| 63 | (ert-deftest treesit-basic-parsing () | 71 | (ert-deftest treesit-basic-parsing () |
| @@ -290,6 +298,7 @@ | |||
| 290 | (should (equal (treesit--linecol-at 2) '(1 . 1))) | 298 | (should (equal (treesit--linecol-at 2) '(1 . 1))) |
| 291 | (should (equal (treesit--linecol-at 1) '(1 . 0))))) | 299 | (should (equal (treesit--linecol-at 1) '(1 . 0))))) |
| 292 | 300 | ||
| 301 | (defvar treesit-languages-require-line-column-tracking) | ||
| 293 | (ert-deftest treesit-linecol-enable-disable () | 302 | (ert-deftest treesit-linecol-enable-disable () |
| 294 | "Test enabling/disabling linecol tracking." | 303 | "Test enabling/disabling linecol tracking." |
| 295 | (skip-unless (treesit-language-available-p 'json)) | 304 | (skip-unless (treesit-language-available-p 'json)) |