; Fix one of ispell-tests

* test/lisp/textmodes/ispell-tests/ispell-tests.el
(ispell/ispell-accept-buffer-local-defs/simple): Don't treat
Aspell as Ispell even if it pretends to be.  (Bug#80165)

1 files changed, 5 insertions, 0 deletions

diff --git a/test/lisp/textmodes/ispell-tests/ispell-tests.el b/test/lisp/textmodes/ispell-tests/ispell-tests.el
index 15687ed6f0f..95f88be3b51 100644
--- a/test/lisp/textmodes/ispell-tests/ispell-tests.el
+++ b/test/lisp/textmodes/ispell-tests/ispell-tests.el
@@ -779,6 +779,11 @@ hunspell.  Hence skipping."
       (ispell-tests--letopt
           ((ispell-program-name (ispell-tests--some-backend)))
 
+        (ispell-check-version)
+        (if (and ispell-really-aspell
+                 (equal ispell-program-name "ispell"))
+            ;; Don't let Aspell hide its true nature.
+            (setq ispell-program-name "aspell"))
         (let ((test-dictname (ispell-tests--some-valid-dictionary ispell-program-name))
               (test-extcharmode "~latin3")
               (test-parser "~testparser")