diff options
| author | John Wiegley <johnw@newartisans.com> | 2022-09-09 17:25:57 -0700 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-09-09 17:25:57 -0700 |
| commit | c12deb31fe3e9e9ad3d28c04c136a03afec4c5ca (patch) | |
| tree | 24fc45cde46233193c1f5b74ab31909b9f181f5e /test/lisp/use-package | |
| parent | d4aeda77a9e9e6e355ad2ea9c59137aab3da0349 (diff) | |
| parent | ee292b80bebc2e7a4f3b32bd51363adbb28878d2 (diff) | |
| download | emacs-c12deb31fe3e9e9ad3d28c04c136a03afec4c5ca.tar.gz emacs-c12deb31fe3e9e9ad3d28c04c136a03afec4c5ca.tar.bz2 emacs-c12deb31fe3e9e9ad3d28c04c136a03afec4c5ca.zip | |
Merge pull request from CeleritasCelery/master
GitHub-reference: https://github.com/jwiegley/use-package/issues/743
Diffstat (limited to 'test/lisp/use-package')
| -rw-r--r-- | test/lisp/use-package/use-package-tests.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/test/lisp/use-package/use-package-tests.el b/test/lisp/use-package/use-package-tests.el index 3ef56a09b89..9510fffb01c 100644 --- a/test/lisp/use-package/use-package-tests.el +++ b/test/lisp/use-package/use-package-tests.el @@ -984,15 +984,17 @@ 'foopkg :hook args))) (should-error (norm nil)) (should (equal (norm '(bar)) + '((bar . foopkg-mode)))) + (should (equal (norm '((bar . foopkg))) '((bar . foopkg)))) (should (equal (norm '((bar . baz))) '((bar . baz)))) (should (equal (norm '(((bar baz) . quux))) '(((bar baz) . quux)))) (should (equal (norm '(bar baz)) - '(((bar baz) . foopkg)))) + '(((bar baz) . foopkg-mode)))) (should (equal (norm '((bar baz) (quux bow))) - '(((bar baz) . foopkg) ((quux bow) . foopkg)))) + '(((bar baz) . foopkg-mode) ((quux bow) . foopkg-mode)))) (should (equal (norm '((bar . baz) (quux . bow))) '((bar . baz) (quux . bow)))) (should (equal (norm '(((bar1 bar2) . baz) ((quux1 quux2) . bow))) @@ -1945,9 +1947,9 @@ (use-package nonexistent :hook lisp-mode) `(when (locate-library nonexistent) - (unless (fboundp 'nonexistent) - (autoload #'nonexistent "nonexistent" nil t)) - (add-hook 'lisp-mode-hook #'nonexistent))))) + (unless (fboundp 'nonexistent-mode) + (autoload #'nonexistent-mode "nonexistent" nil t)) + (add-hook 'lisp-mode-hook #'nonexistent-mode))))) (ert-deftest bind-key/:prefix-map () (match-expansion |