diff options
| author | Paul Eggert | 2019-12-09 18:44:35 -0800 |
|---|---|---|
| committer | Paul Eggert | 2019-12-09 18:45:18 -0800 |
| commit | d1a791f8edc1b8f2189b6f1b3be7b946fef1edbc (patch) | |
| tree | fb415df3de5b00b9ce7616872ead40c983b55a12 /test | |
| parent | 28578f87b52ead4d31479fdcfba028118dfa6987 (diff) | |
| download | emacs-d1a791f8edc1b8f2189b6f1b3be7b946fef1edbc.tar.gz emacs-d1a791f8edc1b8f2189b6f1b3be7b946fef1edbc.zip | |
Spelling fixes
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/bookmark-tests.el | 2 | ||||
| -rw-r--r-- | test/lisp/calc/calc-tests.el | 2 | ||||
| -rw-r--r-- | test/lisp/cedet/semantic-utest-c.el | 2 | ||||
| -rw-r--r-- | test/lisp/emacs-lisp/rx-tests.el | 2 | ||||
| -rw-r--r-- | test/lisp/files-tests.el | 4 | ||||
| -rw-r--r-- | test/lisp/net/tramp-tests.el | 2 | ||||
| -rw-r--r-- | test/lisp/so-long-tests/so-long-tests.el | 4 | ||||
| -rw-r--r-- | test/lisp/so-long-tests/spelling-tests.el | 2 | ||||
| -rw-r--r-- | test/manual/cedet/tests/testusing.cpp | 2 | ||||
| -rw-r--r-- | test/src/buffer-tests.el | 4 | ||||
| -rw-r--r-- | test/src/casefiddle-tests.el | 2 | ||||
| -rw-r--r-- | test/src/fns-tests.el | 2 |
12 files changed, 15 insertions, 15 deletions
diff --git a/test/lisp/bookmark-tests.el b/test/lisp/bookmark-tests.el index a774dae89dc..09b1be9b26b 100644 --- a/test/lisp/bookmark-tests.el +++ b/test/lisp/bookmark-tests.el | |||
| @@ -38,7 +38,7 @@ | |||
| 38 | "Bookmark file used for testing.") | 38 | "Bookmark file used for testing.") |
| 39 | 39 | ||
| 40 | (defvar bookmark-tests-example-file | 40 | (defvar bookmark-tests-example-file |
| 41 | ;; We use abbreviate-file-name here to match the behaviour of | 41 | ;; We use abbreviate-file-name here to match the behavior of |
| 42 | ;; `bookmark-buffer-file-name'. | 42 | ;; `bookmark-buffer-file-name'. |
| 43 | (abbreviate-file-name (expand-file-name "example.txt" bookmark-tests-data-dir)) | 43 | (abbreviate-file-name (expand-file-name "example.txt" bookmark-tests-data-dir)) |
| 44 | "Example file used for testing.") | 44 | "Example file used for testing.") |
diff --git a/test/lisp/calc/calc-tests.el b/test/lisp/calc/calc-tests.el index 36a81dc2b71..3f5adceeff1 100644 --- a/test/lisp/calc/calc-tests.el +++ b/test/lisp/calc/calc-tests.el | |||
| @@ -271,7 +271,7 @@ An existing calc stack is reused, otherwise a new one is created." | |||
| 271 | (+ (- (* 2 (var y var-y)) (var x var-x)) (* 3 (var z var-z))) | 271 | (+ (- (* 2 (var y var-y)) (var x var-x)) (* 3 (var z var-z))) |
| 272 | -3)) | 272 | -3)) |
| 273 | '(vec (var x var-x) (var y var-y) (var z var-z))) | 273 | '(vec (var x var-x) (var y var-y) (var z var-z))) |
| 274 | ;; The `float' forms in the result are just artefacts of Calc's | 274 | ;; The `float' forms in the result are just artifacts of Calc's |
| 275 | ;; current solver; it should be fixed to produce exact (integral) | 275 | ;; current solver; it should be fixed to produce exact (integral) |
| 276 | ;; results in this case. | 276 | ;; results in this case. |
| 277 | '(vec (calcFunc-eq (var x var-x) (float 1 0)) | 277 | '(vec (calcFunc-eq (var x var-x) (float 1 0)) |
diff --git a/test/lisp/cedet/semantic-utest-c.el b/test/lisp/cedet/semantic-utest-c.el index 05f8491746d..d65b55cbf8e 100644 --- a/test/lisp/cedet/semantic-utest-c.el +++ b/test/lisp/cedet/semantic-utest-c.el | |||
| @@ -59,7 +59,7 @@ | |||
| 59 | (semantic-fetch-tags)))) | 59 | (semantic-fetch-tags)))) |
| 60 | (when (or (not tags-expected) (not tags-actual)) | 60 | (when (or (not tags-expected) (not tags-actual)) |
| 61 | (message "Tried to find test files in: %s" semantic-utest-c-test-directory) | 61 | (message "Tried to find test files in: %s" semantic-utest-c-test-directory) |
| 62 | (error "Failed: Disovered no tags in test files or test file not found.")) | 62 | (error "Failed: Discovered no tags in test files or test file not found.")) |
| 63 | 63 | ||
| 64 | ;; Now that we have the tags, compare them for SPP accuracy. | 64 | ;; Now that we have the tags, compare them for SPP accuracy. |
| 65 | (dolist (tag tags-actual) | 65 | (dolist (tag tags-actual) |
diff --git a/test/lisp/emacs-lisp/rx-tests.el b/test/lisp/emacs-lisp/rx-tests.el index 26e39f8c8ed..317dae2990b 100644 --- a/test/lisp/emacs-lisp/rx-tests.el +++ b/test/lisp/emacs-lisp/rx-tests.el | |||
| @@ -79,7 +79,7 @@ | |||
| 79 | ;; Range of raw characters, multibyte. | 79 | ;; Range of raw characters, multibyte. |
| 80 | (should (equal (rx (any "Å\211\326-\377\177")) | 80 | (should (equal (rx (any "Å\211\326-\377\177")) |
| 81 | "[\177Å\211\326-\377]")) | 81 | "[\177Å\211\326-\377]")) |
| 82 | ;; Split range; \177-\377ÿ should not be optimised to \177-\377. | 82 | ;; Split range; \177-\377ÿ should not be optimized to \177-\377. |
| 83 | (should (equal (rx (any "\177-\377" ?ÿ)) | 83 | (should (equal (rx (any "\177-\377" ?ÿ)) |
| 84 | "[\177ÿ\200-\377]"))) | 84 | "[\177ÿ\200-\377]"))) |
| 85 | 85 | ||
diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el index eca1e3bc7f9..89007aeba8a 100644 --- a/test/lisp/files-tests.el +++ b/test/lisp/files-tests.el | |||
| @@ -1300,7 +1300,7 @@ renaming only, rather than modified in-place." | |||
| 1300 | (should (equal (file-size-human-readable-iec 72528034765) "67.5 GiB"))) | 1300 | (should (equal (file-size-human-readable-iec 72528034765) "67.5 GiB"))) |
| 1301 | 1301 | ||
| 1302 | (ert-deftest files-test-magic-mode-alist-re-baseline () | 1302 | (ert-deftest files-test-magic-mode-alist-re-baseline () |
| 1303 | "Test magic-mode-alist with RE, expected behaviour for match." | 1303 | "Test magic-mode-alist with RE, expected behavior for match." |
| 1304 | (let ((magic-mode-alist '(("my-tag" . text-mode)))) | 1304 | (let ((magic-mode-alist '(("my-tag" . text-mode)))) |
| 1305 | (with-temp-buffer | 1305 | (with-temp-buffer |
| 1306 | (insert "my-tag") | 1306 | (insert "my-tag") |
| @@ -1308,7 +1308,7 @@ renaming only, rather than modified in-place." | |||
| 1308 | (should (eq major-mode 'text-mode))))) | 1308 | (should (eq major-mode 'text-mode))))) |
| 1309 | 1309 | ||
| 1310 | (ert-deftest files-test-magic-mode-alist-re-no-match () | 1310 | (ert-deftest files-test-magic-mode-alist-re-no-match () |
| 1311 | "Test magic-mode-alist with RE, expected behaviour for no match." | 1311 | "Test magic-mode-alist with RE, expected behavior for no match." |
| 1312 | (let ((magic-mode-alist '(("my-tag" . text-mode)))) | 1312 | (let ((magic-mode-alist '(("my-tag" . text-mode)))) |
| 1313 | (with-temp-buffer | 1313 | (with-temp-buffer |
| 1314 | (insert "not-my-tag") | 1314 | (insert "not-my-tag") |
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index 09ba928c892..e92bc8fd3ca 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el | |||
| @@ -3168,7 +3168,7 @@ They might differ only in time attributes or directory size." | |||
| 3168 | (when (< start-time | 3168 | (when (< start-time |
| 3169 | (float-time (tramp-compat-file-attribute-modification-time attr2))) | 3169 | (float-time (tramp-compat-file-attribute-modification-time attr2))) |
| 3170 | (setcar (nthcdr 5 attr2) tramp-time-dont-know)) | 3170 | (setcar (nthcdr 5 attr2) tramp-time-dont-know)) |
| 3171 | ;; Status change time. Dito. | 3171 | ;; Status change time. Ditto. |
| 3172 | (when (or (tramp-compat-time-equal-p | 3172 | (when (or (tramp-compat-time-equal-p |
| 3173 | (tramp-compat-file-attribute-status-change-time attr1) | 3173 | (tramp-compat-file-attribute-status-change-time attr1) |
| 3174 | tramp-time-dont-know) | 3174 | tramp-time-dont-know) |
diff --git a/test/lisp/so-long-tests/so-long-tests.el b/test/lisp/so-long-tests/so-long-tests.el index ae834421667..2d5d3163e70 100644 --- a/test/lisp/so-long-tests/so-long-tests.el +++ b/test/lisp/so-long-tests/so-long-tests.el | |||
| @@ -58,7 +58,7 @@ | |||
| 58 | (declare-function so-long-tests-assert-reverted "so-long-tests-helpers") | 58 | (declare-function so-long-tests-assert-reverted "so-long-tests-helpers") |
| 59 | (declare-function so-long-tests-assert-and-revert "so-long-tests-helpers") | 59 | (declare-function so-long-tests-assert-and-revert "so-long-tests-helpers") |
| 60 | 60 | ||
| 61 | ;; Enable the automated behaviour for all tests. | 61 | ;; Enable the automated behavior for all tests. |
| 62 | (global-so-long-mode 1) | 62 | (global-so-long-mode 1) |
| 63 | 63 | ||
| 64 | (ert-deftest so-long-tests-threshold-under () | 64 | (ert-deftest so-long-tests-threshold-under () |
| @@ -180,7 +180,7 @@ | |||
| 180 | ;; From Emacs 27 the `display-buffer' call is insufficient. | 180 | ;; From Emacs 27 the `display-buffer' call is insufficient. |
| 181 | ;; The various 'window change functions' are now invoked by the | 181 | ;; The various 'window change functions' are now invoked by the |
| 182 | ;; redisplay, and redisplay does nothing at all in batch mode, | 182 | ;; redisplay, and redisplay does nothing at all in batch mode, |
| 183 | ;; so we cannot test under this revised behaviour. Refer to: | 183 | ;; so we cannot test under this revised behavior. Refer to: |
| 184 | ;; https://lists.gnu.org/archive/html/emacs-devel/2019-10/msg00971.html | 184 | ;; https://lists.gnu.org/archive/html/emacs-devel/2019-10/msg00971.html |
| 185 | ;; For interactive (non-batch) test runs, calling `redisplay' | 185 | ;; For interactive (non-batch) test runs, calling `redisplay' |
| 186 | ;; does do the trick; so do that first. | 186 | ;; does do the trick; so do that first. |
diff --git a/test/lisp/so-long-tests/spelling-tests.el b/test/lisp/so-long-tests/spelling-tests.el index d5bae1ef0ce..47707f979aa 100644 --- a/test/lisp/so-long-tests/spelling-tests.el +++ b/test/lisp/so-long-tests/spelling-tests.el | |||
| @@ -57,7 +57,7 @@ | |||
| 57 | (unwind-protect | 57 | (unwind-protect |
| 58 | (cl-letf (((symbol-function 'ispell-command-loop) | 58 | (cl-letf (((symbol-function 'ispell-command-loop) |
| 59 | (lambda (_miss _guess word _start _end) | 59 | (lambda (_miss _guess word _start _end) |
| 60 | (message "Unrecognised word: %s." word) | 60 | (message "Unrecognized word: %s." word) |
| 61 | (throw 'mistake t)))) | 61 | (throw 'mistake t)))) |
| 62 | (catch 'mistake | 62 | (catch 'mistake |
| 63 | (find-library "so-long") | 63 | (find-library "so-long") |
diff --git a/test/manual/cedet/tests/testusing.cpp b/test/manual/cedet/tests/testusing.cpp index 1208c81fc36..0bcf43eaae8 100644 --- a/test/manual/cedet/tests/testusing.cpp +++ b/test/manual/cedet/tests/testusing.cpp | |||
| @@ -168,7 +168,7 @@ void func8() | |||
| 168 | ; //#10# ( "four" "three" ) | 168 | ; //#10# ( "four" "three" ) |
| 169 | } | 169 | } |
| 170 | 170 | ||
| 171 | // Check convetional namespace aliases | 171 | // Check conventional namespace aliases |
| 172 | // - fully qualified - | 172 | // - fully qualified - |
| 173 | void func9() | 173 | void func9() |
| 174 | { | 174 | { |
diff --git a/test/src/buffer-tests.el b/test/src/buffer-tests.el index 4ab99c131d0..5fd37520f70 100644 --- a/test/src/buffer-tests.el +++ b/test/src/buffer-tests.el | |||
| @@ -646,7 +646,7 @@ with parameters from the *Messages* buffer modification." | |||
| 646 | (deftest-overlays-at-1 R 50 (a) (a 1 60) (c 1 1) (b 30 30) (d 50 50)) | 646 | (deftest-overlays-at-1 R 50 (a) (a 1 60) (c 1 1) (b 30 30) (d 50 50)) |
| 647 | (deftest-overlays-at-1 S 60 () (a 1 60) (c 1 1) (b 30 30) (d 50 50)) | 647 | (deftest-overlays-at-1 S 60 () (a 1 60) (c 1 1) (b 30 30) (d 50 50)) |
| 648 | 648 | ||
| 649 | ;; behaviour at point-min and point-max | 649 | ;; behavior at point-min and point-max |
| 650 | (ert-deftest test-overlays-at-2 () | 650 | (ert-deftest test-overlays-at-2 () |
| 651 | (cl-macrolet ((should-length (n list) | 651 | (cl-macrolet ((should-length (n list) |
| 652 | `(should (= ,n (length ,list))))) | 652 | `(should (= ,n (length ,list))))) |
| @@ -743,7 +743,7 @@ with parameters from the *Messages* buffer modification." | |||
| 743 | (deftest-overlays-in-1 af 10 11 (a) (a 10 10)) | 743 | (deftest-overlays-in-1 af 10 11 (a) (a 10 10)) |
| 744 | 744 | ||
| 745 | 745 | ||
| 746 | ;; behaviour at point-max | 746 | ;; behavior at point-max |
| 747 | (ert-deftest test-overlays-in-2 () | 747 | (ert-deftest test-overlays-in-2 () |
| 748 | (cl-macrolet ((should-length (n list) | 748 | (cl-macrolet ((should-length (n list) |
| 749 | `(should (= ,n (length ,list))))) | 749 | `(should (= ,n (length ,list))))) |
diff --git a/test/src/casefiddle-tests.el b/test/src/casefiddle-tests.el index 54793f2cda4..3a93ba11b4b 100644 --- a/test/src/casefiddle-tests.el +++ b/test/src/casefiddle-tests.el | |||
| @@ -196,7 +196,7 @@ | |||
| 196 | ("fish" "FISH" "fish" "Fish" "Fish") | 196 | ("fish" "FISH" "fish" "Fish" "Fish") |
| 197 | ("Straße" "STRASSE" "straße" "Straße" "Straße") | 197 | ("Straße" "STRASSE" "straße" "Straße" "Straße") |
| 198 | 198 | ||
| 199 | ;; The word repeated twice to test behaviour at the end of a word | 199 | ;; The word repeated twice to test behavior at the end of a word |
| 200 | ;; inside of an input string as well as at the end of the string. | 200 | ;; inside of an input string as well as at the end of the string. |
| 201 | ("ΌΣΟΣ ΌΣΟΣ" "ΌΣΟΣ ΌΣΟΣ" "όσος όσος" "Όσος Όσος" "ΌΣΟΣ ΌΣΟΣ") | 201 | ("ΌΣΟΣ ΌΣΟΣ" "ΌΣΟΣ ΌΣΟΣ" "όσος όσος" "Όσος Όσος" "ΌΣΟΣ ΌΣΟΣ") |
| 202 | ;; What should be done with sole sigma? It is ‘final’ but on the | 202 | ;; What should be done with sole sigma? It is ‘final’ but on the |
diff --git a/test/src/fns-tests.el b/test/src/fns-tests.el index 6236c9276d2..93f7f63847f 100644 --- a/test/src/fns-tests.el +++ b/test/src/fns-tests.el | |||
| @@ -237,7 +237,7 @@ | |||
| 237 | (apply 'concat (make-list o s))) | 237 | (apply 'concat (make-list o s))) |
| 238 | 238 | ||
| 239 | (defmacro fns-tests--with-region (funcname string &rest args) | 239 | (defmacro fns-tests--with-region (funcname string &rest args) |
| 240 | "Apply FUNCNAME in a temp bufer on the region produced by STRING." | 240 | "Apply FUNCNAME in a temp buffer on the region produced by STRING." |
| 241 | (declare (indent 1)) | 241 | (declare (indent 1)) |
| 242 | `(with-temp-buffer | 242 | `(with-temp-buffer |
| 243 | (insert ,string) | 243 | (insert ,string) |