aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorPaul Eggert2025-12-26 10:20:45 -0800
committerPaul Eggert2025-12-26 10:22:12 -0800
commit481ad70d5cb5ef68a456152a6bab88e27f9bd319 (patch)
tree0759d09b23efb6b0b7bdf2be23412a58de8ecd68 /test
parent5b461a49305ac5db329f28f719c6f9aa0aafd2cc (diff)
downloademacs-481ad70d5cb5ef68a456152a6bab88e27f9bd319.tar.gz
emacs-481ad70d5cb5ef68a456152a6bab88e27f9bd319.zip
December 2025 spelling fixes
Some of the fixes are to continue to use American rather than British spelling. * doc/misc/modus-themes.org (my-modus-themes-engraved-faces): Fix misspelled ‘:foreground’s. * etc/themes/modus-themes.el (modus-themes-faces): Fix misspelled ‘modus-themes-bold’. * lisp/emacs-lisp/rx.el (rx--normalize-char-pattern): Rename from rx--normalise-char-pattern. (rx--optimize-or-args): Rename from rx--optimise-or-args. * lisp/frame.el (frame--special-parameters): Fix misspelled "right-divider-width". * lisp/net/tramp.el (tramp-fingerprint-prompt-regexp): Use American spelling “centered”, to match current libfprintf. * lisp/org/org-fold-core.el (org-fold-core--optimize-for-huge-buffers): Rename from org-fold-core--optimise-for-huge-buffers. (org-fold-core-update-optimization): Rename from org-fold-core-update-optimisation, leaving an alias behind. (org-fold-core-remove-optimization): Rename from org-fold-core-remove-optimisation, leaving an alias behind. * lisp/org/org.el (org-advertized-archive-subtree): This alias is now obsolete. * lisp/play/zone.el (zone-ignored-buffers): Fix misspelling of ‘zone--buffer-encrypted-p’. * lisp/progmodes/csharp-mode.el (csharp-ts-mode-faces): Fix misspelling of ‘csharp’ group. * lisp/vc/vc.el (vc-clonable-backends-custom-type): Rename from vc-cloneable-backends-custom-type, leaving an alias behind. * test/lisp/emacs-lisp/bytecomp-tests.el: (bytecomp-tests--warn-arity-non-compiled-callee): Rename from bytecomp-tests--warn-arity-noncompiled-callee. (bytecomp-test-defface-spec): Reword a deliberate misspelling of “default” that is so common I don’t want it to pollute the spelling dictionary. * test/lisp/emacs-lisp/package-vc-tests.el: (package-vc-tests-preserve-artifacts): Rename from package-vc-tests-preserve-artifacts. * test/lisp/eshell/em-prompt-tests.el: (em-prompt-test/forward-backward-paragraph-1): Reword a deliberate misspelling of “goodbye” that is so common I don’t want it to pollute the spelling dictionary.
Diffstat (limited to 'test')
-rw-r--r--test/lisp/calendar/todo-mode-tests.el2
-rw-r--r--test/lisp/completion-preview-tests.el2
-rw-r--r--test/lisp/emacs-lisp/bytecomp-tests.el10
-rw-r--r--test/lisp/emacs-lisp/package-vc-tests.el18
-rw-r--r--test/lisp/erc/resources/base/modes/speaker-status.eld2
-rw-r--r--test/lisp/erc/resources/services/regain/taken-ghost.eld2
-rw-r--r--test/lisp/erc/resources/services/regain/taken-regain.eld2
-rw-r--r--test/lisp/eshell/em-prompt-tests.el4
-rw-r--r--test/lisp/net/tramp-tests.el2
-rw-r--r--test/lisp/progmodes/cperl-mode-tests.el2
-rw-r--r--test/lisp/progmodes/elixir-ts-mode-resources/indent.erts2
-rw-r--r--test/lisp/textmodes/ispell-tests/ispell-tests.el36
-rw-r--r--test/lisp/vc/diff-mode-tests.el4
-rw-r--r--test/lisp/vc/log-edit-tests.el2
-rw-r--r--test/manual/etags/merc-src/accumulator.m2
-rw-r--r--test/src/editfns-tests.el2
-rw-r--r--test/src/treesit-tests.el2
17 files changed, 48 insertions, 48 deletions
diff --git a/test/lisp/calendar/todo-mode-tests.el b/test/lisp/calendar/todo-mode-tests.el
index 157a4c3168c..6beff5e976d 100644
--- a/test/lisp/calendar/todo-mode-tests.el
+++ b/test/lisp/calendar/todo-mode-tests.el
@@ -825,7 +825,7 @@ automatic testing."
825Calling todo-show should display the last current todo file, not 825Calling todo-show should display the last current todo file, not
826necessarily the new file. After deleting the new file, todo-show 826necessarily the new file. After deleting the new file, todo-show
827should display the previously current (or default) todo file." 827should display the previously current (or default) todo file."
828 ;; This test has been reported to fail unreproducibly (bug#58473) or 828 ;; This test has been reported to fail irreproducibly (bug#58473) or
829 ;; reproducibly only on the ZFS filesystem (bug#76381). Since the 829 ;; reproducibly only on the ZFS filesystem (bug#76381). Since the
830 ;; causes are still unknown, don't run it with 'make check'. 830 ;; causes are still unknown, don't run it with 'make check'.
831 :tags '(:unstable) 831 :tags '(:unstable)
diff --git a/test/lisp/completion-preview-tests.el b/test/lisp/completion-preview-tests.el
index 8ce2a30bb27..c44fe313cfe 100644
--- a/test/lisp/completion-preview-tests.el
+++ b/test/lisp/completion-preview-tests.el
@@ -378,7 +378,7 @@ instead."
378 (should-not exit-fn-args)))) 378 (should-not exit-fn-args))))
379 379
380(ert-deftest completion-preview-insert-mid-symbol () 380(ert-deftest completion-preview-insert-mid-symbol ()
381 "Test `completion-preview-insert-word' when point is in a mulit-word symbol." 381 "Test `completion-preview-insert-word' when point is in a multi-word symbol."
382 (with-temp-buffer 382 (with-temp-buffer
383 (setq-local completion-at-point-functions 383 (setq-local completion-at-point-functions
384 (list 384 (list
diff --git a/test/lisp/emacs-lisp/bytecomp-tests.el b/test/lisp/emacs-lisp/bytecomp-tests.el
index 0245ad3c977..a9cc6228e40 100644
--- a/test/lisp/emacs-lisp/bytecomp-tests.el
+++ b/test/lisp/emacs-lisp/bytecomp-tests.el
@@ -1313,11 +1313,11 @@ byte-compiled. Run with dynamic binding."
1313 "warn-make-process-missing-keyword-value.el" 1313 "warn-make-process-missing-keyword-value.el"
1314 "missing value for keyword argument :command") 1314 "missing value for keyword argument :command")
1315 1315
1316;;;; NEW STOUGH, 2025-07-13 1316;;;; NEW STUFF, 2025-07-13
1317(bytecomp--define-warning-file-test "macro-warning-position.el" ":18:8:") 1317(bytecomp--define-warning-file-test "macro-warning-position.el" ":18:8:")
1318 1318
1319(bytecomp--define-warning-file-test "macro-warning-position-2.el" ":18:8:") 1319(bytecomp--define-warning-file-test "macro-warning-position-2.el" ":18:8:")
1320;;;; END OF NEW STOUGH 1320;;;; END OF NEW STUFF
1321 1321
1322;;;; Macro expansion. 1322;;;; Macro expansion.
1323 1323
@@ -1412,7 +1412,7 @@ byte-compiled. Run with dynamic binding."
1412 1412
1413(defun bytecomp-tests--f (x y &optional u v) (list x y u v)) 1413(defun bytecomp-tests--f (x y &optional u v) (list x y u v))
1414 1414
1415(ert-deftest bytecomp-tests--warn-arity-noncompiled-callee () 1415(ert-deftest bytecomp-tests--warn-arity-non-compiled-callee ()
1416 "Check that calls to non-compiled functions are arity-checked (bug#78685)" 1416 "Check that calls to non-compiled functions are arity-checked (bug#78685)"
1417 (should (not (compiled-function-p (symbol-function 'bytecomp-tests--f)))) 1417 (should (not (compiled-function-p (symbol-function 'bytecomp-tests--f))))
1418 (let* ((source (concat ";;; -*-lexical-binding:t-*-\n" 1418 (let* ((source (concat ";;; -*-lexical-binding:t-*-\n"
@@ -2081,8 +2081,8 @@ EXPECTED-POINT BINDINGS (MODES \\='\\='(ruby-mode js-mode python-mode)) \
2081 (df '((((class color grayscale) (max-colors 75) (background light)) 2081 (df '((((class color grayscale) (max-colors 75) (background light))
2082 :foreground "cyan")))) 2082 :foreground "cyan"))))
2083 (bytecomp--with-warning-test 2083 (bytecomp--with-warning-test
2084 (rx "Bad face display `defualt'") 2084 (rx "Bad face display `bad-default'")
2085 (df '((defualt :foreground "cyan")))) 2085 (df '((bad-default :foreground "cyan"))))
2086 (bytecomp--with-warning-test 2086 (bytecomp--with-warning-test
2087 (rx "`:inverse' is not a valid face attribute keyword") 2087 (rx "`:inverse' is not a valid face attribute keyword")
2088 (df '((t :background "blue" :inverse t)))) 2088 (df '((t :background "blue" :inverse t))))
diff --git a/test/lisp/emacs-lisp/package-vc-tests.el b/test/lisp/emacs-lisp/package-vc-tests.el
index 3a6145f39fb..90ac0c994f4 100644
--- a/test/lisp/emacs-lisp/package-vc-tests.el
+++ b/test/lisp/emacs-lisp/package-vc-tests.el
@@ -46,7 +46,7 @@
46;; Silence byte-compiler 46;; Silence byte-compiler
47(defvar message-auto-save-directory) 47(defvar message-auto-save-directory)
48 48
49(defvar package-vc-tests-preserve-artefacts nil 49(defvar package-vc-tests-preserve-artifacts nil
50 "When non-nil preserve temporary files and buffers produced by tests. 50 "When non-nil preserve temporary files and buffers produced by tests.
51Each test produces a new temporary directory for each package under 51Each test produces a new temporary directory for each package under
52test. This leads to creation of [length of `package-vc-tests-packages'] 52test. This leads to creation of [length of `package-vc-tests-packages']
@@ -140,7 +140,7 @@ the package. Otherwise each entry is in a form of PKG."
140;; TODO: add test for deleting packages, with asserting 140;; TODO: add test for deleting packages, with asserting
141;; `package-vc-selected-packages' 141;; `package-vc-selected-packages'
142 142
143;; TODO: clarify `package-vc-install-all' behaviour with regards to 143;; TODO: clarify `package-vc-install-all' behavior with regards to
144;; packages installed with `package-vc' but not stored in 144;; packages installed with `package-vc' but not stored in
145;; `package-vc-selected-packages' i.e., packages from ELPAs 145;; `package-vc-selected-packages' i.e., packages from ELPAs
146 146
@@ -412,7 +412,7 @@ names."
412 ;; - keyring is saved in test directory 412 ;; - keyring is saved in test directory
413 (package-gnupghome-dir (expand-file-name "gnupg" 413 (package-gnupghome-dir (expand-file-name "gnupg"
414 package-user-dir)) 414 package-user-dir))
415 ;; - `package' has been initialised, and there are no 415 ;; - `package' has been initialized, and there are no
416 ;; `package-archives' defined 416 ;; `package-archives' defined
417 (package-archives (unless package--initialized 417 (package-archives (unless package--initialized
418 (let (package-archives) 418 (let (package-archives)
@@ -440,7 +440,7 @@ names."
440 '(package-vc-tests-install-from-elpa 440 '(package-vc-tests-install-from-elpa
441 package-vc-tests-checkout-from-elpa-install-from-checkout)) 441 package-vc-tests-checkout-from-elpa-install-from-checkout))
442 collect name)) 442 collect name))
443 ;; - make test packages recognisable by `package' and 443 ;; - make test packages recognizable by `package' and
444 ;; `package-vc' internals: 444 ;; `package-vc' internals:
445 (package-archive-contents 445 (package-archive-contents
446 (mapcar 446 (mapcar
@@ -472,7 +472,7 @@ names."
472 package-vc-tests-elpa-packages)))) 472 package-vc-tests-elpa-packages))))
473 (package-vc--archive-data-alist 473 (package-vc--archive-data-alist
474 '((test-elpa :version 1 :default-vc Git))) 474 '((test-elpa :version 1 :default-vc Git)))
475 ;; - `vc-guess-backend-url' is recognising bundles as `Git' 475 ;; - `vc-guess-backend-url' is recognizing bundles as `Git'
476 ;; repositories: 476 ;; repositories:
477 (vc-clone-heuristic-alist 477 (vc-clone-heuristic-alist
478 `((,(rx "test-package-" (1+ digit) ".bundle" eos) 478 `((,(rx "test-package-" (1+ digit) ".bundle" eos)
@@ -496,7 +496,7 @@ names."
496Unbind package defined symbols, and remove package defined features and 496Unbind package defined symbols, and remove package defined features and
497entries from `load-path',`load-history', and `Info-directory-list'. 497entries from `load-path',`load-history', and `Info-directory-list'.
498Delete temporary directories and buffers produced by tests, except for 498Delete temporary directories and buffers produced by tests, except for
499when PKG matches `package-vc-tests-preserve-artefacts'." 499when PKG matches `package-vc-tests-preserve-artifacts'."
500 (let ((pattern (rx string-start (literal package-vc-tests-dir)))) 500 (let ((pattern (rx string-start (literal package-vc-tests-dir))))
501 (dolist (entry load-history) 501 (dolist (entry load-history)
502 (when-let* ((file (car-safe entry)) 502 (when-let* ((file (car-safe entry))
@@ -534,9 +534,9 @@ when PKG matches `package-vc-tests-preserve-artefacts'."
534 (package-vc-tests-log-buffer-name pkg 534 (package-vc-tests-log-buffer-name pkg
535 type))) 535 type)))
536 '(doc make))))) 536 '(doc make)))))
537 (if (or (memq package-vc-tests-preserve-artefacts `(t ,pkg)) 537 (if (or (memq package-vc-tests-preserve-artifacts `(t ,pkg))
538 (and (listp package-vc-tests-preserve-artefacts) 538 (and (listp package-vc-tests-preserve-artifacts)
539 (memq pkg package-vc-tests-preserve-artefacts))) 539 (memq pkg package-vc-tests-preserve-artifacts)))
540 (let ((buffers 540 (let ((buffers
541 (mapconcat (lambda (buffer) 541 (mapconcat (lambda (buffer)
542 (with-current-buffer buffer 542 (with-current-buffer buffer
diff --git a/test/lisp/erc/resources/base/modes/speaker-status.eld b/test/lisp/erc/resources/base/modes/speaker-status.eld
index 4a7d508e35c..fe3654f9117 100644
--- a/test/lisp/erc/resources/base/modes/speaker-status.eld
+++ b/test/lisp/erc/resources/base/modes/speaker-status.eld
@@ -22,7 +22,7 @@
22 (0.00 ":irc.example.net 372 tester : ") 22 (0.00 ":irc.example.net 372 tester : ")
23 (0.00 ":irc.example.net 372 tester : Have fun with the image!") 23 (0.00 ":irc.example.net 372 tester : Have fun with the image!")
24 (0.00 ":irc.example.net 376 tester :End of message of the day.") 24 (0.00 ":irc.example.net 376 tester :End of message of the day.")
25 (0.00 ":irc.example.net 501 tester x :is not a recognised user mode.") 25 (0.00 ":irc.example.net 501 tester x :is not a recognized user mode.")
26 (0.00 ":NickServ!NickServ@services.int NOTICE tester :Welcome to foonet, tester! Here on foonet, we provide services to enable the registration of nicknames and channels! For details, type \2/msg NickServ help\2 and \2/msg ChanServ help\2.")) 26 (0.00 ":NickServ!NickServ@services.int NOTICE tester :Welcome to foonet, tester! Here on foonet, we provide services to enable the registration of nicknames and channels! For details, type \2/msg NickServ help\2 and \2/msg ChanServ help\2."))
27 27
28((mode 10 "MODE tester +i") 28((mode 10 "MODE tester +i")
diff --git a/test/lisp/erc/resources/services/regain/taken-ghost.eld b/test/lisp/erc/resources/services/regain/taken-ghost.eld
index d5afd124a43..0a02f4dedb1 100644
--- a/test/lisp/erc/resources/services/regain/taken-ghost.eld
+++ b/test/lisp/erc/resources/services/regain/taken-ghost.eld
@@ -34,7 +34,7 @@
34 34
35((mode 10 "MODE dummy` +i")) 35((mode 10 "MODE dummy` +i"))
36((privmsg 10 "PRIVMSG NickServ :GHOST dummy") 36((privmsg 10 "PRIVMSG NickServ :GHOST dummy")
37 (0.00 ":irc.example.net 501 dummy` x :is not a recognised user mode.") 37 (0.00 ":irc.example.net 501 dummy` x :is not a recognized user mode.")
38 (0.00 ":irc.example.net NOTICE dummy` :*** You are connected to irc.example.net using TLS (SSL) cipher 'TLS1.3-ECDHE-RSA-AES-256-GCM-AEAD'") 38 (0.00 ":irc.example.net NOTICE dummy` :*** You are connected to irc.example.net using TLS (SSL) cipher 'TLS1.3-ECDHE-RSA-AES-256-GCM-AEAD'")
39 (0.03 ":dummy`!dummy@10.0.2.100 MODE dummy` :+i") 39 (0.03 ":dummy`!dummy@10.0.2.100 MODE dummy` :+i")
40 (0.02 ":NickServ!NickServ@services.int NOTICE dummy` :\2dummy\2 has been ghosted.")) 40 (0.02 ":NickServ!NickServ@services.int NOTICE dummy` :\2dummy\2 has been ghosted."))
diff --git a/test/lisp/erc/resources/services/regain/taken-regain.eld b/test/lisp/erc/resources/services/regain/taken-regain.eld
index 22635d4cc89..dacd6d866b0 100644
--- a/test/lisp/erc/resources/services/regain/taken-regain.eld
+++ b/test/lisp/erc/resources/services/regain/taken-regain.eld
@@ -31,7 +31,7 @@
31 (0.00 ":irc.example.net 375 dummy` :irc.example.net message of the day") 31 (0.00 ":irc.example.net 375 dummy` :irc.example.net message of the day")
32 (0.00 ":irc.example.net 372 dummy` : Have fun with the image!") 32 (0.00 ":irc.example.net 372 dummy` : Have fun with the image!")
33 (0.00 ":irc.example.net 376 dummy` :End of message of the day.") 33 (0.00 ":irc.example.net 376 dummy` :End of message of the day.")
34 (0.00 ":irc.example.net 501 dummy` x :is not a recognised user mode.") 34 (0.00 ":irc.example.net 501 dummy` x :is not a recognized user mode.")
35 (0.00 ":irc.example.net NOTICE dummy` :*** You are connected to irc.example.net using TLS (SSL) cipher 'TLS1.3-ECDHE-RSA-AES-256-GCM-AEAD'")) 35 (0.00 ":irc.example.net NOTICE dummy` :*** You are connected to irc.example.net using TLS (SSL) cipher 'TLS1.3-ECDHE-RSA-AES-256-GCM-AEAD'"))
36 36
37((mode 10 "MODE dummy` +i")) 37((mode 10 "MODE dummy` +i"))
diff --git a/test/lisp/eshell/em-prompt-tests.el b/test/lisp/eshell/em-prompt-tests.el
index ed2cd02a516..7b5821c3337 100644
--- a/test/lisp/eshell/em-prompt-tests.el
+++ b/test/lisp/eshell/em-prompt-tests.el
@@ -201,10 +201,10 @@ This tests the case when `eshell-highlight-prompt' is nil."
201 (eshell-insert-command "echo 'high five'") 201 (eshell-insert-command "echo 'high five'")
202 (eshell-insert-command "echo 'up high\n\ndown low'") 202 (eshell-insert-command "echo 'up high\n\ndown low'")
203 (eshell-insert-command "echo 'too slow'") 203 (eshell-insert-command "echo 'too slow'")
204 (insert "echo goodby") ; A partially-entered command. 204 (insert "echo good") ; A partially-entered command.
205 (ert-info ("Go back to the last prompt") 205 (ert-info ("Go back to the last prompt")
206 (eshell-backward-paragraph) 206 (eshell-backward-paragraph)
207 (should (at-prompt-for-command-p "echo goodby"))) 207 (should (at-prompt-for-command-p "echo good")))
208 (ert-info ("Go back to the paragraph break") 208 (ert-info ("Go back to the paragraph break")
209 (eshell-backward-paragraph 2) 209 (eshell-backward-paragraph 2)
210 (should (looking-at "\ndown low\n"))) 210 (should (looking-at "\ndown low\n")))
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 3eb54f2b58d..979ff7edfc0 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -3883,7 +3883,7 @@ This tests also `access-file', `file-readable-p',
3883 (delete-file tmp-name2) 3883 (delete-file tmp-name2)
3884 3884
3885 ;; A non-existent or cyclic link target makes the file 3885 ;; A non-existent or cyclic link target makes the file
3886 ;; unaccessible. 3886 ;; inaccessible.
3887 (dolist (target 3887 (dolist (target
3888 `("does-not-exist" ,(file-name-nondirectory tmp-name2))) 3888 `("does-not-exist" ,(file-name-nondirectory tmp-name2)))
3889 (make-symbolic-link target tmp-name2) 3889 (make-symbolic-link target tmp-name2)
diff --git a/test/lisp/progmodes/cperl-mode-tests.el b/test/lisp/progmodes/cperl-mode-tests.el
index 424e89604b3..94d73322c3a 100644
--- a/test/lisp/progmodes/cperl-mode-tests.el
+++ b/test/lisp/progmodes/cperl-mode-tests.el
@@ -217,7 +217,7 @@ attributes, prototypes and signatures."
217 (goto-char end-of-sub)))))) 217 (goto-char end-of-sub))))))
218 218
219(ert-deftest cperl-test-fontify-builtin-constants () 219(ert-deftest cperl-test-fontify-builtin-constants ()
220 "Test fontificiation of the floating point constants \"nan\" and \"inf\"." 220 "Test fontification of the floating point constants \"nan\" and \"inf\"."
221 (skip-unless (eq cperl-test-mode #'cperl-mode)) 221 (skip-unless (eq cperl-test-mode #'cperl-mode))
222 (let ((constants '("my $min=-builtin::inf;" 222 (let ((constants '("my $min=-builtin::inf;"
223 "my $unknown = builtin::nan;" 223 "my $unknown = builtin::nan;"
diff --git a/test/lisp/progmodes/elixir-ts-mode-resources/indent.erts b/test/lisp/progmodes/elixir-ts-mode-resources/indent.erts
index f2d0eacee5b..8cbae399f3b 100644
--- a/test/lisp/progmodes/elixir-ts-mode-resources/indent.erts
+++ b/test/lisp/progmodes/elixir-ts-mode-resources/indent.erts
@@ -79,7 +79,7 @@ def foo() do
79end 79end
80=-=-= 80=-=-=
81 81
82Name: Bitstring mulitline 82Name: Bitstring multiline
83 83
84=-= 84=-=
85<<12, 22, 85<<12, 22,
diff --git a/test/lisp/textmodes/ispell-tests/ispell-tests.el b/test/lisp/textmodes/ispell-tests/ispell-tests.el
index 8f733d05d2c..15687ed6f0f 100644
--- a/test/lisp/textmodes/ispell-tests/ispell-tests.el
+++ b/test/lisp/textmodes/ispell-tests/ispell-tests.el
@@ -135,7 +135,7 @@ Give `ispell-program-name' a real spellchecker."
135 "Check that `ispell-call-process' works. 135 "Check that `ispell-call-process' works.
136This test fails, because HOME is not defined. 136This test fails, because HOME is not defined.
137This should not be the case, because `ispell-call-process' 137This should not be the case, because `ispell-call-process'
138whould be making sure that the directory for running 138would be making sure that the directory for running
139the backend's process exists." 139the backend's process exists."
140 :expected-result :failed 140 :expected-result :failed
141 (should 141 (should
@@ -175,7 +175,7 @@ makes it useless."
175 (equal (buffer-string) string-to-send)))))) 175 (equal (buffer-string) string-to-send))))))
176 176
177(ert-deftest ispell/ispell-call-process-region/cat-random () 177(ert-deftest ispell/ispell-call-process-region/cat-random ()
178 "Check `ispell-call-process-region' works with unrelad process. 178 "Check `ispell-call-process-region' works with unrelated process.
179This test is expected to fail, because at the moment, there is 179This test is expected to fail, because at the moment, there is
180a construction (let ((default-directory `default-directory'))...) in 180a construction (let ((default-directory `default-directory'))...) in
181the `ispell-with-safe-default-directory' function, which effectively 181the `ispell-with-safe-default-directory' function, which effectively
@@ -212,7 +212,7 @@ makes it useless."
212This function only works for aspell and ispell, for hunspell and 212This function only works for aspell and ispell, for hunspell and
213enchant-2 it always returns either default or everything. 213enchant-2 it always returns either default or everything.
214I think this is an issue in itself, but this test is added to verify 214I think this is an issue in itself, but this test is added to verify
215that changes to third-party code do not break existing behaviour." 215that changes to third-party code do not break existing behavior."
216 (skip-unless (executable-find "hunspell")) 216 (skip-unless (executable-find "hunspell"))
217 (skip-unless (equal 0 (call-process "hunspell" nil nil nil))) 217 (skip-unless (equal 0 (call-process "hunspell" nil nil nil)))
218 (ispell-tests--letopt 218 (ispell-tests--letopt
@@ -233,7 +233,7 @@ that changes to third-party code do not break existing behaviour."
233This function only works for aspell and ispell, for hunspell and 233This function only works for aspell and ispell, for hunspell and
234enchant-2 it always returns either default or everything. 234enchant-2 it always returns either default or everything.
235I think this is an issue in itself, but this test is added to verify 235I think this is an issue in itself, but this test is added to verify
236that changes to third-party code do not break existing behaviour." 236that changes to third-party code do not break existing behavior."
237 (skip-unless (executable-find "hunspell")) 237 (skip-unless (executable-find "hunspell"))
238 (skip-unless (equal 0 (call-process "hunspell" nil nil nil))) 238 (skip-unless (equal 0 (call-process "hunspell" nil nil nil)))
239 (ispell-tests--letopt 239 (ispell-tests--letopt
@@ -254,7 +254,7 @@ that changes to third-party code do not break existing behaviour."
254This function only works for aspell and ispell, for hunspell and 254This function only works for aspell and ispell, for hunspell and
255enchant-2 it always returns either default or everything. 255enchant-2 it always returns either default or everything.
256I think this is an issue in itself, but this test is added to verify 256I think this is an issue in itself, but this test is added to verify
257that changes to third-party code do not break existing behaviour." 257that changes to third-party code do not break existing behavior."
258 (skip-unless (executable-find "enchant-2")) 258 (skip-unless (executable-find "enchant-2"))
259 (ispell-tests--letopt 259 (ispell-tests--letopt
260 ((ispell-program-name "enchant-2") 260 ((ispell-program-name "enchant-2")
@@ -274,7 +274,7 @@ that changes to third-party code do not break existing behaviour."
274This function only works for aspell and ispell, for hunspell and 274This function only works for aspell and ispell, for hunspell and
275enchant-2 it always returns either default or everything. 275enchant-2 it always returns either default or everything.
276I think this is an issue in itself, but this test is added to verify 276I think this is an issue in itself, but this test is added to verify
277that changes to third-party code do not break existing behaviour." 277that changes to third-party code do not break existing behavior."
278 (skip-unless (executable-find "enchant-2")) 278 (skip-unless (executable-find "enchant-2"))
279 (ispell-tests--letopt 279 (ispell-tests--letopt
280 ((ispell-program-name "enchant-2") 280 ((ispell-program-name "enchant-2")
@@ -525,8 +525,8 @@ presumably nobody will have `ispell-tests--constants/english/wrong'
525 (expand-file-name 525 (expand-file-name
526 (format "%s" (random)) 526 (format "%s" (random))
527 temporary-file-directory)))) 527 temporary-file-directory))))
528 (ert-deftest ispell/ispell-buffer-local-dict/no-reload+no-overriden () 528 (ert-deftest ispell/ispell-buffer-local-dict/no-reload+no-overridden ()
529 "ispell.el can recognise keyword-defined dictionary and keyword-defined 529 "ispell.el can recognize keyword-defined dictionary and keyword-defined
530personal-dictionary." 530personal-dictionary."
531 (with-temp-buffer 531 (with-temp-buffer
532 (nxml-mode) 532 (nxml-mode)
@@ -541,8 +541,8 @@ personal-dictionary."
541 (should (equal ispell-local-pdict test-pdict))) 541 (should (equal ispell-local-pdict test-pdict)))
542 possible-pdict-paths)))) 542 possible-pdict-paths))))
543 543
544 (ert-deftest ispell/ispell-buffer-local-dict/reload+no-overriden () 544 (ert-deftest ispell/ispell-buffer-local-dict/reload+no-overridden ()
545 "ispell.el can recognise keyword-defined dictionary and keyword-defined 545 "ispell.el can recognize keyword-defined dictionary and keyword-defined
546personal-dictionary." 546personal-dictionary."
547 :expected-result :failed 547 :expected-result :failed
548 (with-temp-buffer 548 (with-temp-buffer
@@ -559,8 +559,8 @@ personal-dictionary."
559 (should (equal ispell-current-personal-dictionary test-pdict)))) 559 (should (equal ispell-current-personal-dictionary test-pdict))))
560 possible-pdict-paths)))) 560 possible-pdict-paths))))
561 561
562 (ert-deftest ispell/ispell-buffer-local-dict/no-reload+overriden () 562 (ert-deftest ispell/ispell-buffer-local-dict/no-reload+overridden ()
563 "ispell.el can recognise keyword-defined dictionary and keyword-defined 563 "ispell.el can recognize keyword-defined dictionary and keyword-defined
564personal-dictionary. With no-reload it needs no backend at all." 564personal-dictionary. With no-reload it needs no backend at all."
565 (with-temp-buffer 565 (with-temp-buffer
566 (nxml-mode) 566 (nxml-mode)
@@ -577,8 +577,8 @@ personal-dictionary. With no-reload it needs no backend at all."
577 (should (equal ispell-local-pdict test-pdict)))) 577 (should (equal ispell-local-pdict test-pdict))))
578 possible-pdict-paths)))) 578 possible-pdict-paths))))
579 579
580 (ert-deftest ispell/ispell-buffer-local-dict/reload+overriden () 580 (ert-deftest ispell/ispell-buffer-local-dict/reload+overridden ()
581 "ispell.el can recognise keyword-defined dictionary and keyword-defined 581 "ispell.el can recognize keyword-defined dictionary and keyword-defined
582personal-dictionary. With no-reload it needs no backend at all." 582personal-dictionary. With no-reload it needs no backend at all."
583 :expected-result :failed 583 :expected-result :failed
584 (with-temp-buffer 584 (with-temp-buffer
@@ -601,7 +601,7 @@ personal-dictionary. With no-reload it needs no backend at all."
601;; parsing 601;; parsing
602 602
603(ert-deftest ispell/ispell-buffer-local-parsing/local-keyword () 603(ert-deftest ispell/ispell-buffer-local-parsing/local-keyword ()
604 "Check that ispell.el can suscessfully pick up a tex parser from a buffer-local keyword." 604 "Check that ispell.el can successfully pick up a tex parser from a buffer-local keyword."
605 ;; FIXME: what if default dictionary sets 605 ;; FIXME: what if default dictionary sets
606 ;; (ispell-get-extended-character-mode) ? 606 ;; (ispell-get-extended-character-mode) ?
607 (with-temp-buffer 607 (with-temp-buffer
@@ -640,7 +640,7 @@ personal-dictionary. With no-reload it needs no backend at all."
640 ) 640 )
641 641
642(ert-deftest ispell/ispell-buffer-local-parsing/local-keyword/hunspell-bug () 642(ert-deftest ispell/ispell-buffer-local-parsing/local-keyword/hunspell-bug ()
643 "Check that ispell.el can suscessfully pick up a tex parser from a buffer-local keyword." 643 "Check that ispell.el can successfully pick up a tex parser from a buffer-local keyword."
644 ;; FIXME: what if default dictionary sets 644 ;; FIXME: what if default dictionary sets
645 ;; (ispell-get-extended-character-mode) ? 645 ;; (ispell-get-extended-character-mode) ?
646 :expected-result :failed 646 :expected-result :failed
@@ -679,7 +679,7 @@ personal-dictionary. With no-reload it needs no backend at all."
679 ) 679 )
680 680
681(ert-deftest ispell/ispell-buffer-local-parsing/mode-tex () 681(ert-deftest ispell/ispell-buffer-local-parsing/mode-tex ()
682 "Check that ispell.el can suscessfully pick up a tex parser from tex-based mode-name. 682 "Check that ispell.el can successfully pick up a tex parser from tex-based mode-name.
683There is another implicit check here: explicit-character-mode 683There is another implicit check here: explicit-character-mode
684\(argument 7 from the ispell.el dictionary structure) is nil." 684\(argument 7 from the ispell.el dictionary structure) is nil."
685 (with-temp-buffer 685 (with-temp-buffer
@@ -716,7 +716,7 @@ There is another implicit check here: explicit-character-mode
716 ) 716 )
717 717
718(ert-deftest ispell/ispell-buffer-local-parsing/extended-character-mode () 718(ert-deftest ispell/ispell-buffer-local-parsing/extended-character-mode ()
719 "Check that ispell.el can suscessfully pick up an extended character mode from the dictionary." 719 "Check that ispell.el can successfully pick up an extended character mode from the dictionary."
720 (with-temp-buffer 720 (with-temp-buffer
721 (insert 721 (insert
722 ispell-tests--constants/english/correct-one "\n\n\n") 722 ispell-tests--constants/english/correct-one "\n\n\n")
diff --git a/test/lisp/vc/diff-mode-tests.el b/test/lisp/vc/diff-mode-tests.el
index b82fb3effbe..24d08ba7a9f 100644
--- a/test/lisp/vc/diff-mode-tests.el
+++ b/test/lisp/vc/diff-mode-tests.el
@@ -686,7 +686,7 @@ orange
686 (insert patch) 686 (insert patch)
687 (goto-char (point-min)) 687 (goto-char (point-min))
688 (diff-hunk-next) 688 (diff-hunk-next)
689 ;; Undo hunk by dwim behaviour 689 ;; Undo hunk by dwim behavior
690 (cl-letf (((symbol-function 'y-or-n-p) #'always)) 690 (cl-letf (((symbol-function 'y-or-n-p) #'always))
691 (diff-apply-hunk))) 691 (diff-apply-hunk)))
692 (with-current-buffer buf-after 692 (with-current-buffer buf-after
@@ -734,7 +734,7 @@ plum
734 (insert patch) 734 (insert patch)
735 (goto-char (point-min)) 735 (goto-char (point-min))
736 (diff-hunk-next) 736 (diff-hunk-next)
737 ;; Undo hunk by dwim behaviour 737 ;; Undo hunk by dwim behavior
738 (cl-letf (((symbol-function 'y-or-n-p) #'always)) 738 (cl-letf (((symbol-function 'y-or-n-p) #'always))
739 (diff-apply-hunk))) 739 (diff-apply-hunk)))
740 (with-current-buffer buf-after 740 (with-current-buffer buf-after
diff --git a/test/lisp/vc/log-edit-tests.el b/test/lisp/vc/log-edit-tests.el
index fdc9a0b41b9..1c9a6a2b603 100644
--- a/test/lisp/vc/log-edit-tests.el
+++ b/test/lisp/vc/log-edit-tests.el
@@ -407,7 +407,7 @@ CVS: Abort checkin if you answer no.
407 "Strip lines that contain solely \"CVS:\" when using CVS as VC backend." 407 "Strip lines that contain solely \"CVS:\" when using CVS as VC backend."
408 ;; This test verifies that lines consisting only of "CVS:" (no blank 408 ;; This test verifies that lines consisting only of "CVS:" (no blank
409 ;; after the colon) are stripped from the commit message. 409 ;; after the colon) are stripped from the commit message.
410 ;; CVS does this to accomodate editors that delete trailing whitespace. 410 ;; CVS does this to accommodate editors that delete trailing whitespace.
411 (let (string wanted) 411 (let (string wanted)
412 (setq string "CVS:\n" 412 (setq string "CVS:\n"
413 wanted "") 413 wanted "")
diff --git a/test/manual/etags/merc-src/accumulator.m b/test/manual/etags/merc-src/accumulator.m
index 0ee41216c11..2bfe142a935 100644
--- a/test/manual/etags/merc-src/accumulator.m
+++ b/test/manual/etags/merc-src/accumulator.m
@@ -53,7 +53,7 @@
53% in CVS papers archive in the directory update, but has been submitted 53% in CVS papers archive in the directory update, but has been submitted
54% to PPDP '00. 54% to PPDP '00.
55% 55%
56% The transformation recognises predicates in the form 56% The transformation recognizes predicates in the form
57% 57%
58% p(In, OutUpdate, OutAssoc) :- 58% p(In, OutUpdate, OutAssoc) :-
59% minimal(In), 59% minimal(In),
diff --git a/test/src/editfns-tests.el b/test/src/editfns-tests.el
index a66e25ddc6a..e387460a149 100644
--- a/test/src/editfns-tests.el
+++ b/test/src/editfns-tests.el
@@ -368,7 +368,7 @@ Execute tests as described by `editfns-tests--transpose-regions-tests'."
368 (should (equal (mapcar #'marker-position pmarkers) pmpos)) 368 (should (equal (mapcar #'marker-position pmarkers) pmpos))
369 ;; Meh. This more or less blindly duplicates function 369 ;; Meh. This more or less blindly duplicates function
370 ;; transpose_markers, since I have been too lazy to 370 ;; transpose_markers, since I have been too lazy to
371 ;; reproduce the arithmetics myself. 371 ;; reproduce the arithmetic myself.
372 (setq pmpos 372 (setq pmpos
373 (mapcar 373 (mapcar
374 (lambda (pos) 374 (lambda (pos)
diff --git a/test/src/treesit-tests.el b/test/src/treesit-tests.el
index 89303114735..e107829621a 100644
--- a/test/src/treesit-tests.el
+++ b/test/src/treesit-tests.el
@@ -235,7 +235,7 @@
235;;; Linecol 235;;; Linecol
236 236
237(ert-deftest treesit-linecol-basic () 237(ert-deftest treesit-linecol-basic ()
238 "Tests for basic lincol synchronization." 238 "Tests for basic linecol synchronization."
239 (skip-unless (fboundp 'treesit--linecol-cache)) 239 (skip-unless (fboundp 'treesit--linecol-cache))
240 (with-temp-buffer 240 (with-temp-buffer
241 (should (equal (treesit--linecol-cache) 241 (should (equal (treesit--linecol-cache)