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

Adding a utf8 read-string test.

Browse source
This commit is contained in:
Alex Shinn 2015-01-17 19:06:07 +09:00
parent 0f1254a4cc
commit f1d66c582f
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
tests/io-tests.scm
View file

@ -41,6 +41,10 @@
(call-with-input-string "abcde" (call-with-input-string "abcde"
(lambda (in) (let ((str (read-string 3 in))) (list str (read-string 3 in)))))) (lambda (in) (let ((str (read-string 3 in))) (list str (read-string 3 in))))))
(test "read-string" '("ab日" "本語f")
(call-with-input-string "ab日本語f"
(lambda (in) (let ((str (read-string 3 in))) (list str (read-string 3 in))))))
(test "read-string!" '("abc" "def") (test "read-string!" '("abc" "def")
(call-with-input-string "abcdef" (call-with-input-string "abcdef"
(lambda (in) (lambda (in)