From: Michael Albinus <michael.albinus@gmx.de>
Date: Thu, 4 Aug 2022 09:59:18 +0000 (+0200)
Subject: Fix Tramp test
X-Git-Tag: emacs-29.0.90~1447^2~464
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=87ac0b945f549008d56b42ba5582bbf468891a56;p=emacs.git

Fix Tramp test

* test/lisp/net/tramp-tests.el (tramp-test48-unload):
Ignore autoload functions in `tramp-file-name' structure tests,
since `tramp-file-name-handler' is also autoloaded.
---

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 63ccd05a263..e2d4ed781bb 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -7590,7 +7590,7 @@ Since it unloads Tramp, it shall be the last test to run."
   (should-not (cl--find-class 'tramp-file-name))
   (mapatoms
    (lambda (x)
-     (and (functionp x)
+     (and (functionp x) (null (autoloadp (symbol-function x)))
           (string-match-p "tramp-file-name" (symbol-name x))
           (ert-fail (format "Structure function `%s' still exists" x)))))