diff options
| author | Paul Eggert | 2017-11-25 22:55:35 -0800 |
|---|---|---|
| committer | Paul Eggert | 2017-11-25 22:55:35 -0800 |
| commit | d20161b25e9cd184d841ba9e36ee5141c01fd75f (patch) | |
| tree | 6026fea9d48e641bf63b23209970efd1f8024e2c /test | |
| parent | e27004c5fe3c227476ea210ff5bee2efb783ae17 (diff) | |
| parent | a89f0b6f33f9eb8910a1fceda9028d76ef50b05d (diff) | |
| download | emacs-d20161b25e9cd184d841ba9e36ee5141c01fd75f.tar.gz emacs-d20161b25e9cd184d841ba9e36ee5141c01fd75f.zip | |
Merge from origin/emacs-26
a89f0b6f33 maint: shorten https://lists.gnu.org/archive/html/... links
8be3aee281 Merge from Gnulib
265cee553f Work around GCC bug 80776 on Fedora 27 x86
dc7a97fb84 Tweak copy-file, rename-file doc
cfa2a944d4 Change font-lock-extend-region-multiline handling in mhtml...
a8664cc998 Minor cleanup in tramp-gvfs-handle-file-local-copy
55c5b12fa0 Add test for Bug#29423 in Tramp.
3198a1646e Avoid jumbled order in HTML rendered by shr.el
23bfc2d2db Make sure 'dired-filename' property is always put by ls-lisp
f7fdaea4c0 A better solution for bug#29347
86e6ed8521 ; * src/thread.c (acquire_global_lock): Fix thinko in last...
f300852037 Avoid a hang after C-g while sit-for on a Unix TTY
d7fc719ff1 Improve the doc string of 'list-packages'
b4f67ebb92 Improve discoverability of 'defvar' for suppressing warnings
8a2b204e64 Improve discoverability of 'read-buffer-completion-ignore-...
eea4e9194c Improve documentation of self-insert-uses-region-functions
e6e41dac87 Reflect changes in copy-file and rename-file in doc strings
0ec534070f * lisp/progmodes/cc-vars.el (c-offsets-alist): Doc fix. (...
1d0dbdff6c Reorder type predicates in ELisp manual
b081ec9dd7 Fix backward scrolling in buffers with header-line
8e40429c96 ; Fix some doc typos
ed2c542920 * lisp/bindings.el (buffer-file-coding-system): Add explic...
d82474e452 * src/fns.c (syms_of_fns) <overriding-plist-environment>: ...
292c09ff6d Fix incorrect interaction of drag/drop and double click (b...
d6fadb1d26 * lisp/menu-bar.el (menu-bar-options-save): Add display-li...
daa959efbc * lisp/menu-bar.el (menu-bar-options-save): Add global-dis...
17fc74d1b9 * lisp/follow.el (follow-mode): Restore mode line lighter....
f20c2e2f3d ; Compare process status against 127 exactly
2d203ffb7e Extract the common part of ruby-flymake-simple and ruby-fl...
09944d499a Add Rubocop Flymake backend
c65a0ae7c4 ; Fix a typo
7ab7603125 Update nt/INSTALL.W64 (Bug#28601)
11db253c08 Remove incorrect NEWS item about VC state indicator (Bug#2...
2fdc01c036 * lisp/emacs-lisp/byte-run.el (defsubst): Doc fix.
735c8b516e Make c-defun-name analyze more thoroughly a function type ...
92f0c4cd56 Avoid bogus abbreviated file names if HOME changes
8d450453fa * lisp/emacs-lisp/byte-run.el (inline): Give it a doc.
37a3b4ea40 Fix erc keep-place module with new defaults (Bug#29111)
6c312605bf Add window divider faces to NS (bug#29353)
# Conflicts:
# etc/NEWS
# lisp/ruler-mode.el
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/char-fold-tests.el | 2 | ||||
| -rw-r--r-- | test/lisp/files-tests.el | 14 | ||||
| -rw-r--r-- | test/lisp/net/tramp-tests.el | 8 | ||||
| -rw-r--r-- | test/lisp/replace-tests.el | 4 | ||||
| -rw-r--r-- | test/lisp/simple-tests.el | 2 | ||||
| -rw-r--r-- | test/lisp/vc/vc-bzr-tests.el | 2 | ||||
| -rw-r--r-- | test/manual/etags/c-src/emacs/src/lisp.h | 2 | ||||
| -rw-r--r-- | test/src/fns-tests.el | 2 |
8 files changed, 29 insertions, 7 deletions
diff --git a/test/lisp/char-fold-tests.el b/test/lisp/char-fold-tests.el index a16f2879809..8be22973913 100644 --- a/test/lisp/char-fold-tests.el +++ b/test/lisp/char-fold-tests.el | |||
| @@ -102,7 +102,7 @@ | |||
| 102 | (char-fold--test-match-exactly "a1" "xx44" "99") | 102 | (char-fold--test-match-exactly "a1" "xx44" "99") |
| 103 | (char-fold--test-match-exactly "a12" "77" "xx442" "992") | 103 | (char-fold--test-match-exactly "a12" "77" "xx442" "992") |
| 104 | ;; Support for this case is disabled. See function definition or: | 104 | ;; Support for this case is disabled. See function definition or: |
| 105 | ;; https://lists.gnu.org/archive/html/emacs-devel/2015-11/msg02562.html | 105 | ;; https://lists.gnu.org/r/emacs-devel/2015-11/msg02562.html |
| 106 | ;; (char-fold--test-match-exactly "a12" "xxyy") | 106 | ;; (char-fold--test-match-exactly "a12" "xxyy") |
| 107 | )) | 107 | )) |
| 108 | 108 | ||
diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el index 285a884b695..732b3c02379 100644 --- a/test/lisp/files-tests.el +++ b/test/lisp/files-tests.el | |||
| @@ -411,5 +411,19 @@ name (Bug#28412)." | |||
| 411 | (should (file-directory-p (concat (file-name-as-directory dest2) "a"))) | 411 | (should (file-directory-p (concat (file-name-as-directory dest2) "a"))) |
| 412 | (delete-directory dir 'recursive))) | 412 | (delete-directory dir 'recursive))) |
| 413 | 413 | ||
| 414 | (ert-deftest files-test-abbreviated-home-dir () | ||
| 415 | "Test that changing HOME does not confuse `abbreviate-file-name'. | ||
| 416 | See <https://debbugs.gnu.org/19657#20>." | ||
| 417 | (let* ((homedir temporary-file-directory) | ||
| 418 | (process-environment (cons (format "HOME=%s" homedir) | ||
| 419 | process-environment)) | ||
| 420 | (abbreviated-home-dir nil) | ||
| 421 | (testfile (expand-file-name "foo" homedir)) | ||
| 422 | (old (file-truename (abbreviate-file-name testfile))) | ||
| 423 | (process-environment (cons (format "HOME=%s" | ||
| 424 | (expand-file-name "bar" homedir)) | ||
| 425 | process-environment))) | ||
| 426 | (should (equal old (file-truename (abbreviate-file-name testfile)))))) | ||
| 427 | |||
| 414 | (provide 'files-tests) | 428 | (provide 'files-tests) |
| 415 | ;;; files-tests.el ends here | 429 | ;;; files-tests.el ends here |
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index 491ff60e3e8..efc2c578d59 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el | |||
| @@ -2313,6 +2313,14 @@ This tests also `file-directory-p' and `file-accessible-directory-p'." | |||
| 2313 | (insert-directory tmp-name1 nil) | 2313 | (insert-directory tmp-name1 nil) |
| 2314 | (goto-char (point-min)) | 2314 | (goto-char (point-min)) |
| 2315 | (should (looking-at-p (regexp-quote tmp-name1)))) | 2315 | (should (looking-at-p (regexp-quote tmp-name1)))) |
| 2316 | ;; This has been fixed in Emacs 26.1. See Bug#29423. | ||
| 2317 | (when (tramp--test-emacs26-p) | ||
| 2318 | (with-temp-buffer | ||
| 2319 | (insert-directory (file-name-as-directory tmp-name1) nil) | ||
| 2320 | (goto-char (point-min)) | ||
| 2321 | (should | ||
| 2322 | (looking-at-p | ||
| 2323 | (regexp-quote (file-name-as-directory tmp-name1)))))) | ||
| 2316 | (with-temp-buffer | 2324 | (with-temp-buffer |
| 2317 | (insert-directory tmp-name1 "-al") | 2325 | (insert-directory tmp-name1 "-al") |
| 2318 | (goto-char (point-min)) | 2326 | (goto-char (point-min)) |
diff --git a/test/lisp/replace-tests.el b/test/lisp/replace-tests.el index 06b6dd8a0a9..e9564e555ee 100644 --- a/test/lisp/replace-tests.el +++ b/test/lisp/replace-tests.el | |||
| @@ -54,7 +54,7 @@ fx | |||
| 54 | 6:fx | 54 | 6:fx |
| 55 | ") | 55 | ") |
| 56 | ;; * Test multi-line matches, this is the first test from | 56 | ;; * Test multi-line matches, this is the first test from |
| 57 | ;; https://lists.gnu.org/archive/html/emacs-devel/2005-06/msg01008.html | 57 | ;; https://lists.gnu.org/r/emacs-devel/2005-06/msg01008.html |
| 58 | ;; where numbers are replaced with letters. | 58 | ;; where numbers are replaced with letters. |
| 59 | ("a\na" 0 "\ | 59 | ("a\na" 0 "\ |
| 60 | a | 60 | a |
| @@ -70,7 +70,7 @@ a | |||
| 70 | :a | 70 | :a |
| 71 | ") | 71 | ") |
| 72 | ;; * Test multi-line matches, this is the second test from | 72 | ;; * Test multi-line matches, this is the second test from |
| 73 | ;; https://lists.gnu.org/archive/html/emacs-devel/2005-06/msg01008.html | 73 | ;; https://lists.gnu.org/r/emacs-devel/2005-06/msg01008.html |
| 74 | ;; where numbers are replaced with letters. | 74 | ;; where numbers are replaced with letters. |
| 75 | ("a\nb" 0 "\ | 75 | ("a\nb" 0 "\ |
| 76 | a | 76 | a |
diff --git a/test/lisp/simple-tests.el b/test/lisp/simple-tests.el index 5133e686a15..521365bbb94 100644 --- a/test/lisp/simple-tests.el +++ b/test/lisp/simple-tests.el | |||
| @@ -280,7 +280,7 @@ | |||
| 280 | (undo-auto--boundaries 'test)))) | 280 | (undo-auto--boundaries 'test)))) |
| 281 | 281 | ||
| 282 | ;; Test for a regression introduced by undo-auto--boundaries changes. | 282 | ;; Test for a regression introduced by undo-auto--boundaries changes. |
| 283 | ;; https://lists.gnu.org/archive/html/emacs-devel/2015-11/msg01652.html | 283 | ;; https://lists.gnu.org/r/emacs-devel/2015-11/msg01652.html |
| 284 | (defun undo-test-kill-c-a-then-undo () | 284 | (defun undo-test-kill-c-a-then-undo () |
| 285 | (with-temp-buffer | 285 | (with-temp-buffer |
| 286 | (switch-to-buffer (current-buffer)) | 286 | (switch-to-buffer (current-buffer)) |
diff --git a/test/lisp/vc/vc-bzr-tests.el b/test/lisp/vc/vc-bzr-tests.el index 85f401eb37b..24bfd4266e6 100644 --- a/test/lisp/vc/vc-bzr-tests.el +++ b/test/lisp/vc/vc-bzr-tests.el | |||
| @@ -106,7 +106,7 @@ | |||
| 106 | (should (get-buffer "*vc-log*"))) | 106 | (should (get-buffer "*vc-log*"))) |
| 107 | (delete-directory homedir t)))) | 107 | (delete-directory homedir t)))) |
| 108 | 108 | ||
| 109 | ;; https://lists.gnu.org/archive/html/help-gnu-emacs/2012-04/msg00145.html | 109 | ;; https://lists.gnu.org/r/help-gnu-emacs/2012-04/msg00145.html |
| 110 | (ert-deftest vc-bzr-test-faulty-bzr-autoloads () | 110 | (ert-deftest vc-bzr-test-faulty-bzr-autoloads () |
| 111 | "Test we can generate autoloads in a bzr directory when bzr is faulty." | 111 | "Test we can generate autoloads in a bzr directory when bzr is faulty." |
| 112 | (skip-unless (executable-find vc-bzr-program)) | 112 | (skip-unless (executable-find vc-bzr-program)) |
diff --git a/test/manual/etags/c-src/emacs/src/lisp.h b/test/manual/etags/c-src/emacs/src/lisp.h index 0c7da366519..c87fb63db85 100644 --- a/test/manual/etags/c-src/emacs/src/lisp.h +++ b/test/manual/etags/c-src/emacs/src/lisp.h | |||
| @@ -510,7 +510,7 @@ enum Lisp_Fwd_Type | |||
| 510 | 510 | ||
| 511 | /* If you want to define a new Lisp data type, here are some | 511 | /* If you want to define a new Lisp data type, here are some |
| 512 | instructions. See the thread at | 512 | instructions. See the thread at |
| 513 | https://lists.gnu.org/archive/html/emacs-devel/2012-10/msg00561.html | 513 | https://lists.gnu.org/r/emacs-devel/2012-10/msg00561.html |
| 514 | for more info. | 514 | for more info. |
| 515 | 515 | ||
| 516 | First, there are already a couple of Lisp types that can be used if | 516 | First, there are already a couple of Lisp types that can be used if |
diff --git a/test/src/fns-tests.el b/test/src/fns-tests.el index d751acb7478..705d02fdff6 100644 --- a/test/src/fns-tests.el +++ b/test/src/fns-tests.el | |||
| @@ -154,7 +154,7 @@ | |||
| 154 | (9 . "aaa") (9 . "zzz") (9 . "ppp") (9 . "fff")]))) | 154 | (9 . "aaa") (9 . "zzz") (9 . "ppp") (9 . "fff")]))) |
| 155 | 155 | ||
| 156 | (ert-deftest fns-tests-collate-sort () | 156 | (ert-deftest fns-tests-collate-sort () |
| 157 | ;; See https://lists.gnu.org/archive/html/emacs-devel/2015-10/msg02505.html. | 157 | ;; See https://lists.gnu.org/r/emacs-devel/2015-10/msg02505.html. |
| 158 | :expected-result (if (eq system-type 'cygwin) :failed :passed) | 158 | :expected-result (if (eq system-type 'cygwin) :failed :passed) |
| 159 | (skip-unless (fns-tests--collate-enabled-p)) | 159 | (skip-unless (fns-tests--collate-enabled-p)) |
| 160 | 160 | ||