From dd02db5702e46af6543be14cb05d981fa261ad1a Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Fri, 21 Oct 2022 08:13:25 +0200 Subject: [PATCH 2/2] 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 @@ pkg-tests-find-symbol (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.35.1