face tests

Author: craynot

tests/php-ts-mode-resources/face.erts

@@ -0,0 +1,51 @@
+Code:
+  (lambda ()
+    (php-ts-mode)
+    (customize-set-variable 'treesit-font-lock-level 4)
+    (setq mode-require-final-newline nil)
+    (let ((face (symbol-name (face-at-point t))))
+        (erase-buffer)
+        (insert face)))
+
+Name: Open php tag
+Point-Char: |
+No-After-Newline: t
+
+=-=
+<?p|hp
+=-=
+php-php-tag
+=-=-=
+
+Name: Keyword `class`
+No-After-Newline: t
+
+=-=
+<?php
+cla|ss Basic {}
+=-=
+php-keyword
+=-=-=
+
+Name: Keyword `public`
+No-After-Newline: t
+
+=-=
+<?php
+
+class Basic {
+    pub|lic function basic() {}
+}
+=-=
+php-keyword
+=-=-=
+
+Name: Class name
+No-After-Newline: t
+
+=-=
+<?php
+class Ba|sic {}
+=-=
+php-class
+=-=-=

tests/php-ts-mode-tests.el

@@ -35,7 +35,11 @@
 ; FIXME: implement basic movements
 (ert-deftest php-ts-mode-test-movement ()
  (skip-unless (treesit-ready-p 'php))
-(ert-test-erts-file (ert-resource-file "movement.erts")))
+ (ert-test-erts-file (ert-resource-file "movement.erts")))
+
+(ert-deftest php-ts-mode-test-face ()
+ (skip-unless (treesit-ready-p 'php))
+ (ert-test-erts-file (ert-resource-file "face.erts")))
 
 (provide 'php-ts-mode-tests)
 ;;; php-ts-mode-tests.el ends here