diff options
| -rw-r--r-- | test/src/pkg-tests.el | 15 |
1 files 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 @@ | |||
| 126 | (should nil)) | 126 | (should nil)) |
| 127 | 127 | ||
| 128 | (ert-deftest pkg-tests-cl-intern () | 128 | (ert-deftest pkg-tests-cl-intern () |
| 129 | (should nil)) | 129 | (cl-assert (not (find-symbol "foo"))) |
| 130 | (unwind-protect | ||
| 131 | (progn | ||
| 132 | (cl-intern "foo") | ||
| 133 | (should (find-symbol "foo"))) | ||
| 134 | (cl-unintern 'foo))) | ||
| 130 | 135 | ||
| 131 | (ert-deftest pkg-tests-cl-unintern () | 136 | (ert-deftest pkg-tests-cl-unintern () |
| 132 | (should nil)) | 137 | (cl-assert (not (find-symbol "foo"))) |
| 138 | (unwind-protect | ||
| 139 | (progn | ||
| 140 | (cl-intern "foo") | ||
| 141 | (cl-unintern 'foo) | ||
| 142 | (should-not (find-symbol "foo"))) | ||
| 143 | (cl-unintern 'foo))) | ||
| 133 | 144 | ||
| 134 | (ert-deftest pkg-tests-export () | 145 | (ert-deftest pkg-tests-export () |
| 135 | (should nil)) | 146 | (should nil)) |