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." (point) (point-max)))))))) (ert-deftest module--test-assertions--load-non-live-object () - "Check that -module-assertions verify that non-live objects -aren’t accessed." + "Check that -module-assertions verify that non-live objects aren't accessed." (skip-unless (file-executable-p mod-test-emacs)) - ;; This doesn’t yet cause undefined behavior. + ;; This doesn't yet cause undefined behavior. (should (eq (mod-test-invalid-store) 123)) (module--test-assertion (rx "Emacs value not found in " (+ 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 @@ (require 'ert) (ert-deftest eval-tests--bug24673 () - "Checks that Bug#24673 has been fixed." + "Check that Bug#24673 has been fixed." ;; This should not crash. (should-error (funcall '(closure)) :type 'invalid-function)) (defvar byte-compile-debug) (ert-deftest eval-tests--bugs-24912-and-24913 () - "Checks that Emacs doesn’t accept weird argument lists. + "Check that Emacs doesn't accept weird argument lists. Bug#24912 and Bug#24913." (dolist (args '((&optional) (&rest) (&optional &rest) (&rest &optional) (&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 @@ (should-error (nconc (cyc2 1 2) 'tail) :type 'circular-list)) (ert-deftest plist-get/odd-number-of-elements () - "Test that ‘plist-get’ doesn’t signal an error on degenerate plists." + "Test that `plist-get' doesn't signal an error on degenerate plists." (should-not (plist-get '(:foo 1 :bar) :bar))) (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 @@ "Path to regex-resources directory next to the \"regex-tests.el\" file.") (ert-deftest regex-word-cc-fallback-test () - "Test that ‘[[:cc:]]*x’ matches ‘x’ (bug#24020). + "Test that \"[[:cc:]]*x\" matches \"x\" (bug#24020). Test that a regex of the form \"[[:cc:]]*x\" where CC is a character class which matches a multibyte character X, matches string \"x\". -For example, ‘[[:word:]]*\u2620’ regex (note: \u2620 is a word +For example, \"[[:word:]]*\u2620\" regex (note: \u2620 is a word character) must match a string \"\u2420\"." (dolist (class '("[[:word:]]" "\\sw")) (dolist (repeat '("*" "+")) |