1.0.0.17: ENOUGH-NAMESTRING relative to #p"/"

[sbcl.git] / tests / pathnames.impure.lisp

diff --git a/tests/pathnames.impure.lisp b/tests/pathnames.impure.lisp
index 945d25f..c81cb5a 100644 (file)
--- a/tests/pathnames.impure.lisp
+++ b/tests/pathnames.impure.lisp
@@ -425,4 +425,7 @@
               (make-pathname :name :wild :type :wild :version :wild)
               (make-pathname :name :wild :type :wild :version nil)))))
 
+;;; enough-namestring relative to root
+(assert (equal "foo" (enough-namestring "/foo" "/")))
+
 ;;;; success