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

[Michael Albinus]

branch: emacs-28
commit 950dab21e3408788cb2443e2f2c6518a32adfd15
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>

    * test/lisp/net/tramp-tests.el (tramp-test27-load): Adapt test.  Don't merge
---
 test/lisp/net/tramp-tests.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 8b999a6e34..7a377e7fbf 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?