phoe / external-symbol-not-found

Portability library for detecting reader errors coming from reading non-existing or non-external symbols in packages

Geek Repo:Geek Repo

Github PK Tool:Github PK Tool

Improve tests

fstamour opened this issue · comments

Current tests are meh:

(defun test ()
#+(not (or sbcl ccl ecl abcl)) (not-supported-error)
(unwind-protect
(handler-case (progn
(make-package 'test-package-12345 :use nil)
(read-from-string "test-package-12345:symbol"))
(error (e)
(assert (external-symbol-not-found-p e))))
(delete-package 'test-package-12345))
(unwind-protect
(handler-case (progn
(make-package 'test-package-12345 :use nil)
(intern "SYMBOL" 'test-package-12345)
(read-from-string "test-package-12345:symbol"))
(error (e)
(assert (external-symbol-not-found-p e))))
(delete-package 'test-package-12345)))