X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=contrib%2Fsb-posix%2Fposix-tests.lisp;h=dcb58065d0630e1cff2913bf837b87276751e1b9;hb=ad6345c0021507c8830c7c8541ed651a89792335;hp=a0c17b7090f34158cd0f8b03e8a35861151b3ca7;hpb=0d1056d441a1fa50b1fb9dfa2b8ea660bf179a3a;p=sbcl.git

diff --git a/contrib/sb-posix/posix-tests.lisp b/contrib/sb-posix/posix-tests.lisp
index a0c17b7..dcb5806 100644
--- a/contrib/sb-posix/posix-tests.lisp
+++ b/contrib/sb-posix/posix-tests.lisp
@@ -624,3 +624,8 @@
             (sb-posix:unlink non-link-pathname))))
     #.sb-posix:enotdir)
   )
+
+(deftest getcwd.1
+    ;; FIXME: something saner, please
+    (equal (sb-unix::posix-getcwd) (sb-posix:getcwd))
+  t)