diff options
Diffstat (limited to 'test/src')
| -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 |
4 files changed, 7 insertions, 8 deletions
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 '("*" "+")) |