diff options
| author | Michael Albinus | 2014-06-01 18:16:26 +0200 |
|---|---|---|
| committer | Michael Albinus | 2014-06-01 18:16:26 +0200 |
| commit | 30491d4964c17d1448a10bec0563ad321fd3e9e9 (patch) | |
| tree | 3de7a72c00ff5f0ec29b84fbd2b623dea50353c8 | |
| parent | be04283a7f74d6a5159a312bacd08fb31beee054 (diff) | |
| download | emacs-30491d4964c17d1448a10bec0563ad321fd3e9e9.tar.gz emacs-30491d4964c17d1448a10bec0563ad321fd3e9e9.zip | |
* tramp-tests.el (tramp-test29-vc-registered):
Add more instrumentation code.
| -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 ef229710cdf..1ab3e1a6524 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'." | |||
| 1430 | (list (file-name-nondirectory tmp-name2))))) | 1430 | (list (file-name-nondirectory tmp-name2))))) |
| 1431 | (should (vc-registered tmp-name2))) | 1431 | (should (vc-registered tmp-name2))) |
| 1432 | 1432 | ||
| 1433 | (ignore-errors (delete-directory tmp-name1 'recursive)))))) | 1433 | (with-parsed-tramp-file-name tramp-test-temporary-file-directory nil |
| 1434 | (with-current-buffer (tramp-get-connection-buffer v) | ||
| 1435 | (message "%s" (buffer-string))) | ||
| 1436 | (with-current-buffer (tramp-get-debug-buffer v) | ||
| 1437 | (message "%s" (buffer-string)))) | ||
| 1438 | (ignore-errors (delete-directory tmp-name1 'recursive)))))) | ||
| 1434 | 1439 | ||
| 1435 | (defun tramp--test-check-files (&rest files) | 1440 | (defun tramp--test-check-files (&rest files) |
| 1436 | "Runs a simple but comprehensive test over every file in FILES." | 1441 | "Runs a simple but comprehensive test over every file in FILES." |