From: Corwin Brust <corwin@bru.st>
Date: Sun, 4 Feb 2024 02:54:29 +0000 (-0600)
Subject: ; etc/w32-feature.el (harfbuzz): improve test
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~2^2~20^2~161
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=c29b798537eb9573b8f34fa2e91c0e136a095fb4;p=emacs.git

; etc/w32-feature.el (harfbuzz): improve test

This enable the tests to be used with batch (Bug#68919), e.g.

emacs.exe -l etc/w32-feature.el --batch -eval \
  '(ert-run-tests-batch-and-exit)'
---

diff --git a/etc/w32-feature.el b/etc/w32-feature.el
index 8d36e32e0fb..08124d396cb 100644
--- a/etc/w32-feature.el
+++ b/etc/w32-feature.el
@@ -46,9 +46,7 @@
 
 (ert-deftest feature-harfbuzz ()
   (should
-   (eq
-    'harfbuzz
-    (car (frame-parameter nil 'font-backend)))))
+   (eq 'harfbuzz (get 'uniscribe 'font-driver-superseded-by))))
 
 (ert-deftest feature-gnutls ()
   (should (gnutls-available-p)))