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

unlock more reader tests

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files
t/r7rs-tests.scm
+2 -2
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")))