[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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-25 75a005d: Instrument Tramp tests,
Michael Albinus <=