+
+(with-test (:name :file-author-stringp)
+ #-win32
+ (assert (stringp (file-author (user-homedir-pathname))))
+ #+win32
+ (assert (not (file-author (user-homedir-pathname)))))
+(with-test (:name :file-write-date-integerp)
+ (assert (integerp (file-write-date (user-homedir-pathname)))))
+
+;;; Canonicalization of pathnames for DIRECTORY
+(with-test (:name :directory-/.)
+ (assert (equal (directory #p".") (directory #p"./")))
+ (assert (equal (directory #p".") (directory #p""))))
+(with-test (:name :directory-/..)
+ (assert (equal (directory #p"..") (directory #p"../"))))
+(with-test (:name :directory-unspecific)
+ (assert (equal (directory #p".")
+ (directory (make-pathname
+ :name :unspecific
+ :type :unspecific)))))
+
+;;; Generated with
+;;; (loop for exist in '(nil t)
+;;; append
+;;; (loop for (if-exists if-does-not-exist) in '((nil :error)
+;;; (:error nil)
+;;; (nil nil)
+;;; (:error :error))
+;;; collect (list 'do-open exist if-exists if-does-not-exist)))
+(with-test (:name :open-never-openning)
+ (flet ((do-open (existing if-exists if-does-not-exist
+ &optional (direction :output))
+ (open (if existing
+ #.(or *compile-file-truename* *load-truename*)
+ "a-really-non-existing-file")
+ :direction direction
+ :if-exists if-exists :if-does-not-exist if-does-not-exist)))
+ (assert (raises-error?
+ (do-open nil nil :error)))
+ (assert (not
+ (do-open nil :error nil)))
+ (assert (not
+ (do-open t nil :error)))
+ (assert (raises-error?
+ (do-open t :error nil)))
+ (assert (not
+ (do-open nil nil nil)))
+ (assert (raises-error?
+ (do-open nil :error :error)))
+ (assert (not
+ (do-open t nil nil)))
+ (assert (raises-error? (do-open t :error :error)))
+
+ (assert (raises-error?
+ (do-open nil nil :error :io)))
+ (assert (not
+ (do-open nil :error nil :io)))
+ (assert (not
+ (do-open t nil :error :io)))
+ (assert (raises-error?
+ (do-open t :error nil :io)))
+ (assert (not
+ (do-open nil nil nil :io)))
+ (assert (raises-error?
+ (do-open nil :error :error :io)))
+ (assert (not
+ (do-open t nil nil :io)))
+ (assert (raises-error? (do-open t :error :error :io)))))