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

Extend tramp-archive-test45-auto-load

Browse source 
* test/lisp/net/tramp-archive-tests.el (tramp-archive-test45-auto-load):
Extend test.
This commit is contained in:
Michael Albinus 2022-04-08 13:12:26 +02:00
parent ff997ad786
commit 886339747b
1 changed files with 25 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

9
test/lisp/net/tramp-archive-tests.el
View file

@ -926,6 +926,7 @@ This tests also `file-executable-p', `file-writable-p' and `set-file-modes'."
(file-attributes %S \"/\")) \ (file-attributes %S \"/\")) \
(message \"tramp-archive loaded: %%s\" \ (message \"tramp-archive loaded: %%s\" \
(featurep 'tramp-archive))))")) (featurep 'tramp-archive))))"))
(dolist (enabled '(t nil))
(dolist (default-directory (dolist (default-directory
`(,temporary-file-directory `(,temporary-file-directory
;; Starting Emacs in a directory which has ;; Starting Emacs in a directory which has
@ -940,14 +941,16 @@ This tests also `file-executable-p', `file-writable-p' and `set-file-modes'."
"tramp-archive loaded: %s[[:ascii:]]+tramp-archive loaded: %s" "tramp-archive loaded: %s[[:ascii:]]+tramp-archive loaded: %s"
(tramp-archive-file-name-p default-directory) (tramp-archive-file-name-p default-directory)
(or (tramp-archive-file-name-p default-directory) (or (tramp-archive-file-name-p default-directory)
(tramp-archive-file-name-p file))) (and enabled (tramp-archive-file-name-p file))))
(shell-command-to-string (shell-command-to-string
(format (format
"%s -batch -Q -L %s --eval %s" "%s -batch -Q -L %s --eval %s --eval %s"
(shell-quote-argument (shell-quote-argument
(expand-file-name invocation-name invocation-directory)) (expand-file-name invocation-name invocation-directory))
(mapconcat #'shell-quote-argument load-path " -L ") (mapconcat #'shell-quote-argument load-path " -L ")
(shell-quote-argument (format code file)))))))))) (shell-quote-argument
(format "(setq tramp-archive-enabled %s)" enabled))
(shell-quote-argument (format code file)))))))))))
(ert-deftest tramp-archive-test45-delay-load () (ert-deftest tramp-archive-test45-delay-load ()
"Check that `tramp-archive' is loaded lazily, only when needed." "Check that `tramp-archive' is loaded lazily, only when needed."