+(assert (raises-error? (read-byte (make-string-input-stream "abc"))
+ type-error))
+(assert (raises-error? (with-open-file (s "/dev/zero")
+ (read-byte s))
+ type-error))
+;;; bidirectional streams getting confused about their position
+(let ((p "bidirectional-stream-test"))
+ (with-open-file (s p :direction :output :if-exists :supersede)
+ (with-standard-io-syntax
+ (format s "~S ~S ~S~%" 'these 'are 'symbols)))
+ (with-open-file (s p :direction :io :if-exists :overwrite)
+ (read s)
+ (with-standard-io-syntax
+ (prin1 'insert s)))
+ (with-open-file (s p)
+ (assert (string= (read-line s) "THESE INSERTMBOLS")))
+ (delete-file p))
+\f
+;;; :DIRECTION :IO didn't work on non-existent pathnames
+(let ((p "direction-io-test"))
+ (ignore-errors (delete-file p))
+ (with-open-file (s p :direction :io)
+ (format s "1")
+ (finish-output s)
+ (file-position s :start)
+ (assert (char= (read-char s) #\1)))
+ (delete-file p))
+\f
+;;; FILE-POSITION on broadcast-streams is mostly uncontroversial
+(assert (= 0 (file-position (make-broadcast-stream))))
+(assert (file-position (make-broadcast-stream) :start))
+(assert (file-position (make-broadcast-stream) 0))
+(assert (not (file-position (make-broadcast-stream) 1)))
+(let ((s (make-broadcast-stream)))
+ (write-char #\a s)
+ (assert (not (file-position s 1)))
+ (assert (= 0 (file-position s))))
+
+(let ((p "broadcast-stream-test"))
+ (ignore-errors (delete-file p))
+ (with-open-file (f p :direction :output)
+ (let ((s (make-broadcast-stream f)))
+ (assert (= 0 (file-position s)))
+ (assert (file-position s :start))
+ (assert (file-position s 0))
+ (write-char #\a s)
+ (assert (= 1 (file-position s))) ; unicode...
+ (assert (file-position s 0))))
+ (delete-file p))
+
+;;; CLOSING a non-new streams should not delete them, and superseded
+;;; files should be restored.
+(let ((test "test-file-for-close-should-not-delete"))
+ (macrolet ((test-mode (mode)
+ `(progn
+ (catch :close-test-exit
+ (with-open-file (f test :direction :output :if-exists ,mode)
+ (write-line "test" f)
+ (throw :close-test-exit t)))
+ (assert (and (probe-file test) ,mode)))))
+ (unwind-protect
+ (progn
+ (with-open-file (f test :direction :output)
+ (write-line "test" f))
+ (test-mode :append)
+ ;; FIXME: We really should recover supersede files as well, according to
+ ;; CLOSE in CLHS, but at the moment we don't.
+ ;; (test-mode :supersede)
+ (test-mode :rename)
+ (test-mode :rename-and-delete))
+ (when (probe-file test)
+ (delete-file test)))))
+