X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fpathnames.impure.lisp;h=c81cb5a221e4eaa02c1c9c8ec017148a93b0f58f;hb=353d8da16686b5cd1d75f95017c185b50f75cfda;hp=945d25f7e8ba8506945d5da7ecf2ad6150f74a17;hpb=a02c31dc76ffa8ae4f014cd01be7ffe9e47113be;p=sbcl.git

diff --git a/tests/pathnames.impure.lisp b/tests/pathnames.impure.lisp
index 945d25f..c81cb5a 100644
--- 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