projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.19.1: DERIVE-TYPE optimizer for %%PRIMITIVE
[sbcl.git]
/
tests
/
filesys.pure.lisp
diff --git
a/tests/filesys.pure.lisp
b/tests/filesys.pure.lisp
index
fd62903
..
e77ffc1
100644
(file)
--- 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)))))
(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)))))
+