; Spelling fixes

6 files changed, 15 insertions, 17 deletions

diff --git a/test/lisp/abbrev-tests.el b/test/lisp/abbrev-tests.el
index 2750e9a6263..8eee0712c22 100644
--- a/test/lisp/abbrev-tests.el
+++ b/test/lisp/abbrev-tests.el
@@ -283,7 +283,7 @@
         (inverse-add-abbrev table "Global" 1)))
     (should (string= (abbrev-expansion "foo" table) "bar"))))
 
-(ert-deftest inverse-add-abbrev-skips-trailing-nonword/postiive-arg ()
+(ert-deftest inverse-add-abbrev-skips-trailing-nonword/positive-arg ()
   "Test that adding an inverse abbrev skips trailing nonword characters."
   (let ((table (make-abbrev-table)))
     (with-temp-buffer
diff --git a/test/lisp/cedet/semantic-utest-ia.el b/test/lisp/cedet/semantic-utest-ia.el
index 61d7ea370e2..515275591f9 100644
--- a/test/lisp/cedet/semantic-utest-ia.el
+++ b/test/lisp/cedet/semantic-utest-ia.el
@@ -115,7 +115,7 @@
     (should (file-exists-p tst))
     (should-not (semantic-ia-utest tst))))
 
-(ert-deftest semantic-utest-ia-varnamse.java ()
+(ert-deftest semantic-utest-ia-varnames.java ()
   (let ((tst (expand-file-name "testvarnames.java" semantic-utest-test-directory)))
     (should (file-exists-p tst))
     (should-not (semantic-ia-utest tst))))
diff --git a/test/lisp/cedet/srecode-utest-getset.el b/test/lisp/cedet/srecode-utest-getset.el
index d69a195a128..2e82fc9c90a 100644
--- a/test/lisp/cedet/srecode-utest-getset.el
+++ b/test/lisp/cedet/srecode-utest-getset.el
@@ -21,7 +21,6 @@
 ;;
 ;; Unit tests for the getset inserter application.
 
-;;(require 'cedet-uutil)
 (require 'srecode/semantic)
 
 ;;; Code:
diff --git a/test/lisp/emacs-lisp/cl-macs-tests.el b/test/lisp/emacs-lisp/cl-macs-tests.el
index 85230447148..d3b9732b74d 100644
--- a/test/lisp/emacs-lisp/cl-macs-tests.el
+++ b/test/lisp/emacs-lisp/cl-macs-tests.el
@@ -569,14 +569,14 @@ collection clause."
                           finally return result)
                  '(2 1 0)))
 
-  ;; this nonintuitive result is replicated by clisp
+  ;; this unintuitive result is replicated by clisp
   (should (equal (cl-loop with result
                           for x below 3
                           and y = (progn (push x result))
                           finally return result)
                  '(2 1 0 0)))
 
-  ;; this nonintuitive result is replicated by clisp
+  ;; this unintuitive result is replicated by clisp
   (should (equal (cl-loop with result
                           for x below 3
                           and y = (progn (push x result)) then (progn (push (1+ x) result))
diff --git a/test/lisp/emacs-lisp/regexp-opt-tests.el b/test/lisp/emacs-lisp/regexp-opt-tests.el
index 3658964faac..6b94ccb2d5b 100644
--- a/test/lisp/emacs-lisp/regexp-opt-tests.el
+++ b/test/lisp/emacs-lisp/regexp-opt-tests.el
@@ -66,7 +66,7 @@
          (opt (regexp-opt-test--match-all perm opt-re)))
     (concat "\n"
             (format "Naïve regexp:     %s\n" ref-re)
-            (format "Optimised regexp: %s\n" opt-re)
+            (format "Optimized regexp: %s\n" opt-re)
             (format "Got:      %s\n" opt)
             (format "Expected: %s\n" ref))))
 
diff --git a/test/lisp/vc/log-edit-tests.el b/test/lisp/vc/log-edit-tests.el
index 7d77eca87d2..72d5488ec2e 100644
--- a/test/lisp/vc/log-edit-tests.el
+++ b/test/lisp/vc/log-edit-tests.el
@@ -37,7 +37,7 @@
 \(fun6):
 \(fun7): Some prose.
 \(fun8): A longer description of a complicated change.\
-  Spread over a couple of sentencences.\
+  Spread over a couple of sentences.\
   Long enough to be filled for several lines.
 \(fun9): Etc.")
     (goto-char (point-min))
@@ -46,7 +46,7 @@
 * dir/file.ext (fun1, fun2, fun3):
 * file2.txt (fun4, fun5, fun6, fun7): Some prose.
 \(fun8): A longer description of a complicated change.  Spread over a
-couple of sentencences.  Long enough to be filled for several lines.
+couple of sentences.  Long enough to be filled for several lines.
 \(fun9): Etc."))
     (let ((fill-column 20)) (log-edit-fill-entry))
     (should (equal (buffer-string) "\
@@ -59,10 +59,9 @@ Some prose.
 description of a
 complicated change.
 Spread over a couple
-of sentencences.
-Long enough to be
-filled for several
-lines.
+of sentences.  Long
+enough to be filled
+for several lines.
 \(fun9): Etc."))
     (let ((fill-column 40)) (log-edit-fill-entry))
     (should (equal (buffer-string) "\
@@ -71,21 +70,21 @@ lines.
 Some prose.
 \(fun8): A longer description of a
 complicated change.  Spread over a
-couple of sentencences.  Long enough to
-be filled for several lines.
+couple of sentences.  Long enough to be
+filled for several lines.
 \(fun9): Etc."))))
 
 (ert-deftest log-edit-fill-entry-trailing-prose ()
   (with-temp-buffer
     (insert "\
 * dir/file.ext (fun1): A longer description of a complicated change.\
-  Spread over a couple of sentencences.\
+  Spread over a couple of sentences.\
   Long enough to be filled for several lines.")
     (let ((fill-column 72)) (log-edit-fill-entry))
     (should (equal (buffer-string) "\
 * dir/file.ext (fun1): A longer description of a complicated change.
-Spread over a couple of sentencences.  Long enough to be filled for
-several lines."))))
+Spread over a couple of sentences.  Long enough to be filled for several
+lines."))))
 
 (ert-deftest log-edit-fill-entry-joining ()
   ;; Join short enough function names on the same line.