[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))