From f1d66c582f59c195efb08459a3ce7100d0f6b3b4 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sat, 17 Jan 2015 19:06:07 +0900 Subject: [PATCH] Adding a utf8 read-string test. --- tests/io-tests.scm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/tests/io-tests.scm b/tests/io-tests.scm index c0694c36..db064f5a 100644 --- a/tests/io-tests.scm +++ b/tests/io-tests.scm @@ -41,6 +41,10 @@ (call-with-input-string "abcde" (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") (call-with-input-string "abcdef" (lambda (in)