conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
t/r7rs-tests.scm
View File

@ -1802,9 +1802,9 @@
(output-port-open? out))) (output-port-open? out)))
(test #t (eof-object? (eof-object))) (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 #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 #t (eof-object? (read-char (open-input-string ""))))
(test #\a (read-char (open-input-string "abc"))) (test #\a (read-char (open-input-string "abc")))