suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

more port-read-handler tests

Browse Source 
svn: r4753
This commit is contained in:
Matthew Flatt 2006-11-02 21:35:49 +00:00
parent c3c82e304d
commit 03ffe8ec6e
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/tests/mzscheme/file.ss
View File

@ -646,8 +646,15 @@
(arity-test (port-read-handler ui) 1 2)
(err/rt-test ((port-read-handler ui) 8))
(let ([old (port-read-handler ui)])
(port-read-handler ui (case-lambda [(x) "hello"][(x y) "goodbye"]))
(port-read-handler ui (case-lambda [(x) "hello"][(x y) #'"goodbye"]))
(test "hello" read ui)
(test "goodbye" syntax-e (read-syntax 'x ui))
(port-read-handler ui old)
(test "" read ui))
(let ([old (port-read-handler ui)])
(port-read-handler ui (case-lambda [(x) eof][(x y) eof]))
(test eof read ui)
(test eof read-syntax 'x ui)
(port-read-handler ui old)
(test "" read ui))
(arity-test port-read-handler 1 2)