test: cover private component autoload wrapper

This commit is contained in:
Kinneyzhang 2026-09-01 17:26:02 +08:00
parent 6a1d816292
commit a3647665c7

View File

@ -38,8 +38,9 @@ Use Chinese punctuation when CHINESE-P is non-nil."
(goto-char (point-min))
(while (re-search-forward "^;;;###autoload[[:space:]]*$" nil t)
(forward-comment (point-max))
(should-not (eq (car-safe (read (current-buffer)))
'etaf-define-component))))))
(should-not
(memq (car-safe (read (current-buffer)))
'(etaf-define-component etaf-ui--define-component)))))))
(ert-deftest etaf-ui-package-reload-keeps-identical-catalog-definitions ()
"Allow package.el to reload exact catalog files without duplicate owners."