projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.12.15: PPC/Darwin fixes
[sbcl.git]
/
tests
/
stream.impure.lisp
diff --git
a/tests/stream.impure.lisp
b/tests/stream.impure.lisp
index
8ecee3a
..
2db6606
100644
(file)
--- a/
tests/stream.impure.lisp
+++ b/
tests/stream.impure.lisp
@@
-91,7
+91,10
@@
(with-standard-io-syntax
(prin1 'insert s)))
(with-open-file (s p)
(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
(delete-file p))
\f
;;; :DIRECTION :IO didn't work on non-existent pathnames
@@
-299,7
+302,8
@@
(type-error (condition)
(assert (eql (type-error-datum condition) (code-char 255)))
(assert (subtypep (type-error-expected-type condition)
(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.
\f
;;; Check WRITE-SEQUENCE signals a TYPE-ERROR when the stream can't
;;; write a sequence element.
@@
-410,7
+414,9
@@
(type-error (condition)
(assert (= (type-error-datum condition) -1))
(assert (subtypep (type-error-expected-type condition)
(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
;;; writing looong lines. takes way too long and way too much space
;;; to test on 64 bit platforms