diff options
Diffstat (limited to 'test/lisp')
| -rw-r--r-- | test/lisp/abbrev-tests.el | 2 | ||||
| -rw-r--r-- | test/lisp/cedet/semantic-utest-ia.el | 2 | ||||
| -rw-r--r-- | test/lisp/cedet/srecode-utest-getset.el | 1 | ||||
| -rw-r--r-- | test/lisp/emacs-lisp/cl-macs-tests.el | 4 | ||||
| -rw-r--r-- | test/lisp/emacs-lisp/regexp-opt-tests.el | 2 | ||||
| -rw-r--r-- | test/lisp/vc/log-edit-tests.el | 21 |
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. |