From 635cf82e486a257ed82f5f61d901df693be6e795 Mon Sep 17 00:00:00 2001 From: Daniel Kochmanski Date: Tue, 2 May 2017 10:02:48 +0200 Subject: [PATCH] add final test --- src/tests/normal-tests/package-extensions.lsp | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/tests/normal-tests/package-extensions.lsp b/src/tests/normal-tests/package-extensions.lsp index b9a807019..5e74859ba 100644 --- a/src/tests/normal-tests/package-extensions.lsp +++ b/src/tests/normal-tests/package-extensions.lsp @@ -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))