aboutsummaryrefslogtreecommitdiffstats
path: root/test/lisp
diff options
context:
space:
mode:
authorJohn Wiegley2016-01-11 22:51:27 -0800
committerJohn Wiegley2016-01-11 22:51:27 -0800
commitc7bef6a4f033fa6b22906de0be6da54958d5b3c3 (patch)
tree3a0f34b340ad01de290f068530c27f35aba83724 /test/lisp
parentf5d90b5fcf0251466055c7dbed6069c1850d802d (diff)
parent1f6898d0510cd15455f665c0f38451755a374243 (diff)
downloademacs-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.el17
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.
1782Several 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."