[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-24 r116986: Instrument `tramp--test-check-files' in
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] emacs-24 r116986: Instrument `tramp--test-check-files' in order to get traces on hydra. |
Date: |
Sat, 19 Apr 2014 21:05:33 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 116986
revision-id: address@hidden
parent: address@hidden
committer: Michael Albinus <address@hidden>
branch nick: emacs-24
timestamp: Sat 2014-04-19 23:05:30 +0200
message:
Instrument `tramp--test-check-files' in order to get traces on hydra.
modified:
test/automated/tramp-tests.el tramptests.el-20131105142319-d9zp3oprkpxj5v1e-1
=== modified file 'test/automated/tramp-tests.el'
--- a/test/automated/tramp-tests.el 2014-04-19 14:14:26 +0000
+++ b/test/automated/tramp-tests.el 2014-04-19 21:05:30 +0000
@@ -1418,6 +1418,7 @@
(defun tramp--test-check-files (&rest files)
"Runs a simple but comprehensive test over every file in FILES."
+ (tramp--instrument-test-case 10
(let ((tmp-name1 (tramp--test-make-temp-name))
(tmp-name2 (tramp--test-make-temp-name 'local)))
(unwind-protect
@@ -1448,7 +1449,7 @@
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)))))
+ (ignore-errors (delete-directory tmp-name2 'recursive))))))
;; This test is inspired by Bug#17238.
(ert-deftest tramp-test30-special-characters ()
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-24 r116986: Instrument `tramp--test-check-files' in order to get traces on hydra.,
Michael Albinus <=