diff options
| author | John Wiegley | 2016-01-11 22:51:27 -0800 |
|---|---|---|
| committer | John Wiegley | 2016-01-11 22:51:27 -0800 |
| commit | c7bef6a4f033fa6b22906de0be6da54958d5b3c3 (patch) | |
| tree | 3a0f34b340ad01de290f068530c27f35aba83724 /test/lisp | |
| parent | f5d90b5fcf0251466055c7dbed6069c1850d802d (diff) | |
| parent | 1f6898d0510cd15455f665c0f38451755a374243 (diff) | |
| download | emacs-c7bef6a4f033fa6b22906de0be6da54958d5b3c3.tar.gz emacs-c7bef6a4f033fa6b22906de0be6da54958d5b3c3.zip | |
Merge from origin/emacs-25
1f6898d test/automated/vc-hg.el: Support out-of-tree build
3adb56e Minor change in tramp-tests.el
2b535ba ; * etc/NEWS: Update the js.el entry.
76b518c * etc/HELLO: Add Armenian and Mongolian greetings.
b51f1ef Java Mode: Fontify identifiers in the presence of annotations.
36b9539 Avoid an infloop when we run out of memory
2006752 Avoid unnecessary failures of auto-saving after fatal error
eef6784 Simplify HAVE_MODULES use in mark_maybe_pointer
552694a Revert attempt to use 'noexcept' in typedef
6ad0d39 Update documentation of 'indirect-function'
c6a5314 ; * etc/NEWS: Move entry of 'inhibit-point-motion-hooks'.
303141a Update documentation for obsoleting 'syntax-begin-function'
4e6f61c ; * etc/NEWS: Mark documented and not-to-be-documented entries.
e667bbb Document new features if Eshell
9c4e4e0 ; * etc/NEWS: Update EUDC entries.
1089dc9 Handle too long commands in Tramp
684eb58 * .gitattributes: *.cur and *.pif are binary files too.
d2c7fda * src/alloc.c (mark_maybe_pointer): HAVE_MODULES may be undefined
bd3f53d * sh-script.el (sh-smie-sh-rules): Improve indentation inside $(...)
09b2b8a * src/alloc.c (mark_maybe_pointer): Also check wide-int's emacs_value
cca0f93 ; Account for spaces before the filename
c71e1e8 Use short date for 'hg annotate', and output the author
f50027b Spelling fix
c7dff67 ; * etc/NEWS: Fix the Xref entries that got separated.
cc140bc Document user-level functions in project.el
f8208b6 Document the user-level features of the Xref package
b131fb8 * loading.texi: Add `define-type' entry for load-history
db3c2a8 Improve doc strings and prompts in xref.el
f6117ef Allow the use of `font-lock-extend-region-multiline' in CC Mode.
90fd798 Fix coding system for Tramp on OS X.
e985a0e ; * etc/NEWS: Mark the 'check-expensive' entry not to be documented.
9dfcbf0 Update 'load-history' docs
207e191 Fix (error ...) error
457738f Correctly analyze brace arguments in templated C++ function declarations.
d57724a * lisp/cedet/mode-local.el (describe-function-orig-buffer): Declare.
2a9532d * lisp/ffap.el (ffap-latex-mode): Avoid free variable.
1a6b084 * lisp/play/dunnet.el (dun-fix-screen): Avoid `end-of-buffer`.
8be046f Respect fontification region calculated by major mode. Fixes bug #22316.
4b37cba Improve documentation of Delete Selection mode
a034dd3 Fix two project-find-file issues
30abf29 Clarify doc string of 'dired-current-directory'
e990bb2 Use the face of preceding text for displaying the ellipsis
5810ac3 Suppress Chinese file name test for OSX in tramp-tests.el
eeb710a ; * lisp/startup.el: Sentences end with two spaces.
428b3de * admin/admin.el (set-version): Also handle the NEWS file.
648de81 ; Add NEWS entry for project.el
671862f apropos-library: Skip obvious duplicates; don't error on generics
51668a5 ; Grammar fix
ed41d11 Add project-find-file and project-or-external-find-file
056da45 ; Improve commentary in 'setup_for_ellipsis'
269d008 ; Improve docstring for `inhibit-startup-echo-area-message'
Diffstat (limited to 'test/lisp')
| -rw-r--r-- | test/lisp/net/tramp-tests.el | 17 |
1 files changed, 6 insertions, 11 deletions
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index f0725847699..305ca9d6770 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el | |||
| @@ -44,6 +44,7 @@ | |||
| 44 | (require 'vc-git) | 44 | (require 'vc-git) |
| 45 | (require 'vc-hg) | 45 | (require 'vc-hg) |
| 46 | 46 | ||
| 47 | (autoload 'dired-uncache "dired") | ||
| 47 | (declare-function tramp-find-executable "tramp-sh") | 48 | (declare-function tramp-find-executable "tramp-sh") |
| 48 | (declare-function tramp-get-remote-path "tramp-sh") | 49 | (declare-function tramp-get-remote-path "tramp-sh") |
| 49 | (declare-function tramp-get-remote-stat "tramp-sh") | 50 | (declare-function tramp-get-remote-stat "tramp-sh") |
| @@ -1654,6 +1655,9 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'." | |||
| 1654 | (vc-register | 1655 | (vc-register |
| 1655 | nil (list (car vc-handled-backends) | 1656 | nil (list (car vc-handled-backends) |
| 1656 | (list (file-name-nondirectory tmp-name2)))))) | 1657 | (list (file-name-nondirectory tmp-name2)))))) |
| 1658 | ;; vc-git uses an own process sentinel, Tramp's sentinel | ||
| 1659 | ;; for flushing the cache isn't used. | ||
| 1660 | (dired-uncache (concat (file-remote-p default-directory) "/")) | ||
| 1657 | (should (vc-registered (file-name-nondirectory tmp-name2))))) | 1661 | (should (vc-registered (file-name-nondirectory tmp-name2))))) |
| 1658 | 1662 | ||
| 1659 | ;; Cleanup. | 1663 | ;; Cleanup. |
| @@ -1777,14 +1781,6 @@ Several special characters do not work properly there." | |||
| 1777 | (file-truename tramp-test-temporary-file-directory) nil | 1781 | (file-truename tramp-test-temporary-file-directory) nil |
| 1778 | (string-match "^HP-UX" (tramp-get-connection-property v "uname" "")))) | 1782 | (string-match "^HP-UX" (tramp-get-connection-property v "uname" "")))) |
| 1779 | 1783 | ||
| 1780 | (defun tramp--test-darwin-p () | ||
| 1781 | "Check, whether the remote host runs Mac OS X. | ||
| 1782 | Several special characters do not work properly there." | ||
| 1783 | ;; We must refill the cache. `file-truename' does it. | ||
| 1784 | (with-parsed-tramp-file-name | ||
| 1785 | (file-truename tramp-test-temporary-file-directory) nil | ||
| 1786 | (string-match "^Darwin" (tramp-get-connection-property v "uname" "")))) | ||
| 1787 | |||
| 1788 | (defun tramp--test-check-files (&rest files) | 1784 | (defun tramp--test-check-files (&rest files) |
| 1789 | "Run a simple but comprehensive test over every file in FILES." | 1785 | "Run a simple but comprehensive test over every file in FILES." |
| 1790 | ;; We must use `file-truename' for the temporary directory, because | 1786 | ;; We must use `file-truename' for the temporary directory, because |
| @@ -2030,16 +2026,15 @@ Use the `ls' command." | |||
| 2030 | 2026 | ||
| 2031 | (defun tramp--test-utf8 () | 2027 | (defun tramp--test-utf8 () |
| 2032 | "Perform the test in `tramp-test32-utf8*'." | 2028 | "Perform the test in `tramp-test32-utf8*'." |
| 2033 | (tramp--instrument-test-case 10 | ||
| 2034 | (let ((coding-system-for-read 'utf-8) | 2029 | (let ((coding-system-for-read 'utf-8) |
| 2035 | (coding-system-for-write 'utf-8) | 2030 | (coding-system-for-write 'utf-8) |
| 2036 | (file-name-coding-system 'utf-8)) | 2031 | (file-name-coding-system 'utf-8)) |
| 2037 | (tramp--test-check-files | 2032 | (tramp--test-check-files |
| 2038 | (unless (tramp--test-hpux-p) "Γυρίστε το Γαλαξία με Ώτο Στοπ") | 2033 | (unless (tramp--test-hpux-p) "Γυρίστε το Γαλαξία με Ώτο Στοπ") |
| 2039 | (unless (or (tramp--test-hpux-p) (tramp--test-darwin-p)) | 2034 | (unless (tramp--test-hpux-p) |
| 2040 | "أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت") | 2035 | "أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت") |
| 2041 | "银河系漫游指南系列" | 2036 | "银河系漫游指南系列" |
| 2042 | "Автостопом по гала́ктике")))) | 2037 | "Автостопом по гала́ктике"))) |
| 2043 | 2038 | ||
| 2044 | (ert-deftest tramp-test32-utf8 () | 2039 | (ert-deftest tramp-test32-utf8 () |
| 2045 | "Check UTF8 encoding in file names and file contents." | 2040 | "Check UTF8 encoding in file names and file contents." |