Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 14:19:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Patch from Per Bothner to verify new boolean literals with delimiters.

Browse source
This commit is contained in:
Alex Shinn 2013-09-29 13:25:46 +09:00
parent 368191918b
commit 87624c68ab
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
tests/r7rs-tests.scm
View file

@ -1699,10 +1699,19 @@
(test-begin "Read syntax") (test-begin "Read syntax")
;; check reading boolean followed by eof
(test #t (read (open-input-string "#t"))) (test #t (read (open-input-string "#t")))
(test #t (read (open-input-string "#true"))) (test #t (read (open-input-string "#true")))
(test #f (read (open-input-string "#f"))) (test #f (read (open-input-string "#f")))
(test #f (read (open-input-string "#false"))) (test #f (read (open-input-string "#false")))
(define (read2 port)
(let* ((o1 (read port)) (o2 (read port)))
(cons o1 o2)))
;; check reading boolean followed by delimiter
(test '(#t . (5)) (read2 (open-input-string "#t(5)")))
(test '(#t . 6) (read2 (open-input-string "#true 6 ")))
(test '(#f . 7) (read2 (open-input-string "#f 7")))
(test '(#f . "8") (read2 (open-input-string "#false\"8\"")))
(test '() (read (open-input-string "()"))) (test '() (read (open-input-string "()")))
(test '(1 2) (read (open-input-string "(1 2)"))) (test '(1 2) (read (open-input-string "(1 2)")))