emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

feature/pkg 9d35b05ccb 2/2: Fix cl-intern/cl-unintern tests


From: Stefan Kangas
Subject: feature/pkg 9d35b05ccb 2/2: Fix cl-intern/cl-unintern tests
Date: Sat, 22 Oct 2022 05:23:54 -0400 (EDT)

branch: feature/pkg
commit 9d35b05ccb862eee1f707f10a1eee861b8414671
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    Fix cl-intern/cl-unintern tests
    
    * test/src/pkg-tests.el (pkg-tests-cl-intern)
    (pkg-tests-cl-unintern): Fix tests.
---
 test/src/pkg-tests.el | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/test/src/pkg-tests.el b/test/src/pkg-tests.el
index 1cfea6a632..aff6ff0eb5 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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]