aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorStefan Kangas2022-11-20 12:59:39 +0100
committerStefan Kangas2022-11-20 12:59:39 +0100
commit16318bfb518aa7bc06e502e6fad7e53ec91067f9 (patch)
treee27122c0a061762bc483ed245ca62ac8d957f881 /test
parent6082ab9697fa8c18e9049d24840d07efe6f95625 (diff)
downloademacs-16318bfb518aa7bc06e502e6fad7e53ec91067f9.tar.gz
emacs-16318bfb518aa7bc06e502e6fad7e53ec91067f9.zip
; Fix typos
Diffstat (limited to 'test')
-rw-r--r--test/lisp/auth-source-pass-tests.el8
-rw-r--r--test/lisp/cedet/srecode/fields-tests.el2
-rw-r--r--test/lisp/net/dbus-tests.el2
-rw-r--r--test/lisp/vc/vc-tests.el2
-rw-r--r--test/src/comp-resources/comp-test-funcs.el8
-rw-r--r--test/src/comp-tests.el4
-rw-r--r--test/src/eval-tests.el2
7 files changed, 14 insertions, 14 deletions
diff --git a/test/lisp/auth-source-pass-tests.el b/test/lisp/auth-source-pass-tests.el
index 8bcb2739bb3..6e6671efca5 100644
--- a/test/lisp/auth-source-pass-tests.el
+++ b/test/lisp/auth-source-pass-tests.el
@@ -59,7 +59,7 @@
59 "Contains a list of all messages passed to `auth-source-do-debug'.") 59 "Contains a list of all messages passed to `auth-source-do-debug'.")
60 60
61(defun auth-source-pass--have-message-matching (regexp) 61(defun auth-source-pass--have-message-matching (regexp)
62 "Return non-nil iff at least one `auth-source-do-debug' match REGEXP." 62 "Return non-nil if at least one `auth-source-do-debug' match REGEXP."
63 (seq-find (lambda (message) 63 (seq-find (lambda (message)
64 (string-match regexp message)) 64 (string-match regexp message))
65 auth-source-pass--debug-log)) 65 auth-source-pass--debug-log))
@@ -109,7 +109,7 @@ ENTRY, HOSTNAME, USER and PORT are the same as in
109(put 'auth-source-pass-match-entry-p 'ert-explainer #'auth-source-pass--explain-match-entry-p) 109(put 'auth-source-pass-match-entry-p 'ert-explainer #'auth-source-pass--explain-match-entry-p)
110 110
111(defun auth-source-pass--includes-sorted-entries (entries hostname &optional user port) 111(defun auth-source-pass--includes-sorted-entries (entries hostname &optional user port)
112 "Return non-nil iff ENTRIES matching the parameters are found in store. 112 "Return non-nil if ENTRIES matching the parameters are found in store.
113ENTRIES should be sorted from most specific to least specific. 113ENTRIES should be sorted from most specific to least specific.
114 114
115HOSTNAME, USER and PORT are passed unchanged to 115HOSTNAME, USER and PORT are passed unchanged to
@@ -157,7 +157,7 @@ result is ordered the same way as the suffixes."
157 (auth-source-pass--generate-entry-suffixes hostname user port)))) 157 (auth-source-pass--generate-entry-suffixes hostname user port))))
158 158
159(defun auth-source-pass-match-entry-p (entry hostname &optional user port) 159(defun auth-source-pass-match-entry-p (entry hostname &optional user port)
160 "Return non-nil iff an ENTRY matching the parameters is found in store. 160 "Return non-nil if an ENTRY matching the parameters is found in store.
161 161
162HOSTNAME, USER and PORT are passed unchanged to 162HOSTNAME, USER and PORT are passed unchanged to
163`auth-source-pass--matching-entries'." 163`auth-source-pass--matching-entries'."
@@ -166,7 +166,7 @@ HOSTNAME, USER and PORT are passed unchanged to
166 (auth-source-pass--matching-entries hostname user port))) 166 (auth-source-pass--matching-entries hostname user port)))
167 167
168(defun auth-source-pass-match-any-entry-p (hostname &optional user port) 168(defun auth-source-pass-match-any-entry-p (hostname &optional user port)
169 "Return non-nil iff there is at least one entry matching the parameters. 169 "Return non-nil if there is at least one entry matching the parameters.
170 170
171HOSTNAME, USER and PORT are passed unchanged to 171HOSTNAME, USER and PORT are passed unchanged to
172`auth-source-pass--matching-entries'." 172`auth-source-pass--matching-entries'."
diff --git a/test/lisp/cedet/srecode/fields-tests.el b/test/lisp/cedet/srecode/fields-tests.el
index 292ac4e3b5e..c9e0d4601b9 100644
--- a/test/lisp/cedet/srecode/fields-tests.el
+++ b/test/lisp/cedet/srecode/fields-tests.el
@@ -66,7 +66,7 @@ It is filled with some text."
66 66
67 (when (and (overlayp (oref f overlay)) 67 (when (and (overlayp (oref f overlay))
68 (not (overlay-get (oref f overlay) 'srecode-init-only))) 68 (not (overlay-get (oref f overlay) 'srecode-init-only)))
69 (error "Field creation overlay is not tagged w/ init flag")) 69 (error "Field creation overlay is not tagged with init flag"))
70 70
71 (srecode-overlaid-activate f) 71 (srecode-overlaid-activate f)
72 72
diff --git a/test/lisp/net/dbus-tests.el b/test/lisp/net/dbus-tests.el
index 558799286f5..c808e6350ea 100644
--- a/test/lisp/net/dbus-tests.el
+++ b/test/lisp/net/dbus-tests.el
@@ -407,7 +407,7 @@
407 :session dbus--test-service 407 :session dbus--test-service
408 '(:array (:dict-entry :string "string" :boolean t :boolean t))) 408 '(:array (:dict-entry :string "string" :boolean t :boolean t)))
409 :type 'wrong-type-argument) 409 :type 'wrong-type-argument)
410 ;; The first element ist not of a basic type. 410 ;; The first element is not of a basic type.
411 (should-error 411 (should-error
412 (dbus-check-arguments 412 (dbus-check-arguments
413 :session dbus--test-service 413 :session dbus--test-service
diff --git a/test/lisp/vc/vc-tests.el b/test/lisp/vc/vc-tests.el
index dc4d3af6999..13248a36509 100644
--- a/test/lisp/vc/vc-tests.el
+++ b/test/lisp/vc/vc-tests.el
@@ -127,7 +127,7 @@ Don't set it globally, the functions should be let-bound.")
127 127
128(defun vc-test--create-repo-function (backend) 128(defun vc-test--create-repo-function (backend)
129 "Run the `vc-create-repo' backend function. 129 "Run the `vc-create-repo' backend function.
130For backends which dont support it, it is emulated." 130For backends which don't support it, it is emulated."
131 131
132 (cond 132 (cond
133 ((eq backend 'CVS) 133 ((eq backend 'CVS)
diff --git a/test/src/comp-resources/comp-test-funcs.el b/test/src/comp-resources/comp-test-funcs.el
index 9092f040c80..03925d4d2e8 100644
--- a/test/src/comp-resources/comp-test-funcs.el
+++ b/test/src/comp-resources/comp-test-funcs.el
@@ -211,10 +211,10 @@
211 (comp-tests-err-arith-f) 211 (comp-tests-err-arith-f)
212 (arith-error (concat "arith-error " 212 (arith-error (concat "arith-error "
213 (error-message-string err) 213 (error-message-string err)
214 " catched")) 214 " caught"))
215 (error (concat "error " 215 (error (concat "error "
216 (error-message-string err) 216 (error-message-string err)
217 " catched")))) 217 " caught"))))
218(defun comp-tests-condition-case-1-f () 218(defun comp-tests-condition-case-1-f ()
219 ;; Bpushhandler Bpophandler 219 ;; Bpushhandler Bpophandler
220 (condition-case 220 (condition-case
@@ -222,10 +222,10 @@
222 (comp-tests-err-foo-f) 222 (comp-tests-err-foo-f)
223 (arith-error (concat "arith-error " 223 (arith-error (concat "arith-error "
224 (error-message-string err) 224 (error-message-string err)
225 " catched")) 225 " caught"))
226 (error (concat "error " 226 (error (concat "error "
227 (error-message-string err) 227 (error-message-string err)
228 " catched")))) 228 " caught"))))
229(defun comp-tests-catch-f (f) 229(defun comp-tests-catch-f (f)
230 (catch 'foo 230 (catch 'foo
231 (funcall f))) 231 (funcall f)))
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index 734b4a0d221..4e512098a3d 100644
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -298,9 +298,9 @@ Check that the resulting binaries do not differ."
298(comp-deftest non-locals () 298(comp-deftest non-locals ()
299 "Test non locals." 299 "Test non locals."
300 (should (string= (comp-tests-condition-case-0-f) 300 (should (string= (comp-tests-condition-case-0-f)
301 "arith-error Arithmetic error catched")) 301 "arith-error Arithmetic error caught"))
302 (should (string= (comp-tests-condition-case-1-f) 302 (should (string= (comp-tests-condition-case-1-f)
303 "error Foo catched")) 303 "error Foo caught"))
304 (should (= (comp-tests-catch-f 304 (should (= (comp-tests-catch-f
305 (lambda () (throw 'foo 3))) 305 (lambda () (throw 'foo 3)))
306 3)) 306 3))
diff --git a/test/src/eval-tests.el b/test/src/eval-tests.el
index bb2f04e8ee1..0e12e4dbd8a 100644
--- a/test/src/eval-tests.el
+++ b/test/src/eval-tests.el
@@ -222,7 +222,7 @@ expressions works for identifiers starting with period."
222 222
223(ert-deftest eval-tests/funcall-with-delayed-message () 223(ert-deftest eval-tests/funcall-with-delayed-message ()
224 ;; Check that `funcall-with-delayed-message' displays its message before 224 ;; Check that `funcall-with-delayed-message' displays its message before
225 ;; its function terminates iff the timeout is short enough. 225 ;; its function terminates if the timeout is short enough.
226 226
227 ;; This also serves as regression test for bug#55628 where a short 227 ;; This also serves as regression test for bug#55628 where a short
228 ;; timeout was rounded up to the next whole second. 228 ;; timeout was rounded up to the next whole second.