diff options
| author | Yuan Fu | 2022-12-12 18:14:30 -0800 |
|---|---|---|
| committer | Yuan Fu | 2022-12-12 21:12:21 -0800 |
| commit | a5272e2a7cc77f17efa144c5482dcfcb62d563d3 (patch) | |
| tree | 37878136e0cdef6e64a62ce7fbc2bd1e193e367c /test/src | |
| parent | 489bcacc7c30207b9dbaeb90b9002255af8bfe64 (diff) | |
| download | emacs-a5272e2a7cc77f17efa144c5482dcfcb62d563d3.tar.gz emacs-a5272e2a7cc77f17efa144c5482dcfcb62d563d3.zip | |
; * test/src/treesit-tests.el: Add outline headers.
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/treesit-tests.el | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/test/src/treesit-tests.el b/test/src/treesit-tests.el index 1cc2217bd3b..188a9557928 100644 --- a/test/src/treesit-tests.el +++ b/test/src/treesit-tests.el | |||
| @@ -54,6 +54,7 @@ | |||
| 54 | (declare-function treesit-node-descendant-for-range "treesit.c") | 54 | (declare-function treesit-node-descendant-for-range "treesit.c") |
| 55 | (declare-function treesit-node-eq "treesit.c") | 55 | (declare-function treesit-node-eq "treesit.c") |
| 56 | 56 | ||
| 57 | ;;; Basic API | ||
| 57 | 58 | ||
| 58 | (ert-deftest treesit-basic-parsing () | 59 | (ert-deftest treesit-basic-parsing () |
| 59 | "Test basic parsing routines." | 60 | "Test basic parsing routines." |
| @@ -161,6 +162,8 @@ | |||
| 161 | (should (treesit-node-eq root-node root-node)) | 162 | (should (treesit-node-eq root-node root-node)) |
| 162 | (should (not (treesit-node-eq root-node doc-node)))))) | 163 | (should (not (treesit-node-eq root-node doc-node)))))) |
| 163 | 164 | ||
| 165 | ;;; Indirect buffer | ||
| 166 | |||
| 164 | (ert-deftest treesit-indirect-buffer () | 167 | (ert-deftest treesit-indirect-buffer () |
| 165 | "Tests for indirect buffers." | 168 | "Tests for indirect buffers." |
| 166 | (skip-unless (treesit-language-available-p 'json)) | 169 | (skip-unless (treesit-language-available-p 'json)) |
| @@ -195,6 +198,8 @@ | |||
| 195 | (kill-buffer base) | 198 | (kill-buffer base) |
| 196 | (kill-buffer indirect)))) | 199 | (kill-buffer indirect)))) |
| 197 | 200 | ||
| 201 | ;;; Query | ||
| 202 | |||
| 198 | (ert-deftest treesit-query-api () | 203 | (ert-deftest treesit-query-api () |
| 199 | "Tests for query API." | 204 | "Tests for query API." |
| 200 | (skip-unless (treesit-language-available-p 'json)) | 205 | (skip-unless (treesit-language-available-p 'json)) |
| @@ -249,6 +254,8 @@ | |||
| 249 | '((type field: (_) @capture :anchor) | 254 | '((type field: (_) @capture :anchor) |
| 250 | :? :* :+ "return"))))))) | 255 | :? :* :+ "return"))))))) |
| 251 | 256 | ||
| 257 | ;;; Narrow | ||
| 258 | |||
| 252 | (ert-deftest treesit-narrow () | 259 | (ert-deftest treesit-narrow () |
| 253 | "Tests if narrowing works." | 260 | "Tests if narrowing works." |
| 254 | (skip-unless (treesit-language-available-p 'json)) | 261 | (skip-unless (treesit-language-available-p 'json)) |
| @@ -385,6 +392,8 @@ visible_end.)" | |||
| 385 | ;; that calls that. | 392 | ;; that calls that. |
| 386 | ))) | 393 | ))) |
| 387 | 394 | ||
| 395 | ;;; Range | ||
| 396 | |||
| 388 | (ert-deftest treesit-range () | 397 | (ert-deftest treesit-range () |
| 389 | "Tests if range works." | 398 | "Tests if range works." |
| 390 | (skip-unless (treesit-language-available-p 'json)) | 399 | (skip-unless (treesit-language-available-p 'json)) |
| @@ -438,6 +447,8 @@ visible_end.)" | |||
| 438 | ;; TODO: More tests. | 447 | ;; TODO: More tests. |
| 439 | ))) | 448 | ))) |
| 440 | 449 | ||
| 450 | ;;; Multiple language | ||
| 451 | |||
| 441 | (ert-deftest treesit-multi-lang () | 452 | (ert-deftest treesit-multi-lang () |
| 442 | "Tests if parsing multiple language works." | 453 | "Tests if parsing multiple language works." |
| 443 | (skip-unless (and (treesit-language-available-p 'html) | 454 | (skip-unless (and (treesit-language-available-p 'html) |
| @@ -474,6 +485,8 @@ visible_end.)" | |||
| 474 | ;; TODO: More tests. | 485 | ;; TODO: More tests. |
| 475 | ))) | 486 | ))) |
| 476 | 487 | ||
| 488 | ;;; Supplemental functions | ||
| 489 | |||
| 477 | (ert-deftest treesit-parser-supplemental () | 490 | (ert-deftest treesit-parser-supplemental () |
| 478 | "Supplemental node functions." | 491 | "Supplemental node functions." |
| 479 | (skip-unless (treesit-language-available-p 'json)) | 492 | (skip-unless (treesit-language-available-p 'json)) |