From 5f24ca555383e039d93a852d239d5f2c8781d6c8 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Sun, 6 Aug 2023 11:43:48 +0200 Subject: [PATCH] Suppress some Tramp tests for OpenBSD * test/lisp/net/tramp-tests.el (tramp--test-openbsd-p): New defun. (tramp-test41-special-characters, tramp-test42-utf8): Use it. (Bug#64935) --- test/lisp/net/tramp-tests.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index d97785ee481..a92f047a42e 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el @@ -7083,6 +7083,12 @@ This does not support external Emacs calls." (string-equal "mock" (file-remote-p ert-remote-temporary-file-directory 'method))) +(defun tramp--test-openbsd-p () + "Check, whether the remote host runs OpenBSD." + ;; We must refill the cache. `file-truename' does it. + (file-truename ert-remote-temporary-file-directory) + (ignore-errors (tramp-check-remote-uname tramp-test-vec "OpenBSD"))) + (defun tramp--test-out-of-band-p () "Check, whether an out-of-band method is used." (tramp-method-out-of-band-p tramp-test-vec 1)) @@ -7408,6 +7414,7 @@ This requires restrictions of file name syntax." (tramp--test-windows-nt-or-smb-p)) "foo bar baz") ((or (tramp--test-adb-p) + (tramp--test-openbsd-p) (eq system-type 'cygwin)) " foo bar baz ") ((tramp--test-sh-no-ls--dired-p) @@ -7485,7 +7492,8 @@ This requires restrictions of file name syntax." "Автостопом по гала́ктике" ;; Use codepoints without a name. See Bug#31272. ;; Works on some Android systems only. - (unless (tramp--test-adb-p) "™›šbung") + (unless (or (tramp--test-adb-p) (tramp--test-openbsd-p)) + "™›šbung") ;; Use codepoints from Supplementary Multilingual Plane (U+10000 ;; to U+1FFFF). "🌈🍒👋") -- 2.39.2