From: Michael Albinus <michael.albinus@gmx.de>
Date: Wed, 25 Nov 2020 08:41:11 +0000 (+0100)
Subject: Minor cleanup of tramp-tests.el on MS Windows
X-Git-Tag: emacs-27.1.90~36
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fc4379f1ae;p=emacs.git

Minor cleanup of tramp-tests.el on MS Windows

* test/lisp/net/tramp-tests.el (tramp-test29-start-file-process):
Do not test remote pty on MS Windows.
---

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index cc65421619d..e42765ba088 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -4289,7 +4289,9 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
 	      (setq proc (start-file-process "test4" (current-buffer) nil))
 	      (should (processp proc))
 	      (should (equal (process-status proc) 'run))
-	      (should (stringp (process-tty-name proc)))))
+	      ;; On MS Windows, `process-tty-name' returns nil.
+	      (unless (tramp--test-windows-nt)
+		(should (stringp (process-tty-name proc))))))
 
 	;; Cleanup.
 	(ignore-errors (delete-process proc))))))