]> git.eshelyaron.com Git - emacs.git/commitdiff
Suppress some Tramp tests for OpenBSD
authorMichael Albinus <michael.albinus@gmx.de>
Sun, 6 Aug 2023 09:43:48 +0000 (11:43 +0200)
committerMichael Albinus <michael.albinus@gmx.de>
Sun, 6 Aug 2023 09:43:48 +0000 (11:43 +0200)
* 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

index d97785ee481cf96517c44bf1e8240b38e63a5116..a92f047a42e8a127a9f67a1b2535d74985028d2a 100644 (file)
@@ -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) "\99\9b\9abung")
+       (unless (or (tramp--test-adb-p) (tramp--test-openbsd-p))
+        "\99\9b\9abung")
        ;; Use codepoints from Supplementary Multilingual Plane (U+10000
        ;; to U+1FFFF).
        "🌈🍒👋")