* test/automated/tramp-tests.el (tramp-test29-vc-registered):

Remove instrumentation.
This commit is contained in:
Michael Albinus 2014-06-02 20:38:22 +02:00
parent e915914b93
commit 2589f32c61
2 changed files with 2 additions and 8 deletions

View file

@ -1,7 +1,7 @@
2014-06-02 Michael Albinus <michael.albinus@gmx.de>
* automated/tramp-tests.el (tramp-remote-process-environment): Declare.
(tramp-test29-vc-registered): Set $BZR_HOME.
(tramp-test29-vc-registered): Set $BZR_HOME. Remove instrumentation.
2014-06-01 Michael Albinus <michael.albinus@gmx.de>

View file

@ -1395,7 +1395,6 @@ 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))
@ -1440,12 +1439,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
(list (file-name-nondirectory tmp-name2)))))
(should (vc-registered tmp-name2)))
(with-parsed-tramp-file-name tramp-test-temporary-file-directory nil
(with-current-buffer (tramp-get-connection-buffer v)
(message "%s" (buffer-string)))
(with-current-buffer (tramp-get-debug-buffer v)
(message "%s" (buffer-string))))
(ignore-errors (delete-directory tmp-name1 'recursive))))))
(ignore-errors (delete-directory tmp-name1 'recursive)))))
(defun tramp--test-check-files (&rest files)
"Runs a simple but comprehensive test over every file in FILES."