aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorStefan Kangas2022-11-18 15:48:22 +0100
committerStefan Kangas2022-11-18 16:02:19 +0100
commitba485eb949ddec53b1d7b5d78f3fcfbe2be60d7d (patch)
treeaee24e35b156969e2450699b3d02621bcec3375e /test
parentc116d9f74c8fc81a7e98b1519fa300998a8a15c3 (diff)
downloademacs-ba485eb949ddec53b1d7b5d78f3fcfbe2be60d7d.tar.gz
emacs-ba485eb949ddec53b1d7b5d78f3fcfbe2be60d7d.zip
; Fix typos
Diffstat (limited to 'test')
-rw-r--r--test/lisp/erc/erc-tests.el2
-rw-r--r--test/lisp/gnus/gnus-icalendar-tests.el2
-rw-r--r--test/lisp/net/mailcap-tests.el2
-rw-r--r--test/manual/noverlay/overlay-perf.el2
-rw-r--r--test/src/font-tests.el2
-rw-r--r--test/src/thread-tests.el2
6 files changed, 6 insertions, 6 deletions
diff --git a/test/lisp/erc/erc-tests.el b/test/lisp/erc/erc-tests.el
index a5100ec1556..ff5d8026973 100644
--- a/test/lisp/erc/erc-tests.el
+++ b/test/lisp/erc/erc-tests.el
@@ -1010,7 +1010,7 @@
1010 :nick "nick" 1010 :nick "nick"
1011 :password nil)))) 1011 :password nil))))
1012 1012
1013 (ert-info ("Addresss includes nick and password") 1013 (ert-info ("Address includes nick and password")
1014 (should (equal (ert-simulate-keys "nick:sesame@localhost:6667\r" 1014 (should (equal (ert-simulate-keys "nick:sesame@localhost:6667\r"
1015 (erc-select-read-args)) 1015 (erc-select-read-args))
1016 (list :server "localhost" 1016 (list :server "localhost"
diff --git a/test/lisp/gnus/gnus-icalendar-tests.el b/test/lisp/gnus/gnus-icalendar-tests.el
index 348ddf9f056..1b69267bee7 100644
--- a/test/lisp/gnus/gnus-icalendar-tests.el
+++ b/test/lisp/gnus/gnus-icalendar-tests.el
@@ -75,7 +75,7 @@ UID:iipdt88slddpeu7hheuu09sfmd@google.com
75X-MICROSOFT-CDO-OWNERAPPTID:-362490173 75X-MICROSOFT-CDO-OWNERAPPTID:-362490173
76RECURRENCE-ID;TZID=America/New_York:20201208T091500 76RECURRENCE-ID;TZID=America/New_York:20201208T091500
77CREATED:20200309T134939Z 77CREATED:20200309T134939Z
78DESCRIPTION:In this meeting\\, we will cover topics from product and enginee 78DESCRIPTION:In this meeting\\, we will cover topics from product and engine
79 ring presentations and demos to new hire announcements to watching the late 79 ring presentations and demos to new hire announcements to watching the late
80LAST-MODIFIED:20200728T182852Z 80LAST-MODIFIED:20200728T182852Z
81LOCATION:New York-22-Town Hall Space (250) [Chrome Box] 81LOCATION:New York-22-Town Hall Space (250) [Chrome Box]
diff --git a/test/lisp/net/mailcap-tests.el b/test/lisp/net/mailcap-tests.el
index 9e60a243b3d..04462dbc8ba 100644
--- a/test/lisp/net/mailcap-tests.el
+++ b/test/lisp/net/mailcap-tests.el
@@ -125,7 +125,7 @@
125 125
126(ert-deftest mailcap-view-file () 126(ert-deftest mailcap-view-file ()
127 (with-pristine-mailcap 127 (with-pristine-mailcap
128 ;; Try using a lambda as viewer and check wether 128 ;; Try using a lambda as viewer and check whether
129 ;; `mailcap-view-file' works correctly. 129 ;; `mailcap-view-file' works correctly.
130 (let* ((mailcap-mime-extensions '((".test" . "test/test")))) 130 (let* ((mailcap-mime-extensions '((".test" . "test/test"))))
131 (mailcap-add "test/test" 'mailcap--test-viewer) 131 (mailcap-add "test/test" 'mailcap--test-viewer)
diff --git a/test/manual/noverlay/overlay-perf.el b/test/manual/noverlay/overlay-perf.el
index e84941c08f9..4d79254a538 100644
--- a/test/manual/noverlay/overlay-perf.el
+++ b/test/manual/noverlay/overlay-perf.el
@@ -157,7 +157,7 @@ Return test-total elapsed time."
157 (cond ((string-match-p "\\`-[cn]\\'" (car args)) 157 (cond ((string-match-p "\\`-[cn]\\'" (car args))
158 (unless (and (cdr args) 158 (unless (and (cdr args)
159 (string-match-p "\\`[0-9]+\\'" (cadr args))) 159 (string-match-p "\\`[0-9]+\\'" (cadr args)))
160 (error "%s expectes a natnum argument" (car args))) 160 (error "%s expects a natnum argument" (car args)))
161 (if (equal (car args) "-c") 161 (if (equal (car args) "-c")
162 (setq k (string-to-number (cadr args))) 162 (setq k (string-to-number (cadr args)))
163 (setq n (string-to-number (cadr args)))) 163 (setq n (string-to-number (cadr args))))
diff --git a/test/src/font-tests.el b/test/src/font-tests.el
index 7e9669c6513..683d331d753 100644
--- a/test/src/font-tests.el
+++ b/test/src/font-tests.el
@@ -115,7 +115,7 @@ expected font properties from parsing NAME.")
115(defun test-font-parse () 115(defun test-font-parse ()
116 "Test font name parsing." 116 "Test font name parsing."
117 (interactive) 117 (interactive)
118 (switch-to-buffer (generate-new-buffer "*Font Pase Test*")) 118 (switch-to-buffer (generate-new-buffer "*Font Parse Test*"))
119 (setq show-trailing-whitespace nil) 119 (setq show-trailing-whitespace nil)
120 (let ((pass-face '((t :foreground "green"))) 120 (let ((pass-face '((t :foreground "green")))
121 (fail-face '((t :foreground "red")))) 121 (fail-face '((t :foreground "red"))))
diff --git a/test/src/thread-tests.el b/test/src/thread-tests.el
index 75d67140a90..731fa893c1f 100644
--- a/test/src/thread-tests.el
+++ b/test/src/thread-tests.el
@@ -217,7 +217,7 @@
217 (while (not threads-mutex-key) 217 (while (not threads-mutex-key)
218 (thread-yield)) 218 (thread-yield))
219 (thread-signal thr 'quit nil) 219 (thread-signal thr 'quit nil)
220 ;; `quit' is not catched by `should-error'. We must indicate it. 220 ;; `quit' is not caught by `should-error'. We must indicate it.
221 (condition-case nil 221 (condition-case nil
222 (thread-join thr) 222 (thread-join thr)
223 (quit (signal 'error nil))))))) 223 (quit (signal 'error nil)))))))