1.0.16.32: revert ANY-REG from registers for primitive type T on x86oids

[sbcl.git] / tests / filesys.pure.lisp

diff --git a/tests/filesys.pure.lisp b/tests/filesys.pure.lisp
index 6e12676..e77ffc1 100644 (file)
--- a/tests/filesys.pure.lisp
+++ b/tests/filesys.pure.lisp
@@ -92,7 +92,7 @@
   (assert (equal "C:\\FOO" (native-namestring "C:\\FOO")))
   (assert (equal "C:\\FOO" (native-namestring "C:/FOO")))
   (assert (equal "C:\\FOO\\BAR" (native-namestring "C:\\FOO\\BAR")))
-  ;; FIXME: Other platforms don't do this: either fix Windows 
+  ;; FIXME: Other platforms don't do this: either fix Windows
   ;; so that it works even with the same logic others use, or
   ;; make this official. (Currently just a kludge.)
   (assert (equal "C:\\FOO\\BAR" (native-namestring "C:\\FOO\\BAR\\"))))
@@ -102,7 +102,7 @@
 ;;; given only safe characters in the namestring, NATIVE-PATHNAME will
 ;;; never error, and NATIVE-NAMESTRING on the result will return the
 ;;; original namestring.
-(with-test (:name :random-native-namestrings) 
+(with-test (:name :random-native-namestrings)
   (let ((safe-chars
         (coerce
          (cons #\Newline
@@ -141,3 +141,23 @@
       for pathname = (native-pathname native-namestring)
       for tricky-nnn = (native-namestring pathname)
       do (assert (string= tricky-nnn native-namestring)))))
+
+;;; USER-HOMEDIR-PATHNAME and the extension SBCL-HOMEDIR-PATHNAME both
+;;; used to call PARSE-NATIVE-NAMESTRING without supplying a HOST
+;;; argument, and so would lose when *DEFAULT-PATHNAME-DEFAULTS* was a
+;;; logical pathname.
+(with-test (:name :user-homedir-pathname-robustness)
+  (let ((*default-pathname-defaults* (pathname "SYS:")))
+    (assert (not (typep (user-homedir-pathname)
+                        'logical-pathname)))))
+
+(with-test (:name :sbcl-homedir-pathname-robustness)
+  (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)))))
+