X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ffilesys.pure.lisp;h=e77ffc1079d73dcd668a15e767ad9f9404653555;hb=6127c0b282bb6d7fa6d225ee91d0a601d9b82360;hp=fd629032f27a5b8bf84c9f9d3c2836493e7f7a2f;hpb=7c4ec3d38ceb696c86e403e4f8a250749462445d;p=sbcl.git

diff --git a/tests/filesys.pure.lisp b/tests/filesys.pure.lisp
index fd62903..e77ffc1 100644
--- a/tests/filesys.pure.lisp
+++ b/tests/filesys.pure.lisp
@@ -155,3 +155,9 @@
   (let ((*default-pathname-defaults* (pathname "SYS:")))
     (assert (not (typep (sb-impl::sbcl-homedir-pathname)
                         'logical-pathname)))))
+
+(with-test (:name :file-author-stringp)
+  (assert (stringp (file-author (user-homedir-pathname)))))
+(with-test (:name :file-write-date-integerp)
+  (assert (integerp (file-write-date (user-homedir-pathname)))))
+