diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/mouse-tests.el | 7 | ||||
| -rw-r--r-- | test/src/emacs-module-tests.el | 5 | ||||
| -rw-r--r-- | test/src/eval-tests.el | 4 | ||||
| -rw-r--r-- | test/src/fns-tests.el | 2 | ||||
| -rw-r--r-- | test/src/regex-tests.el | 4 |
5 files changed, 10 insertions, 12 deletions
diff --git a/test/lisp/mouse-tests.el b/test/lisp/mouse-tests.el index f8c91004ecc..170df4a9b98 100644 --- a/test/lisp/mouse-tests.el +++ b/test/lisp/mouse-tests.el | |||
| @@ -26,8 +26,7 @@ | |||
| 26 | ;;; Code: | 26 | ;;; Code: |
| 27 | 27 | ||
| 28 | (ert-deftest bug23288-use-return-value () | 28 | (ert-deftest bug23288-use-return-value () |
| 29 | "If ‘mouse-on-link-p’ returns a string, its first character is | 29 | "If `mouse-on-link-p' returns a string, its first character is used." |
| 30 | used." | ||
| 31 | (cl-letf ((last-input-event '(down-mouse-1 nil 1)) | 30 | (cl-letf ((last-input-event '(down-mouse-1 nil 1)) |
| 32 | (unread-command-events '((mouse-1 nil 1))) | 31 | (unread-command-events '((mouse-1 nil 1))) |
| 33 | (mouse-1-click-follows-link t) | 32 | (mouse-1-click-follows-link t) |
| @@ -37,8 +36,8 @@ used." | |||
| 37 | (should (equal unread-command-events '(?a))))) | 36 | (should (equal unread-command-events '(?a))))) |
| 38 | 37 | ||
| 39 | (ert-deftest bug23288-translate-to-mouse-2 () | 38 | (ert-deftest bug23288-translate-to-mouse-2 () |
| 40 | "If ‘mouse-on-link-p’ doesn’t return a string or vector, | 39 | "If `mouse-on-link-p' doesn't return a string or vector, |
| 41 | translate ‘mouse-1’ events into ‘mouse-2’ events." | 40 | translate `mouse-1' events into `mouse-2' events." |
| 42 | (cl-letf ((last-input-event '(down-mouse-1 nil 1)) | 41 | (cl-letf ((last-input-event '(down-mouse-1 nil 1)) |
| 43 | (unread-command-events '((mouse-1 nil 1))) | 42 | (unread-command-events '((mouse-1 nil 1))) |
| 44 | (mouse-1-click-follows-link t) | 43 | (mouse-1-click-follows-link t) |
diff --git a/test/src/emacs-module-tests.el b/test/src/emacs-module-tests.el index 4b41fc21c20..767d87a7e35 100644 --- a/test/src/emacs-module-tests.el +++ b/test/src/emacs-module-tests.el | |||
| @@ -231,10 +231,9 @@ must evaluate to a regular expression string." | |||
| 231 | (point) (point-max)))))))) | 231 | (point) (point-max)))))))) |
| 232 | 232 | ||
| 233 | (ert-deftest module--test-assertions--load-non-live-object () | 233 | (ert-deftest module--test-assertions--load-non-live-object () |
| 234 | "Check that -module-assertions verify that non-live objects | 234 | "Check that -module-assertions verify that non-live objects aren't accessed." |
| 235 | aren’t accessed." | ||
| 236 | (skip-unless (file-executable-p mod-test-emacs)) | 235 | (skip-unless (file-executable-p mod-test-emacs)) |
| 237 | ;; This doesn’t yet cause undefined behavior. | 236 | ;; This doesn't yet cause undefined behavior. |
| 238 | (should (eq (mod-test-invalid-store) 123)) | 237 | (should (eq (mod-test-invalid-store) 123)) |
| 239 | (module--test-assertion (rx "Emacs value not found in " | 238 | (module--test-assertion (rx "Emacs value not found in " |
| 240 | (+ digit) " values of " | 239 | (+ digit) " values of " |
diff --git a/test/src/eval-tests.el b/test/src/eval-tests.el index 7ff60dd01c4..15b2fdf9c4b 100644 --- a/test/src/eval-tests.el +++ b/test/src/eval-tests.el | |||
| @@ -28,14 +28,14 @@ | |||
| 28 | (require 'ert) | 28 | (require 'ert) |
| 29 | 29 | ||
| 30 | (ert-deftest eval-tests--bug24673 () | 30 | (ert-deftest eval-tests--bug24673 () |
| 31 | "Checks that Bug#24673 has been fixed." | 31 | "Check that Bug#24673 has been fixed." |
| 32 | ;; This should not crash. | 32 | ;; This should not crash. |
| 33 | (should-error (funcall '(closure)) :type 'invalid-function)) | 33 | (should-error (funcall '(closure)) :type 'invalid-function)) |
| 34 | 34 | ||
| 35 | (defvar byte-compile-debug) | 35 | (defvar byte-compile-debug) |
| 36 | 36 | ||
| 37 | (ert-deftest eval-tests--bugs-24912-and-24913 () | 37 | (ert-deftest eval-tests--bugs-24912-and-24913 () |
| 38 | "Checks that Emacs doesn’t accept weird argument lists. | 38 | "Check that Emacs doesn't accept weird argument lists. |
| 39 | Bug#24912 and Bug#24913." | 39 | Bug#24912 and Bug#24913." |
| 40 | (dolist (args '((&optional) (&rest) (&optional &rest) (&rest &optional) | 40 | (dolist (args '((&optional) (&rest) (&optional &rest) (&rest &optional) |
| 41 | (&optional &rest a) (&optional a &rest) | 41 | (&optional &rest a) (&optional a &rest) |
diff --git a/test/src/fns-tests.el b/test/src/fns-tests.el index 705d02fdff6..4d8228b9411 100644 --- a/test/src/fns-tests.el +++ b/test/src/fns-tests.el | |||
| @@ -548,7 +548,7 @@ | |||
| 548 | (should-error (nconc (cyc2 1 2) 'tail) :type 'circular-list)) | 548 | (should-error (nconc (cyc2 1 2) 'tail) :type 'circular-list)) |
| 549 | 549 | ||
| 550 | (ert-deftest plist-get/odd-number-of-elements () | 550 | (ert-deftest plist-get/odd-number-of-elements () |
| 551 | "Test that ‘plist-get’ doesn’t signal an error on degenerate plists." | 551 | "Test that `plist-get' doesn't signal an error on degenerate plists." |
| 552 | (should-not (plist-get '(:foo 1 :bar) :bar))) | 552 | (should-not (plist-get '(:foo 1 :bar) :bar))) |
| 553 | 553 | ||
| 554 | (ert-deftest lax-plist-get/odd-number-of-elements () | 554 | (ert-deftest lax-plist-get/odd-number-of-elements () |
diff --git a/test/src/regex-tests.el b/test/src/regex-tests.el index b1f1ea71cef..220d42c8d2e 100644 --- a/test/src/regex-tests.el +++ b/test/src/regex-tests.el | |||
| @@ -27,13 +27,13 @@ | |||
| 27 | "Path to regex-resources directory next to the \"regex-tests.el\" file.") | 27 | "Path to regex-resources directory next to the \"regex-tests.el\" file.") |
| 28 | 28 | ||
| 29 | (ert-deftest regex-word-cc-fallback-test () | 29 | (ert-deftest regex-word-cc-fallback-test () |
| 30 | "Test that ‘[[:cc:]]*x’ matches ‘x’ (bug#24020). | 30 | "Test that \"[[:cc:]]*x\" matches \"x\" (bug#24020). |
| 31 | 31 | ||
| 32 | Test that a regex of the form \"[[:cc:]]*x\" where CC is | 32 | Test that a regex of the form \"[[:cc:]]*x\" where CC is |
| 33 | a character class which matches a multibyte character X, matches | 33 | a character class which matches a multibyte character X, matches |
| 34 | string \"x\". | 34 | string \"x\". |
| 35 | 35 | ||
| 36 | For example, ‘[[:word:]]*\u2620’ regex (note: \u2620 is a word | 36 | For example, \"[[:word:]]*\u2620\" regex (note: \u2620 is a word |
| 37 | character) must match a string \"\u2420\"." | 37 | character) must match a string \"\u2420\"." |
| 38 | (dolist (class '("[[:word:]]" "\\sw")) | 38 | (dolist (class '("[[:word:]]" "\\sw")) |
| 39 | (dolist (repeat '("*" "+")) | 39 | (dolist (repeat '("*" "+")) |