From 9d35b05ccb862eee1f707f10a1eee861b8414671 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Fri, 21 Oct 2022 08:13:25 +0200 Subject: [PATCH] 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 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)) -- 2.39.2