diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2017-12-17 11:31:23 +0100 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2017-12-17 11:32:48 +0100 |
| commit | b4486de0c6484a09dcd6485c19062419279ca296 (patch) | |
| tree | bdfe6d2de117753a2843b27c4a3d161eb74edfe6 /test/lisp/net/tramp-archive-tests.el | |
| parent | bd9e8b31a1a38a2ffa5c2ff5e805a42ffccc36ec (diff) | |
| download | emacs-b4486de0c6484a09dcd6485c19062419279ca296.tar.gz | |
Minor fixes in Tramp
* lisp/net/tramp-archive.el
(tramp-archive-handle-temporary-file-directory): New defun.
(tramp-archive-file-name-handler-alist): Use it.
* test/lisp/net/tramp-archive-tests.el
(tramp-archive-test99-libarchive-tests): Rename it.
* test/lisp/net/tramp-tests.el (tramp-test34-vc-registered):
Skip for older Emacsen.
Diffstat (limited to 'test/lisp/net/tramp-archive-tests.el')
| -rw-r--r-- | test/lisp/net/tramp-archive-tests.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/test/lisp/net/tramp-archive-tests.el b/test/lisp/net/tramp-archive-tests.el index 2c9f56e47c7..464eb6c8b82 100644 --- a/test/lisp/net/tramp-archive-tests.el +++ b/test/lisp/net/tramp-archive-tests.el @@ -19,6 +19,9 @@ ;;; Code: +;; The `tramp-archive-testnn-*' tests correspond to the respective +;; tests in tramp-tests.el. + (require 'ert) (require 'tramp-archive) @@ -206,6 +209,7 @@ variables, so we check the Emacs version directly." This checks also `file-name-as-directory', `file-name-directory', `file-name-nondirectory' and `unhandled-file-name-directory'." (skip-unless tramp-gvfs-enabled) + (should (string-equal (directory-file-name "/foo.tar/path/to/file") "/foo.tar/path/to/file")) @@ -734,7 +738,7 @@ This tests also `file-executable-p', `file-writable-p' and `set-file-modes'." (zerop (nth 1 fsi)) (zerop (nth 2 fsi)))))) -(ert-deftest tramp-archive-test41-libarchive-tests () +(ert-deftest tramp-archive-test99-libarchive-tests () "Run tests of libarchive test files." :tags '(:expensive-test) (skip-unless tramp-gvfs-enabled) |