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

tests: add commented out test for issue #380

Browse source
This commit is contained in:
Daniel Kochmanski 2017-05-13 17:30:12 +02:00
parent 08f5354088
commit 9fa54cc66a
1 changed files with 48 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -150,3 +150,51 @@
(ignore-errors (delete-package :test-pack1))
(ignore-errors (delete-package :test-pack2))
(ignore-errors (delete-package :test-pack3)))
;;; relative-package-names
#+(and relative-package-names test-known-fails)
(test relative-package-names
(defpackage eu)
(defpackage eu.turtleware)
(defpackage eu.turtleware.pack1)
(defpackage eu.turtleware.pack2)
(defpackage eu.turtle.pack1)
(defpackage eu.turtle.pack2)
(let ((*package* (find-package :eu.turtleware))
(parent-package (find-package :eu)))
(is-eql *package* (eval (read-from-string "(find-package :.)")))
(is (eval (read-from-string "(find-package :.pack1)")))
(is (eval (read-from-string "(find-package :.pack2)")))
(is (null (eval (read-from-string "(find-package :.pack3)"))))
(is (null (eval (read-from-string "(find-package :..)"))))
(is-eql parent-package (eval (read-from-string "(find-package :..)")))
(is (null (eval (read-from-string "(find-package :....)")))))
(let ((*package* (find-package :eu.turtleware.pack1))
(sibling-package (find-package :eu.turtleware.pack2))
(parent-package (find-package :eu.turtleware))
(grand-package (find-package :eu)))
(is-eql *package* (eval (read-from-string "(find-package :.)")))
(is (null (eval (read-from-string "(find-package :.pack1)"))))
(is (null (eval (read-from-string "(find-package :.pack2)"))))
(is (null (eval (read-from-string "(find-package :.pack3)"))))
(is-eql parent-package (eval (read-from-string "(find-package :..)")))
(is-eql sibling-package (eval (read-from-string "(find-package :..pack2)")))
(is-eql grand-package (eval (read-from-string "(find-package :....)")))
(is-eql parent-package (eval (read-from-string "(find-package :....turtleware)")))
(is-eql sibling-package (eval (read-from-string "(find-package :....turtleware.pack2)"))))
(let ((*package* (find-package :eu.turtle.pack1))
(sibling-package (find-package :eu.turtle.pack2)))
(is-eql *package* (eval (read-from-string "(find-package :.)")))
(is-eql nil (eval (read-from-string "(find-package :..)")))
(is-eql sibling-package (eval (read-from-string "(find-package :..pack2)"))))
(ignore-errors (delete-package :eu))
(ignore-errors (delete-package :eu.turtleware))
(ignore-errors (delete-package :eu.turtleware.pack1))
(ignore-errors (delete-package :eu.turtleware.pack2))
(ignore-errors (delete-package :eu.turtle.pack1))
(ignore-errors (delete-package :eu.turtle.pack2)))