diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2016-05-10 08:05:49 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2016-05-10 08:05:49 +0200 |
| commit | cfa59d6a26b55d81d5df3d5a0ba618c8c5808aa0 (patch) | |
| tree | 93880872ab44ea0b16e0c3c1b117576e0388c3b4 | |
| parent | c20cc0986cdade6577d6ce169330db19e2169794 (diff) | |
| download | emacs-cfa59d6a26b55d81d5df3d5a0ba618c8c5808aa0.tar.gz | |
; Instrument tramp-tests.el
| -rw-r--r-- | test/lisp/net/tramp-tests.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index 6bbe9691286..0f40468ec98 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el @@ -639,9 +639,13 @@ This checks also `file-name-as-directory', `file-name-directory', (should-not (unhandled-file-name-directory "/method:host:/path/to/file")) + (unwind-protect ;; Bug#10085. (dolist (n-e '(nil t)) (let ((non-essential n-e)) + (when (getenv "NIX_STORE") + (dolist (elt (all-completions "tramp-" obarray 'functionp)) + (trace-function-background (intern elt)))) (dolist (file `(,(file-remote-p tramp-test-temporary-file-directory 'method) ,(file-remote-p tramp-test-temporary-file-directory 'host))) @@ -656,7 +660,10 @@ This checks also `file-name-as-directory', `file-name-directory', (file-name-as-directory file) (if (tramp-completion-mode-p) file (concat file "./")))) (should (string-equal (file-name-directory file) file)) - (should (string-equal (file-name-nondirectory file) ""))))))) + (should (string-equal (file-name-nondirectory file) "")))))) + (when (getenv "NIX_STORE") + (untrace-all) + (message "%s" (with-current-buffer trace-buffer (buffer-string)))))) (ert-deftest tramp-test07-file-exists-p () "Check `file-exist-p', `write-region' and `delete-file'." |