(assert (equal "C:\\FOO\\BAR" (native-namestring "C:\\FOO\\BAR")))
(assert (equal "C:\\FOO\\BAR" (native-namestring "C:\\FOO\\BAR\\" :as-file t))))
+(with-test (:name (:parse-native-pathname :as-directory :junk-allowed))
+ (assert
+ (equal
+ (parse-native-namestring "foo.lisp" nil *default-pathname-defaults*
+ :as-directory t)
+ (parse-native-namestring "foo.lisp" nil *default-pathname-defaults*
+ :as-directory t
+ :junk-allowed t))))
+
;;; Test for NATIVE-PATHNAME / NATIVE-NAMESTRING stuff
;;;
;;; 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 :fails-on :win32)
+(with-test (:name :random-native-namestrings)
(let ((safe-chars
(coerce
(cons #\Newline
(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)))))
+
+(with-test (:name :open-new-version)
+ (multiple-value-bind (value error)
+ (ignore-errors (open #.(or *compile-file-truename* *load-truename*)
+ :direction :output
+ :if-exists :new-version))
+ (assert (not value))
+ (assert error)
+ (assert (equal (simple-condition-format-control error)
+ "OPEN :IF-EXISTS :NEW-VERSION is not supported ~
+ when a new version must be created."))))