projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.13.38: final part of the debug-name improvements
[sbcl.git]
/
tests
/
external-format.impure.lisp
diff --git
a/tests/external-format.impure.lisp
b/tests/external-format.impure.lisp
index
430078b
..
845214d
100644
(file)
--- a/
tests/external-format.impure.lisp
+++ b/
tests/external-format.impure.lisp
@@
-35,7
+35,9
@@
(with-open-file (s "external-format-test.txt" :direction :input
:external-format xf)
(loop for character across standard-characters
(with-open-file (s "external-format-test.txt" :direction :input
:external-format xf)
(loop for character across standard-characters
- do (assert (eql (read-char s) character))))))
+ do (let ((got (read-char s)))
+ (unless (eql character got)
+ (error "wanted ~S, got ~S" character got)))))))
(delete-file "external-format-test.txt")
#-sb-unicode
(delete-file "external-format-test.txt")
#-sb-unicode
@@
-53,14
+55,16
@@
:if-exists :supersede :external-format :utf-8)
(dotimes (n offset)
(write-char #\a s))
:if-exists :supersede :external-format :utf-8)
(dotimes (n offset)
(write-char #\a s))
- (dotimes (n 4097)
+ (dotimes (n (+ 4 sb-impl::+bytes-per-buffer+))
(write-char character s)))
(with-open-file (s "external-format-test.txt" :direction :input
:external-format :utf-8)
(dotimes (n offset)
(assert (eql (read-char s) #\a)))
(write-char character s)))
(with-open-file (s "external-format-test.txt" :direction :input
:external-format :utf-8)
(dotimes (n offset)
(assert (eql (read-char s) #\a)))
- (dotimes (n 4097)
- (assert (eql (read-char s) character)))
+ (dotimes (n (+ 4 sb-impl::+bytes-per-buffer+))
+ (let ((got (read-char s)))
+ (unless (eql got character)
+ (error "wanted ~S, got ~S (~S)" character got n))))
(assert (eql (read-char s nil s) s))))))
;;; Test character decode restarts.
(assert (eql (read-char s nil s) s))))))
;;; Test character decode restarts.