diff options
| author | Michael Albinus <[email protected]> | 2014-06-01 18:16:26 +0200 |
|---|---|---|
| committer | Michael Albinus <[email protected]> | 2014-06-01 18:16:26 +0200 |
| commit | 30491d4964c17d1448a10bec0563ad321fd3e9e9 (patch) | |
| tree | 3de7a72c00ff5f0ec29b84fbd2b623dea50353c8 /test | |
| parent | be04283a7f74d6a5159a312bacd08fb31beee054 (diff) | |
* tramp-tests.el (tramp-test29-vc-registered):
Add more instrumentation code.
Diffstat (limited to 'test')
| -rw-r--r-- | test/automated/tramp-tests.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/test/automated/tramp-tests.el b/test/automated/tramp-tests.el index ef229710cd..1ab3e1a652 100644 --- a/test/automated/tramp-tests.el +++ b/test/automated/tramp-tests.el @@ -1430,7 +1430,12 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'." (list (file-name-nondirectory tmp-name2))))) (should (vc-registered tmp-name2))) - (ignore-errors (delete-directory tmp-name1 'recursive)))))) + (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)))))) (defun tramp--test-check-files (&rest files) "Runs a simple but comprehensive test over every file in FILES." |