mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-22 20:42:03 -08:00
Code Issues Projects Releases Packages Wiki Activity

add final test

Browse source
This commit is contained in:
Daniel Kochmanski 2017-05-02 10:02:48 +02:00
parent 76d47a45a2
commit 635cf82e48
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/tests/normal-tests/package-extensions.lsp
View file

@ -133,6 +133,11 @@
(is (= 1 (length (ext:package-local-nicknames :test-pack2))))
(is (= 1 (length (ext:package-locally-nicknamed-by-list :cl))))
;; check if nicknaming works for real
(signals simple-error (eval (read-from-string "(L:cons 1 2)")))
(let ((*package* (find-package :test-pack1)))
(is-equal '(1 . 2) (eval (read-from-string "(L:cons 1 2)"))))
;; test-pack3 has a reference to test-pack1, but is locked
(signals package-error (delete-package :test-pack1))