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

readtable paren tests

Browse Source 
svn: r3963
This commit is contained in:
Matthew Flatt 2006-08-04 19:57:26 +00:00
parent f141757100
commit 8e75fd1e94
1 changed files with 33 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
collects/tests/mzscheme/readtable.ss
View File

@ -297,6 +297,39 @@
(test '|#ac| read (open-input-string "#acd"))
(test 'z read (open-input-string "z#acd")))))))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Map other chars to parens
(let ([try (lambda (open close other-open other-close)
(let ([readstr (lambda (s)
(read (open-input-string s)))])
(parameterize ([current-readtable
(make-readtable #f
#\< open #f
#\> close #f)])
(test '((2) 1 3) readstr (format "<1 . ~a2> . 3~a" open close)))
(parameterize ([current-readtable
(make-readtable #f
open #\a #f
close #\a #f
#\< open #f
#\! #\. #f
#\> close #f)])
(test '(1 . 2) readstr "<1 . 2>")
(test '(1 . 2) readstr "<1 ! 2>")
(test (string->symbol (format "~a1" open))
readstr (format "~a1 ! 2~a" open close))
(test '(2 1 3) readstr "<1 ! 2 ! 3>")
(test '((2) 1 3) readstr "<1 ! <2> ! 3>")
(test '((2) 1 3) readstr (format "<1 ! ~a2~a ! 3>"
other-open other-close))
(err/rt-test (readstr "#<1 2 3>") exn:fail:read?)
(err/rt-test (readstr (format "<1 2 3~a" other-close)) exn:fail:read?)
(test '#(1 2 3 3) readstr "#4<1 2 3>"))))])
(try #\( #\) #\[ #\])
(try #\[ #\] #\( #\))
(try #\{ #\} #\[ #\]))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(report-errs)