From: Michael Albinus <michael.albinus@gmx.de>
Date: Sun, 15 May 2022 07:02:42 +0000 (+0200)
Subject: * test/lisp/net/tramp-tests.el (tramp-test27-load): Adapt test.  Don't merge
X-Git-Tag: emacs-28.1.90~86
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=950dab21e3;p=emacs.git

* test/lisp/net/tramp-tests.el (tramp-test27-load): Adapt test.  Don't merge
---

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 8b999a6e346..7a377e7fbf1 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -4425,7 +4425,9 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
     (let ((tmp-name (tramp--test-make-temp-name nil quoted)))
       (unwind-protect
 	  (progn
-	    (load tmp-name 'noerror 'nomessage)
+	    ;; Ange-FTP does not tolerate a missing file, even with `noerror'.
+	    (unless (tramp--test-ange-ftp-p)
+	      (load tmp-name 'noerror 'nomessage))
 	    (should-not (featurep 'tramp-test-load))
 	    (write-region "(provide 'tramp-test-load)" nil tmp-name)
 	    ;; `load' in lread.c does not pass `must-suffix'.  Why?