emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] emacs-25 75a005d: Instrument Tramp tests


From: Michael Albinus
Subject: [Emacs-diffs] emacs-25 75a005d: Instrument Tramp tests
Date: Tue, 22 Dec 2015 11:03:19 +0000

branch: emacs-25
commit 75a005d39b97e2272d1d9a0443d2135fef4c4720
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    Instrument Tramp tests
    
    * test/automated/tramp-tests.el (tramp-test29-vc-registered)
    (tramp--test-utf8): Instrument tests.
---
 test/automated/tramp-tests.el |    6 ++++--
 1 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/test/automated/tramp-tests.el b/test/automated/tramp-tests.el
index a0be10e..97b2ffe 100644
--- a/test/automated/tramp-tests.el
+++ b/test/automated/tramp-tests.el
@@ -1601,6 +1601,7 @@ This tests also `make-symbolic-link', `file-truename' and 
`add-name-to-file'."
     (tramp-find-foreign-file-name-handler tramp-test-temporary-file-directory)
     'tramp-sh-file-name-handler))
 
+  (tramp--instrument-test-case 10
   (let* ((default-directory tramp-test-temporary-file-directory)
         (tmp-name1 (tramp--test-make-temp-name))
         (tmp-name2 (expand-file-name "foo" tmp-name1))
@@ -1652,7 +1653,7 @@ This tests also `make-symbolic-link', `file-truename' and 
`add-name-to-file'."
          (should (vc-registered tmp-name2)))
 
       ;; Cleanup.
-      (ignore-errors (delete-directory tmp-name1 'recursive)))))
+      (ignore-errors (delete-directory tmp-name1 'recursive))))))
 
 (ert-deftest tramp-test30-make-auto-save-file-name ()
   "Check `make-auto-save-file-name'."
@@ -2025,6 +2026,7 @@ Use the `ls' command."
 
 (defun tramp--test-utf8 ()
   "Perform the test in `tramp-test32-utf8*'."
+  (tramp--instrument-test-case 10
   (let ((coding-system-for-read 'utf-8)
        (coding-system-for-write 'utf-8)
        (file-name-coding-system 'utf-8))
@@ -2033,7 +2035,7 @@ Use the `ls' command."
      (unless (or (tramp--test-hpux-p) (tramp--test-darwin-p))
        "أصبح بوسعك الآن تنزيل نسخة كاملة من موسوعة ويكيبيديا العربية لتصفحها 
بلا اتصال بالإنترنت")
      "银河系漫游指南系列"
-     "Автостопом по гала́ктике")))
+     "Автостопом по гала́ктике"))))
 
 (ert-deftest tramp-test32-utf8 ()
   "Check UTF8 encoding in file names and file contents."



reply via email to

[Prev in Thread] Current Thread [Next in Thread]