procyberian/emacs
1
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
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -926,28 +926,31 @@ This tests also `file-executable-p', `file-writable-p' and `set-file-modes'."
(file-attributes %S \"/\")) \
(message \"tramp-archive loaded: %%s\" \
(featurep 'tramp-archive))))"))
(dolist (default-directory
`(,temporary-file-directory
;; Starting Emacs in a directory which has
;; `tramp-archive-file-name-regexp' syntax is
;; supported only with Emacs > 27.2 (sigh!).
;; (Bug#48476)
,(file-name-as-directory tramp-archive-test-directory)))
(dolist (file `("/mock::foo" ,(concat tramp-archive-test-archive "foo")))
(should
(string-match
(format
"tramp-archive loaded: %s[[:ascii:]]+tramp-archive loaded: %s"
(tramp-archive-file-name-p default-directory)
(or (tramp-archive-file-name-p default-directory)
(tramp-archive-file-name-p file)))
(shell-command-to-string
(format
"%s -batch -Q -L %s --eval %s"
(shell-quote-argument
(expand-file-name invocation-name invocation-directory))
(mapconcat #'shell-quote-argument load-path " -L ")
(shell-quote-argument (format code file))))))))))
(dolist (enabled '(t nil))
(dolist (default-directory
`(,temporary-file-directory
;; Starting Emacs in a directory which has
;; `tramp-archive-file-name-regexp' syntax is
;; supported only with Emacs > 27.2 (sigh!).
;; (Bug#48476)
,(file-name-as-directory tramp-archive-test-directory)))
(dolist (file `("/mock::foo" ,(concat tramp-archive-test-archive "foo")))
(should
(string-match
(format
"tramp-archive loaded: %s[[:ascii:]]+tramp-archive loaded: %s"
(tramp-archive-file-name-p default-directory)
(or (tramp-archive-file-name-p default-directory)
(and enabled (tramp-archive-file-name-p file))))
(shell-command-to-string
(format
"%s -batch -Q -L %s --eval %s --eval %s"
(shell-quote-argument
(expand-file-name invocation-name invocation-directory))
(mapconcat #'shell-quote-argument load-path " -L ")
(shell-quote-argument
(format "(setq tramp-archive-enabled %s)" enabled))
(shell-quote-argument (format code file)))))))))))
(ert-deftest tramp-archive-test45-delay-load ()
"Check that `tramp-archive' is loaded lazily, only when needed."