diff options
| author | Stefan Kangas | 2022-11-20 12:59:39 +0100 |
|---|---|---|
| committer | Stefan Kangas | 2022-11-20 12:59:39 +0100 |
| commit | 16318bfb518aa7bc06e502e6fad7e53ec91067f9 (patch) | |
| tree | e27122c0a061762bc483ed245ca62ac8d957f881 /test | |
| parent | 6082ab9697fa8c18e9049d24840d07efe6f95625 (diff) | |
| download | emacs-16318bfb518aa7bc06e502e6fad7e53ec91067f9.tar.gz emacs-16318bfb518aa7bc06e502e6fad7e53ec91067f9.zip | |
; Fix typos
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/auth-source-pass-tests.el | 8 | ||||
| -rw-r--r-- | test/lisp/cedet/srecode/fields-tests.el | 2 | ||||
| -rw-r--r-- | test/lisp/net/dbus-tests.el | 2 | ||||
| -rw-r--r-- | test/lisp/vc/vc-tests.el | 2 | ||||
| -rw-r--r-- | test/src/comp-resources/comp-test-funcs.el | 8 | ||||
| -rw-r--r-- | test/src/comp-tests.el | 4 | ||||
| -rw-r--r-- | test/src/eval-tests.el | 2 |
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. |
| 113 | ENTRIES should be sorted from most specific to least specific. | 113 | ENTRIES should be sorted from most specific to least specific. |
| 114 | 114 | ||
| 115 | HOSTNAME, USER and PORT are passed unchanged to | 115 | HOSTNAME, 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 | ||
| 162 | HOSTNAME, USER and PORT are passed unchanged to | 162 | HOSTNAME, 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 | ||
| 171 | HOSTNAME, USER and PORT are passed unchanged to | 171 | HOSTNAME, 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. |
| 130 | For backends which dont support it, it is emulated." | 130 | For 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. |