Add tests for packagep and package-name

* test/src/pkg-tests.el (pkg-tests-packagep)
(pkg-tests-package-name): New tests.
(pkg-tests-list-all-packages): Expand test.

diff --git a/test/src/pkg-tests.el b/test/src/pkg-tests.el
index aff6ff0eb519d4953c8803264e7e4aef13e74d9d..b45ae4adcdc5fe54f227ce5fd03392c6a5f6f836 100644 (file)
--- a/test/src/pkg-tests.el
+++ b/test/src/pkg-tests.el
@@ -50,6 +50,9 @@
   (should-error (make-package "x" :use))
   (should-error (make-package "x" :use 1)))
 
+(ert-deftest pkg-tests-packagep ()
+  (packagep (make-package "x")))
+
 (ert-deftest pkg-tests-standard-packages ()
   (should (packagep (find-package "emacs")))
   (should (packagep (find-package "keyword")))
@@ -73,6 +76,7 @@
   (should nil))
 
 (ert-deftest pkg-tests-list-all-packages ()
+  (should (seq-every-p #'packagep (list-all-packages)))
   (with-packages (x y z)
     (let ((all (list-all-packages)))
       (should (member x all))
@@ -142,6 +146,9 @@
         (should-not (find-symbol "foo")))
     (cl-unintern 'foo)))
 
+(ert-deftest pkg-tests-package-name ()
+  (should (equal (package-name "emacs") "emacs")))
+
 (ert-deftest pkg-tests-export ()
   (should nil))