diff options
| author | Paul Eggert | 2025-12-26 10:20:45 -0800 |
|---|---|---|
| committer | Paul Eggert | 2025-12-26 10:22:12 -0800 |
| commit | 481ad70d5cb5ef68a456152a6bab88e27f9bd319 (patch) | |
| tree | 0759d09b23efb6b0b7bdf2be23412a58de8ecd68 /test | |
| parent | 5b461a49305ac5db329f28f719c6f9aa0aafd2cc (diff) | |
| download | emacs-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.el | 2 | ||||
| -rw-r--r-- | test/lisp/completion-preview-tests.el | 2 | ||||
| -rw-r--r-- | test/lisp/emacs-lisp/bytecomp-tests.el | 10 | ||||
| -rw-r--r-- | test/lisp/emacs-lisp/package-vc-tests.el | 18 | ||||
| -rw-r--r-- | test/lisp/erc/resources/base/modes/speaker-status.eld | 2 | ||||
| -rw-r--r-- | test/lisp/erc/resources/services/regain/taken-ghost.eld | 2 | ||||
| -rw-r--r-- | test/lisp/erc/resources/services/regain/taken-regain.eld | 2 | ||||
| -rw-r--r-- | test/lisp/eshell/em-prompt-tests.el | 4 | ||||
| -rw-r--r-- | test/lisp/net/tramp-tests.el | 2 | ||||
| -rw-r--r-- | test/lisp/progmodes/cperl-mode-tests.el | 2 | ||||
| -rw-r--r-- | test/lisp/progmodes/elixir-ts-mode-resources/indent.erts | 2 | ||||
| -rw-r--r-- | test/lisp/textmodes/ispell-tests/ispell-tests.el | 36 | ||||
| -rw-r--r-- | test/lisp/vc/diff-mode-tests.el | 4 | ||||
| -rw-r--r-- | test/lisp/vc/log-edit-tests.el | 2 | ||||
| -rw-r--r-- | test/manual/etags/merc-src/accumulator.m | 2 | ||||
| -rw-r--r-- | test/src/editfns-tests.el | 2 | ||||
| -rw-r--r-- | test/src/treesit-tests.el | 2 |
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." | |||
| 825 | Calling todo-show should display the last current todo file, not | 825 | Calling todo-show should display the last current todo file, not |
| 826 | necessarily the new file. After deleting the new file, todo-show | 826 | necessarily the new file. After deleting the new file, todo-show |
| 827 | should display the previously current (or default) todo file." | 827 | should 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. |
| 51 | Each test produces a new temporary directory for each package under | 51 | Each test produces a new temporary directory for each package under |
| 52 | test. This leads to creation of [length of `package-vc-tests-packages'] | 52 | test. 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." | |||
| 496 | Unbind package defined symbols, and remove package defined features and | 496 | Unbind package defined symbols, and remove package defined features and |
| 497 | entries from `load-path',`load-history', and `Info-directory-list'. | 497 | entries from `load-path',`load-history', and `Info-directory-list'. |
| 498 | Delete temporary directories and buffers produced by tests, except for | 498 | Delete temporary directories and buffers produced by tests, except for |
| 499 | when PKG matches `package-vc-tests-preserve-artefacts'." | 499 | when 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 | |||
| 79 | end | 79 | end |
| 80 | =-=-= | 80 | =-=-= |
| 81 | 81 | ||
| 82 | Name: Bitstring mulitline | 82 | Name: 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. |
| 136 | This test fails, because HOME is not defined. | 136 | This test fails, because HOME is not defined. |
| 137 | This should not be the case, because `ispell-call-process' | 137 | This should not be the case, because `ispell-call-process' |
| 138 | whould be making sure that the directory for running | 138 | would be making sure that the directory for running |
| 139 | the backend's process exists." | 139 | the 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. |
| 179 | This test is expected to fail, because at the moment, there is | 179 | This test is expected to fail, because at the moment, there is |
| 180 | a construction (let ((default-directory `default-directory'))...) in | 180 | a construction (let ((default-directory `default-directory'))...) in |
| 181 | the `ispell-with-safe-default-directory' function, which effectively | 181 | the `ispell-with-safe-default-directory' function, which effectively |
| @@ -212,7 +212,7 @@ makes it useless." | |||
| 212 | This function only works for aspell and ispell, for hunspell and | 212 | This function only works for aspell and ispell, for hunspell and |
| 213 | enchant-2 it always returns either default or everything. | 213 | enchant-2 it always returns either default or everything. |
| 214 | I think this is an issue in itself, but this test is added to verify | 214 | I think this is an issue in itself, but this test is added to verify |
| 215 | that changes to third-party code do not break existing behaviour." | 215 | that 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." | |||
| 233 | This function only works for aspell and ispell, for hunspell and | 233 | This function only works for aspell and ispell, for hunspell and |
| 234 | enchant-2 it always returns either default or everything. | 234 | enchant-2 it always returns either default or everything. |
| 235 | I think this is an issue in itself, but this test is added to verify | 235 | I think this is an issue in itself, but this test is added to verify |
| 236 | that changes to third-party code do not break existing behaviour." | 236 | that 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." | |||
| 254 | This function only works for aspell and ispell, for hunspell and | 254 | This function only works for aspell and ispell, for hunspell and |
| 255 | enchant-2 it always returns either default or everything. | 255 | enchant-2 it always returns either default or everything. |
| 256 | I think this is an issue in itself, but this test is added to verify | 256 | I think this is an issue in itself, but this test is added to verify |
| 257 | that changes to third-party code do not break existing behaviour." | 257 | that 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." | |||
| 274 | This function only works for aspell and ispell, for hunspell and | 274 | This function only works for aspell and ispell, for hunspell and |
| 275 | enchant-2 it always returns either default or everything. | 275 | enchant-2 it always returns either default or everything. |
| 276 | I think this is an issue in itself, but this test is added to verify | 276 | I think this is an issue in itself, but this test is added to verify |
| 277 | that changes to third-party code do not break existing behaviour." | 277 | that 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 |
| 530 | personal-dictionary." | 530 | personal-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 |
| 546 | personal-dictionary." | 546 | personal-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 |
| 564 | personal-dictionary. With no-reload it needs no backend at all." | 564 | personal-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 |
| 582 | personal-dictionary. With no-reload it needs no backend at all." | 582 | personal-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. |
| 683 | There is another implicit check here: explicit-character-mode | 683 | There 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) |