diff options
Diffstat (limited to 'test/lisp')
-rw-r--r-- | test/lisp/emacs-lisp/bytecomp-tests.el | 8 | ||||
-rw-r--r-- | test/lisp/erc/erc-scenarios-base-attach.el | 4 | ||||
-rw-r--r-- | test/lisp/erc/erc-tests.el | 4 | ||||
-rw-r--r-- | test/lisp/eshell/em-hist-tests.el | 2 | ||||
-rw-r--r-- | test/lisp/eshell/esh-io-tests.el | 2 | ||||
-rw-r--r-- | test/lisp/proced-tests.el | 2 | ||||
-rw-r--r-- | test/lisp/thingatpt-tests.el | 6 |
7 files changed, 14 insertions, 14 deletions
diff --git a/test/lisp/emacs-lisp/bytecomp-tests.el b/test/lisp/emacs-lisp/bytecomp-tests.el index 27056c99a50..8fbe48bbb9a 100644 --- a/test/lisp/emacs-lisp/bytecomp-tests.el +++ b/test/lisp/emacs-lisp/bytecomp-tests.el @@ -717,7 +717,7 @@ inner loops respectively." (set (make-local-variable 'bytecomp-tests--xx) 2) bytecomp-tests--xx) - ;; Check for-effect optimisation of `condition-case' body form. + ;; Check for-effect optimization of `condition-case' body form. ;; With `condition-case' in for-effect context: (let ((x (bytecomp-test-identity ?A)) (r nil)) @@ -797,7 +797,7 @@ inner loops respectively." (let ((x 0)) (list (= (setq x 1)) x)) - ;; Aristotelian identity optimisation + ;; Aristotelian identity optimization (let ((x (bytecomp-test-identity 1))) (list (eq x x) (eql x x) (equal x x))) ) @@ -2120,7 +2120,7 @@ EXPECTED-POINT BINDINGS (MODES \\='\\='(ruby-mode js-mode python-mode)) \ )) (ert-deftest bytecomp--byte-op-error-backtrace () - "Check that signalling byte ops show up in the backtrace." + "Check that signaling byte ops show up in the backtrace." (dolist (case bytecomp-tests--byte-op-error-cases) (ert-info ((prin1-to-string case) :prefix "case: ") (let* ((call (nth 0 case)) @@ -2151,7 +2151,7 @@ EXPECTED-POINT BINDINGS (MODES \\='\\='(ruby-mode js-mode python-mode)) \ call)))))))))) (ert-deftest bytecomp--eq-symbols-with-pos-enabled () - ;; Verify that we don't optimise away a binding of + ;; Verify that we don't optimize away a binding of ;; `symbols-with-pos-enabled' around an application of `eq' (bug#65017). (let* ((sym-with-pos1 (read-positioning-symbols "sym")) (sym-with-pos2 (read-positioning-symbols " sym")) ; <- space! diff --git a/test/lisp/erc/erc-scenarios-base-attach.el b/test/lisp/erc/erc-scenarios-base-attach.el index ccf5d1f9582..29f5bd2ddd8 100644 --- a/test/lisp/erc/erc-scenarios-base-attach.el +++ b/test/lisp/erc/erc-scenarios-base-attach.el @@ -47,11 +47,11 @@ ;; Author: Mario Lang <mlang@delysid.org> ;; AuthorDate: Mon Nov 26 18:33:19 2001 +0000 ;; -;; * new function erc-BBDB-NICK to handle nickname anotation ... +;; * new function erc-BBDB-NICK to handle nickname annotation ... ;; * Applied antifuchs/mhp patches, the latest on erc-help, unmodified ;; * New variable: erc-reuse-buffers default to t. ;; * Modified erc-generate-new-buffer-name to use it. it checks if -;; server and port are the same, then one can assume thats the same +;; server and port are the same, then one can assume that's the same ;; channel/query target again. ;;; Code: diff --git a/test/lisp/erc/erc-tests.el b/test/lisp/erc/erc-tests.el index 912a85ad5e0..e9bca2a3ac3 100644 --- a/test/lisp/erc/erc-tests.el +++ b/test/lisp/erc/erc-tests.el @@ -657,7 +657,7 @@ (setq erc--isupport-params (make-hash-table)) ;; Uses fallback values when no PREFIX parameter yet received, thus - ;; ensuring caller can use slot accessors immediately intead of + ;; ensuring caller can use slot accessors immediately instead of ;; checking if null beforehand. (should-not erc--parsed-prefix) (should (equal (erc--parsed-prefix) @@ -2918,7 +2918,7 @@ (while (accept-process-output proc 10)) (goto-char (point-min)) (unless (equal (read (current-buffer)) expected) - (message "Exepcted: %S\nGot: %s" expected (buffer-string)) + (message "Expected: %S\nGot: %s" expected (buffer-string)) (ert-fail "Mismatch")))) ;; Worrying about which library a module comes from is mostly not diff --git a/test/lisp/eshell/em-hist-tests.el b/test/lisp/eshell/em-hist-tests.el index 466d19cc6f7..078bcb490e5 100644 --- a/test/lisp/eshell/em-hist-tests.el +++ b/test/lisp/eshell/em-hist-tests.el @@ -35,7 +35,7 @@ (cl-defun em-hist-test/check-history-file (file-name expected &optional (expected-ring t)) "Check that the contents of FILE-NAME match the EXPECTED history entries. -Additonally, check that after loading the file, the history ring +Additionally, check that after loading the file, the history ring matches too. If EXPECTED-RING is a list, compare the ring elements against that; if t (the default), check against EXPECTED." (when (eq expected-ring t) (setq expected-ring expected)) diff --git a/test/lisp/eshell/esh-io-tests.el b/test/lisp/eshell/esh-io-tests.el index 0201b6ab650..bc3d9c6e5d5 100644 --- a/test/lisp/eshell/esh-io-tests.el +++ b/test/lisp/eshell/esh-io-tests.el @@ -328,7 +328,7 @@ stdout originally pointed (the terminal)." "tuodts\nrredts\n")) (ert-deftest esh-io-test/pipeline/subcommands () - "Chek that all commands in a subcommand are properly piped." + "Check that all commands in a subcommand are properly piped." (skip-unless (executable-find "rev")) (with-temp-eshell (eshell-match-command-output "{echo foo; echo bar} | rev" diff --git a/test/lisp/proced-tests.el b/test/lisp/proced-tests.el index 44596f92490..58d97f46c4f 100644 --- a/test/lisp/proced-tests.el +++ b/test/lisp/proced-tests.el @@ -46,7 +46,7 @@ (move-to-column (string-match attribute proced-header-line))) (defun proced--assert-process-valid-pid-refinement (pid) - "Fail unless the process at point could be present after a refinment using PID." + "Fail unless the process at point could be present after a refinement using PID." (proced--move-to-column "PID") (let ((pid-equal (string= pid (word-at-point)))) (should diff --git a/test/lisp/thingatpt-tests.el b/test/lisp/thingatpt-tests.el index 7cf41d2817b..98ebf771717 100644 --- a/test/lisp/thingatpt-tests.el +++ b/test/lisp/thingatpt-tests.el @@ -85,16 +85,16 @@ ("<foo@example.com>" 5 email "<foo@example.com>") ("<foo@example.com>" 16 email "<foo@example.com>") ("<foo@example.com>" 17 email "<foo@example.com>") - ;; email adresses containing numbers + ;; email addresses containing numbers ("foo1@example.com" 1 email "foo1@example.com") ("1foo@example.com" 1 email "1foo@example.com") ("11@example.com" 1 email "11@example.com") ("1@example.com" 1 email "1@example.com") - ;; email adresses user portion containing dots + ;; email addresses user portion containing dots ("foo.bar@example.com" 1 email "foo.bar@example.com") (".foobar@example.com" 1 email nil) (".foobar@example.com" 2 email "foobar@example.com") - ;; email adresses domain portion containing dots and dashes + ;; email addresses domain portion containing dots and dashes ("foobar@.example.com" 1 email nil) ("foobar@-example.com" 1 email "foobar@-example.com") ;; These are illegal, but thingatpt doesn't yet handle them |