master e4ce9e514f 2/2: Adapt Tramp new test macros

[Michael Albinus]

branch: master
commit e4ce9e514f0243b9dd5295453a01480ce7adfac2
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>

    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 2e2f9333ba..551a70a21a 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