From cfa59d6a26b55d81d5df3d5a0ba618c8c5808aa0 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Tue, 10 May 2016 08:05:49 +0200 Subject: [PATCH] ; Instrument tramp-tests.el --- test/lisp/net/tramp-tests.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) 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'." -- 2.39.2