From b4486de0c6484a09dcd6485c19062419279ca296 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Sun, 17 Dec 2017 11:31:23 +0100 Subject: 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. --- test/lisp/net/tramp-archive-tests.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'test/lisp/net/tramp-archive-tests.el') 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) -- cgit v1.2.1