From 9fa54cc66a4c1a6c06ec4ab74f1e67b2aebf6dc5 Mon Sep 17 00:00:00 2001 From: Daniel Kochmanski Date: Sat, 13 May 2017 17:30:12 +0200 Subject: [PATCH] tests: add commented out test for issue #380 --- src/tests/normal-tests/package-extensions.lsp | 48 +++++++++++++++++++ 1 file changed, 48 insertions(+) diff --git a/src/tests/normal-tests/package-extensions.lsp b/src/tests/normal-tests/package-extensions.lsp index 452d7674d..a6b0676c4 100644 --- a/src/tests/normal-tests/package-extensions.lsp +++ b/src/tests/normal-tests/package-extensions.lsp @@ -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)))