Adapt Tramp to changed unload behavior (bug#53632)

* test/lisp/net/tramp-tests.el (tramp-test47-unload): Check also
for autoloaded macros.  Respect `tramp-autoload' function property.

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 9be1985780d96f5436375e5c46f198ac343194a4..a4f2fe9e0e281dcf0b75d464815b1dddbbf02b13 100644 (file)
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -7205,12 +7205,14 @@ Since it unloads Tramp, it shall be the last test to run."
   (mapatoms
    (lambda (x)
      (and (or (and (boundp x) (null (local-variable-if-set-p x)))
-             (and (functionp x) (null (autoloadp (symbol-function x)))))
+             (and (functionp x) (null (autoloadp (symbol-function x))))
+             (macrop x))
          (string-match-p "^tramp" (symbol-name x))
          ;; `tramp-completion-mode' is autoloaded in Emacs < 28.1.
          (not (eq 'tramp-completion-mode x))
          (not (string-match-p "^tramp\\(-archive\\)?--?test" (symbol-name x)))
          (not (string-match-p "unload-hook$" (symbol-name x)))
+         (not (get x 'tramp-autoload))
          (ert-fail (format "`%s' still bound" x)))))
   ;; The defstruct `tramp-file-name' and all its internal functions
   ;; shall be purged.