From: Michael Albinus <michael.albinus@gmx.de>
Date: Sun, 6 Aug 2023 14:24:19 +0000 (+0200)
Subject: * test/lisp/net/tramp-tests.el (tramp-test42-utf8): Skip for macOS.
X-Git-Tag: emacs-29.1.90~246
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=495bee253fc354042c1decc37805832a73f935d8;p=emacs.git

* test/lisp/net/tramp-tests.el (tramp-test42-utf8): Skip for macOS.
---

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 31d36f81740..c090fec8b2a 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -2689,7 +2689,7 @@ This checks also `file-name-as-directory', `file-name-directory',
 		(should (null (save-buffer)))
 		(should
                  (eq (coding-system-get buffer-file-coding-system :mime-charset)
-                     (coding-system-get  bfcs :mime-charset))))))
+                     (coding-system-get bfcs :mime-charset))))))
 
 	;; Cleanup.
 	(ignore-errors (delete-file tmp-name))))))
@@ -7478,14 +7478,12 @@ This requires restrictions of file name syntax."
   (skip-unless (not (tramp--test-gdrive-p)))
   (skip-unless (not (tramp--test-crypt-p)))
   (skip-unless (not (tramp--test-rclone-p)))
+  (skip-unless (not (or (eq system-type 'darwin) (tramp--test-macos-p))))
 
-  (let* ((utf8 (if (and (eq system-type 'darwin)
-			(memq 'utf-8-hfs (coding-system-list)))
-		   'utf-8-hfs 'utf-8))
-	 (coding-system-for-read utf8)
-	 (coding-system-for-write utf8)
-	 (file-name-coding-system
-	  (coding-system-change-eol-conversion utf8 'unix)))
+  (let ((coding-system-for-read 'utf-8)
+	(coding-system-for-write 'utf-8)
+	(file-name-coding-system
+	 (coding-system-change-eol-conversion 'utf-8 'unix)))
     (apply
      #'tramp--test-check-files
      (append