From 51fb7423bda55fe74dce6bfb355c4ef4593093b1 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Thu, 22 Jan 2015 17:36:46 +0900 Subject: [PATCH] Adding additional io test from Lorenzo. --- tests/io-tests.scm | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/tests/io-tests.scm b/tests/io-tests.scm index db064f5a..563590e0 100644 --- a/tests/io-tests.scm +++ b/tests/io-tests.scm @@ -111,6 +111,11 @@ (list "日本語" (make-string 4087 #\-) "abc")))) (read-string 4090 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" (let ((in (strings->input-port (list "日本語" (make-string 4093 #\-) "abc"))))