test: cover private component autoload wrapper
This commit is contained in:
parent
6a1d816292
commit
a3647665c7
@ -38,8 +38,9 @@ Use Chinese punctuation when CHINESE-P is non-nil."
|
|||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(while (re-search-forward "^;;;###autoload[[:space:]]*$" nil t)
|
(while (re-search-forward "^;;;###autoload[[:space:]]*$" nil t)
|
||||||
(forward-comment (point-max))
|
(forward-comment (point-max))
|
||||||
(should-not (eq (car-safe (read (current-buffer)))
|
(should-not
|
||||||
'etaf-define-component))))))
|
(memq (car-safe (read (current-buffer)))
|
||||||
|
'(etaf-define-component etaf-ui--define-component)))))))
|
||||||
|
|
||||||
(ert-deftest etaf-ui-package-reload-keeps-identical-catalog-definitions ()
|
(ert-deftest etaf-ui-package-reload-keeps-identical-catalog-definitions ()
|
||||||
"Allow package.el to reload exact catalog files without duplicate owners."
|
"Allow package.el to reload exact catalog files without duplicate owners."
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user