test: Fix hl::face-mapping test on Emacs 28

By using `tsc--hl-ensure` instead of `font-lock-ensure`.

Author: ubolonton

tests/tree-sitter-tests-utils.el

@@ -77,6 +77,12 @@ If RESET is non-nil, also do another full parse and check again."
   "Return t if text at POS is highlighted with FACE."
   (memq face (tsc--listify (get-text-property pos 'face))))
 
+;; In Emacs 28,`font-lock-ensure' checks `font-lock-specified-p' first.
+;; See https://github.com/emacs-tree-sitter/elisp-tree-sitter/pull/220#issuecomment-1120423580.
+(defun tsc--hl-ensure (&optional beg end)
+  (funcall font-lock-ensure-function
+           (or beg (point-min)) (or end (point-max))))
+
 (defun tsc-test-no-op (&rest _args))
 
 (defvar tsc-test-no-op

tests/tree-sitter-tests.el

@@ -448,14 +448,14 @@ source_file (1 . 20)
                     (lambda (capture-name)
                       (not (string= capture-name "keyword"))))
       (tree-sitter-hl-mode)
-      (font-lock-ensure)
+      (tsc--hl-ensure)
       (should (null (get-text-property 1 'face)))
       (ert-info ("Other elements should still be highlighted")
         (should-not (null (next-single-property-change 1 'face))))))
   (ert-info ("Keywords should be highlighted by default")
     (tsc-test-lang-with-file rust "data/types.rs"
       (tree-sitter-hl-mode)
-      (font-lock-ensure)
+      (tsc--hl-ensure)
       (should (tsc--hl-at 1 'tree-sitter-hl-face:keyword))))
   (ert-info ("Keywords should not be highlighted if their capture name is disabled")
     (tsc-test-lang-with-file rust "data/types.rs"
@@ -464,7 +464,7 @@ source_file (1 . 20)
                     (lambda (capture-name)
                       (not (string= capture-name "keyword"))))
       (tree-sitter-hl-mode)
-      (font-lock-ensure)
+      (tsc--hl-ensure)
       (should (null (get-text-property 1 'face)))
       (ert-info ("Other elements should still be highlighted")
         (should-not (null (next-single-property-change 1 'face))))))
@@ -473,7 +473,7 @@ source_file (1 . 20)
       (add-function :override (local 'tree-sitter-hl-face-mapping-function)
                     (lambda (capture-name) nil))
       (tree-sitter-hl-mode)
-      (font-lock-ensure)
+      (tsc--hl-ensure)
       (ert-info ("`face' should be nil for the whole buffer")
         (should (null (get-text-property 1 'face)))
         (should (null (next-single-property-change 1 'face)))))))
@@ -483,7 +483,7 @@ source_file (1 . 20)
   (with-current-buffer (find-file (tsc-test-full-path "data/hl.py"))
     (tree-sitter-hl-mode)
     (font-lock-mode -1)
-    (font-lock-ensure)
+    (tsc--hl-ensure)
     (should (tsc--hl-at 6 'tree-sitter-hl-face:function))))
 
 (ert-deftest debug::jump ()