unlock more reader tests

This commit is contained in:
Yuichi Nishiwaki 2014-06-28 20:12:06 +09:00
parent 5869f13ae0
commit a7c9537e06
1 changed files with 2 additions and 2 deletions

View File

@ -1802,9 +1802,9 @@
(output-port-open? out)))
(test #t (eof-object? (eof-object)))
;; (test #t (eof-object? (read (open-input-string ""))))
(test #t (eof-object? (read (open-input-string ""))))
(test #t (char-ready? (open-input-string "42")))
;; (test 42 (read (open-input-string " 42 ")))
(test 42 (read (open-input-string " 42 ")))
(test #t (eof-object? (read-char (open-input-string ""))))
(test #\a (read-char (open-input-string "abc")))