diff options
| author | Michael Albinus | 2016-05-09 16:53:49 +0200 |
|---|---|---|
| committer | Michael Albinus | 2016-05-09 16:53:49 +0200 |
| commit | 608f2bd0ac9d950a04ad73bf36d96d25b469b9be (patch) | |
| tree | b4ec597c9ad0432964e1a02d7a042072e37e134c | |
| parent | fd45b5276ba1454c8b4f06cd53367830c1389d84 (diff) | |
| download | emacs-608f2bd0ac9d950a04ad73bf36d96d25b469b9be.tar.gz emacs-608f2bd0ac9d950a04ad73bf36d96d25b469b9be.zip | |
; Instrument tramp-tests.el
| -rw-r--r-- | test/lisp/net/tramp-tests.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index a85eed0302a..6bbe9691286 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el | |||
| @@ -648,6 +648,9 @@ This checks also `file-name-as-directory', `file-name-directory', | |||
| 648 | (unless (zerop (length file)) | 648 | (unless (zerop (length file)) |
| 649 | (setq file (format "/%s:" file)) | 649 | (setq file (format "/%s:" file)) |
| 650 | (should (string-equal (directory-file-name file) file)) | 650 | (should (string-equal (directory-file-name file) file)) |
| 651 | (when (getenv "NIX_STORE") | ||
| 652 | (message "file %s non-essential %s tramp-completion-mode-p %s" | ||
| 653 | file non-essential (tramp-completion-mode-p))) | ||
| 651 | (should | 654 | (should |
| 652 | (string-equal | 655 | (string-equal |
| 653 | (file-name-as-directory file) | 656 | (file-name-as-directory file) |