From: Michael Albinus <michael.albinus@gmx.de>
Date: Mon, 18 Jul 2022 13:48:14 +0000 (+0200)
Subject: Adapt Tramp new test macros
X-Git-Tag: emacs-29.0.90~1447^2~863
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e4ce9e514f0243b9dd5295453a01480ce7adfac2;p=emacs.git

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.
---

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