From: Stefan Kangas <stefankangas@gmail.com>
Date: Fri, 21 Oct 2022 06:13:25 +0000 (+0200)
Subject: Fix cl-intern/cl-unintern tests
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9d35b05ccb862eee1f707f10a1eee861b8414671;p=emacs.git

Fix cl-intern/cl-unintern tests

* test/src/pkg-tests.el (pkg-tests-cl-intern)
(pkg-tests-cl-unintern): Fix tests.
---

diff --git a/test/src/pkg-tests.el b/test/src/pkg-tests.el
index 1cfea6a6320..aff6ff0eb51 100644
--- a/test/src/pkg-tests.el
+++ b/test/src/pkg-tests.el
@@ -126,10 +126,21 @@
   (should nil))
 
 (ert-deftest pkg-tests-cl-intern ()
-  (should nil))
+  (cl-assert (not (find-symbol "foo")))
+  (unwind-protect
+      (progn
+        (cl-intern "foo")
+        (should (find-symbol "foo")))
+    (cl-unintern 'foo)))
 
 (ert-deftest pkg-tests-cl-unintern ()
-  (should nil))
+  (cl-assert (not (find-symbol "foo")))
+  (unwind-protect
+      (progn
+        (cl-intern "foo")
+        (cl-unintern 'foo)
+        (should-not (find-symbol "foo")))
+    (cl-unintern 'foo)))
 
 (ert-deftest pkg-tests-export ()
   (should nil))