diff options
| author | Glenn Morris | 2017-12-20 21:15:43 -0500 |
|---|---|---|
| committer | Glenn Morris | 2017-12-20 21:15:43 -0500 |
| commit | b1cf262a79463f28164ea1c2ffee3c657ce02ea4 (patch) | |
| tree | 4a428c5e0c026c1bb30e5972e78b145335b4b747 /test/src | |
| parent | a415a97461cb10d2c6710871f90f57bd1ca34ec2 (diff) | |
| parent | b3f4a3a5aee93fa2f7ad2597383befbf7b242209 (diff) | |
| download | emacs-b1cf262a79463f28164ea1c2ffee3c657ce02ea4.tar.gz emacs-b1cf262a79463f28164ea1c2ffee3c657ce02ea4.zip | |
Merge from origin/emacs-26
b3f4a3a (origin/emacs-26) Special-case %DUMBFW for GnuTLS between 3.2...
c2ae057 Work around GnuTLS version issues with %DUMBFW (tiny change)
2f9d9ef ; Remove the mention of "plain C code" in the docstring as well
aca827b Merge branch 'widen-less' into emacs-26
87548f5 ; Rephrase NEWS entry a bit
da0d773 (emacs-26) ; * lisp/erc/erc.el: Update URL.
3a60515 * lisp/erc/erc.el (erc-shorten-server-name): Silence compiler...
471b6c1 ; Replace non-ascii quote characters in doc strings etc
7af7f5e Fix some more aliases to user options
79fb4b5 Fix some flymake aliases
b9fbc03 (origin/widen-less) Widen in indent-for-tab-command in the no...
446faf3 Replace the mention of c-indent-defun with js-indent-line
7e9eef0 Consolidate 'widen' calls
# Conflicts:
# etc/NEWS
# lisp/progmodes/flymake-proc.el
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 '("*" "+")) |