aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorPaul Eggert2017-11-25 22:55:35 -0800
committerPaul Eggert2017-11-25 22:55:35 -0800
commitd20161b25e9cd184d841ba9e36ee5141c01fd75f (patch)
tree6026fea9d48e641bf63b23209970efd1f8024e2c /test
parente27004c5fe3c227476ea210ff5bee2efb783ae17 (diff)
parenta89f0b6f33f9eb8910a1fceda9028d76ef50b05d (diff)
downloademacs-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.el2
-rw-r--r--test/lisp/files-tests.el14
-rw-r--r--test/lisp/net/tramp-tests.el8
-rw-r--r--test/lisp/replace-tests.el4
-rw-r--r--test/lisp/simple-tests.el2
-rw-r--r--test/lisp/vc/vc-bzr-tests.el2
-rw-r--r--test/manual/etags/c-src/emacs/src/lisp.h2
-rw-r--r--test/src/fns-tests.el2
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'.
416See <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 "\
60a 60a
@@ -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 "\
76a 76a
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