* automated/tramp-tests.el (tramp--test-check-files): Extend test.

(tramp-test31-utf8): Let-bind also `file-name-coding-system'.

diff --git a/test/ChangeLog b/test/ChangeLog
index 0d8dd76..d677d13 100644 (file)
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,8 @@
+2014-04-19  Michael Albinus  <michael.albinus@gmx.de>
+
+       * automated/tramp-tests.el (tramp--test-check-files): Extend test.
+       (tramp-test31-utf8): Let-bind also `file-name-coding-system'.
+
 2014-04-18  Michael Albinus  <michael.albinus@gmx.de>
 
        * automated/tramp-tests.el (tramp-copy-size-limit): Set to nil.

diff --git a/test/automated/tramp-tests.el b/test/automated/tramp-tests.el
index dff9103..6077184 100644 (file)
--- a/test/automated/tramp-tests.el
+++ b/test/automated/tramp-tests.el
@@ -1418,23 +1418,37 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
 
 (defun tramp--test-check-files (&rest files)
   "Runs a simple but comprehensive test over every file in FILES."
-  (let ((tmp-name (tramp--test-make-temp-name)))
+  (let ((tmp-name1 (tramp--test-make-temp-name))
+       (tmp-name2 (tramp--test-make-temp-name 'local)))
     (unwind-protect
        (progn
-         (make-directory tmp-name)
+         (make-directory tmp-name1)
+         (make-directory tmp-name2)
          (dolist (elt files)
-           (let ((file (expand-file-name elt tmp-name)))
-             (write-region elt nil file)
-             (should (file-exists-p file))
+           (let ((file1 (expand-file-name elt tmp-name1))
+                 (file2 (expand-file-name elt tmp-name2)))
+             (write-region elt nil file1)
+             (should (file-exists-p file1))
              ;; Check file contents.
              (with-temp-buffer
-               (insert-file-contents file)
-               (should (string-equal (buffer-string) elt)))))
+               (insert-file-contents file1)
+               (should (string-equal (buffer-string) elt)))
+             ;; Copy file both directions.
+             (copy-file file1 tmp-name2)
+             (should (file-exists-p file2))
+             (delete-file file1)
+             (should-not (file-exists-p file1))
+             (copy-file file2 tmp-name1)
+             (should (file-exists-p file1))))
          ;; Check file names.
          (should (equal (directory-files
-                         tmp-name nil directory-files-no-dot-files-regexp)
-                        (sort files 'string-lessp))))
-      (ignore-errors (delete-directory tmp-name 'recursive)))))
+                         tmp-name1 nil directory-files-no-dot-files-regexp)
+                        (sort (copy-sequence files) 'string-lessp)))
+         (should (equal (directory-files
+                         tmp-name2 nil directory-files-no-dot-files-regexp)
+                        (sort (copy-sequence files) 'string-lessp))))
+      (ignore-errors (delete-directory tmp-name1 'recursive))
+      (ignore-errors (delete-directory tmp-name2 'recursive)))))
 
 ;; This test is inspired by Bug#17238.
 (ert-deftest tramp-test30-special-characters ()
@@ -1463,11 +1477,12 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
   (skip-unless (tramp--test-enabled))
 
   (let ((coding-system-for-read 'utf-8)
-       (coding-system-for-write 'utf-8))
-      (tramp--test-check-files
-       "أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت"
-       "银河系漫游指南系列"
-       "Автостопом по гала́ктике")))
+       (coding-system-for-write 'utf-8)
+       (file-name-coding-system 'utf-8))
+    (tramp--test-check-files
+     "أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها بلا اتصال بالإنترنت"
+     "银河系漫游指南系列"
+     "Автостопом по гала́ктике")))
 
 ;; This test is inspired by Bug#16928.
 (ert-deftest tramp-test32-asynchronous-requests ()