(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\\"))))
;;; 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
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)))))
+