Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-07 05:06:37 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Adding additional io test from Lorenzo.

Browse source
This commit is contained in:
Alex Shinn 2015-01-22 17:36:46 +09:00
parent ed467add6a
commit 51fb7423bd
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
tests/io-tests.scm
View file

@ -111,6 +111,11 @@
(list "日本語" (make-string 4087 #\-) "abc")))) (list "日本語" (make-string 4087 #\-) "abc"))))
(read-string 4090 in) (read-string 4090 in)
(read-line in))) (read-line in)))
(test "abc"
(let ((in (strings->input-port
(list "日本語" (make-string 4087 #\本) "abc"))))
(read-string 4090 in)
(read-line in)))
(test "abc" (test "abc"
(let ((in (strings->input-port (let ((in (strings->input-port
(list "日本語" (make-string 4093 #\-) "abc")))) (list "日本語" (make-string 4093 #\-) "abc"))))