(with-standard-io-syntax
(prin1 'insert s)))
(with-open-file (s p)
- (assert (string= (read-line s) "THESE INSERTMBOLS")))
+ (let ((line (read-line s))
+ (want "THESE INSERTMBOLS"))
+ (unless (equal line want)
+ (error "wanted ~S, got ~S" want line))))
(delete-file p))
\f
;;; :DIRECTION :IO didn't work on non-existent pathnames
(type-error (condition)
(assert (eql (type-error-datum condition) (code-char 255)))
(assert (subtypep (type-error-expected-type condition)
- '(signed-byte 8))))))))
+ '(signed-byte 8)))))))
+ (delete-file pathname))
\f
;;; Check WRITE-SEQUENCE signals a TYPE-ERROR when the stream can't
;;; write a sequence element.
(type-error (condition)
(assert (= (type-error-datum condition) -1))
(assert (subtypep (type-error-expected-type condition)
- '(unsigned-byte 8)))))))
+ '(unsigned-byte 8))))))
+
+ (delete-file pathname))
;;; writing looong lines. takes way too long and way too much space
;;; to test on 64 bit platforms