Add a test

* test/src/pkg-tests.el (pkg-tests-*package*): Test that *package*
cannot be bound to a non-package.

diff --git a/test/src/pkg-tests.el b/test/src/pkg-tests.el
index bf85c710cf4d2130c9330cbcf8a722f538a783ef..819a74dae65cd336da8b9e49be3cee441c61b17e 100644 (file)
--- a/test/src/pkg-tests.el
+++ b/test/src/pkg-tests.el
@@ -46,6 +46,12 @@
   (should (not (packagep "emacs")))
   (should (not (packagep nil))))
 
+(ert-deftest pkg-tests-*package* ()
+  (should (eq (let ((*package* (find-package "emacs"))) 'good) 'good))
+  (should-error (let ((*package* :emacs)) nil))
+  (should-error (let ((*package* 1))))
+  (should-error (setq *package* :keyword)))
+
 (ert-deftest pkg-tests-standard-packages ()
   (should (packagep (find-package "emacs")))
   (should (packagep (find-package 'emacs)))