procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Michael Albinus 2022-05-15 09:02:42 +02:00
parent 48201ce8de
commit 950dab21e3
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
test/lisp/net/tramp-tests.el
View file

@ -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))) (let ((tmp-name (tramp--test-make-temp-name nil quoted)))
(unwind-protect (unwind-protect
(progn (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)) (should-not (featurep 'tramp-test-load))
(write-region "(provide 'tramp-test-load)" nil tmp-name) (write-region "(provide 'tramp-test-load)" nil tmp-name)
;; `load' in lread.c does not pass `must-suffix'. Why? ;; `load' in lread.c does not pass `must-suffix'. Why?