aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorPaul Eggert2019-12-09 18:44:35 -0800
committerPaul Eggert2019-12-09 18:45:18 -0800
commitd1a791f8edc1b8f2189b6f1b3be7b946fef1edbc (patch)
treefb415df3de5b00b9ce7616872ead40c983b55a12 /test
parent28578f87b52ead4d31479fdcfba028118dfa6987 (diff)
downloademacs-d1a791f8edc1b8f2189b6f1b3be7b946fef1edbc.tar.gz
emacs-d1a791f8edc1b8f2189b6f1b3be7b946fef1edbc.zip
Spelling fixes
Diffstat (limited to 'test')
-rw-r--r--test/lisp/bookmark-tests.el2
-rw-r--r--test/lisp/calc/calc-tests.el2
-rw-r--r--test/lisp/cedet/semantic-utest-c.el2
-rw-r--r--test/lisp/emacs-lisp/rx-tests.el2
-rw-r--r--test/lisp/files-tests.el4
-rw-r--r--test/lisp/net/tramp-tests.el2
-rw-r--r--test/lisp/so-long-tests/so-long-tests.el4
-rw-r--r--test/lisp/so-long-tests/spelling-tests.el2
-rw-r--r--test/manual/cedet/tests/testusing.cpp2
-rw-r--r--test/src/buffer-tests.el4
-rw-r--r--test/src/casefiddle-tests.el2
-rw-r--r--test/src/fns-tests.el2
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 -
173void func9() 173void 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)