From e4ce9e514f0243b9dd5295453a01480ce7adfac2 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Mon, 18 Jul 2022 15:48:14 +0200 Subject: [PATCH] Adapt Tramp new test macros * test/lisp/net/tramp-tests.el (tramp--test-deftest-with-stat) (tramp--test-deftest-with-perl, tramp--test-deftest-with-ls): Skip for all methods but those from tramp-sh.el. --- test/lisp/net/tramp-tests.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index 2e2f9333ba9..551a70a21ad 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el @@ -3569,6 +3569,7 @@ This tests also `access-file', `file-readable-p', ;; "\nUse the \"stat\" command.") :tags '(:expensive-test) (skip-unless (tramp--test-enabled)) + (skip-unless (tramp--test-sh-p)) (skip-unless (tramp-get-remote-stat tramp-test-vec)) (let ((default-directory ert-remote-temporary-file-directory) (ert-test (ert-get-test ',test)) @@ -3587,6 +3588,7 @@ This tests also `access-file', `file-readable-p', ;; "\nUse the \"perl\" command.") :tags '(:expensive-test) (skip-unless (tramp--test-enabled)) + (skip-unless (tramp--test-sh-p)) (skip-unless (tramp-get-remote-perl tramp-test-vec)) (let ((default-directory ert-remote-temporary-file-directory) (ert-test (ert-get-test ',test)) @@ -3608,6 +3610,7 @@ This tests also `access-file', `file-readable-p', ;; "\nUse the \"ls\" command.") :tags '(:expensive-test) (skip-unless (tramp--test-enabled)) + (skip-unless (tramp--test-sh-p)) (let ((default-directory ert-remote-temporary-file-directory) (ert-test (ert-get-test ',test)) (tramp-connection-properties -- 2.39.5