mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-15 15:21:03 -08:00
Code Issues Projects Releases Packages Wiki Activity

tests: add tests for bivalent streams based on sequences

Browse source
This commit is contained in:
Daniel Kochmański 2025-07-29 08:18:43 +02:00
parent 26a22057e5
commit c7d78a412e
1 changed files with 43 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

47
src/tests/normal-tests/stream.lsp
View file

@ -33,7 +33,7 @@
(lambda (stream vector)
(labels ((call (name fun elt &optional (exp elt))
(let ((out (funcall fun stream elt)))
(is (eql out exp) "~a: ~a not eql to ~a" name out exp)))
(is (eql out exp) "~a: ~s not eql to ~s" name out exp)))
(test (elt)
(call :peek peek (funcall key elt))
(call :read read (funcall key elt))
@ -81,6 +81,20 @@
(ext:unread-byte s i)
(cl:unread-char (code-char i) s)))))
(defun test-byte-output-stream (stream n)
(dotimes (i n)
(finishes (cl:write-byte (char-code #\x) stream))))
(defun test-char-output-stream (stream n)
(dotimes (i n)
(finishes (cl:write-char #\X stream))))
(defun test-bivalent-output-stream (stream n)
(dotimes (i n)
(if (zerop (random 2))
(finishes (cl:write-byte (char-code #\a) stream))
(finishes (cl:write-char #\A stream)))))
(defun make-sequence-io-stream (vector &optional format)
(make-two-way-stream
(ext:make-sequence-input-stream vector :external-format format)
@ -115,17 +129,42 @@
;;; take bytes that are larger than any character.
(deftest stream.binary-sequence ()
(loop with values = (loop for i from 0 below 16 collect i)
(loop with values = (loop for i from 0 below 16 collect (char-code #\Z))
for (elt-type . format) in '(((unsigned-byte 8) . nil)
((unsigned-byte 16) . nil)
((unsigned-byte 32) . nil)
((unsigned-byte 64) . nil)
((unsigned-byte 16) . :ucs-2)
((unsigned-byte 32) . :ucs-4))
for vector = (make-array 16 :element-type elt-type :initial-contents values)
for vector = (make-array 16 :element-type elt-type
:initial-contents values
:fill-pointer 12)
for stream = (finishes (make-sequence-io-stream vector format))
when (and stream (null format))
do (finishes (test-byte-input-stream stream vector))))
do (finishes (test-byte-input-stream stream vector))
(finishes (test-byte-output-stream stream 4))))
;;; Ensure that MAKE-SEQUENCE-INPUT-STREAM and MAKE-SEQUENCE-OUTPUT-STREAM can
;;; take byte and char sequences and use them as bivalent streams.
(deftest stream.bivalent-sequence ()
(loop with char-values = "0123456789abcdef"
with byte-values = (map 'vector #'char-code char-values)
for (elt-type values format) in `(((unsigned-byte 8) ,byte-values nil)
((unsigned-byte 16) ,byte-values nil)
((unsigned-byte 32) ,byte-values nil)
((unsigned-byte 64) ,byte-values nil)
(character ,char-values :default))
for vector = (make-array 16 :element-type elt-type
:initial-contents values
:fill-pointer 12)
for result = (subseq byte-values 0 12)
for stream = (finishes (make-sequence-io-stream vector format))
when stream
do (finishes (test-bivalent-input-stream stream result))
(finishes (test-bivalent-output-stream stream 4))))
;;; Ensure that we punt on invalid sequence stream types.
(deftest stream.invalid-sequence ()
(loop with values = (loop for i from 0 below 16 collect i)