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

add tests for read-cdot option

Browse Source
This commit is contained in:
AlexKnauth 2016-09-01 09:17:55 -04:00
parent d648c8cc42
commit f1906d572f
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
pkgs/racket-test-core/tests/racket/read.rktl
View File

@ -1241,6 +1241,27 @@
(test 9t0 readstr "#o11.0t0")
(test 17t0 readstr "#x11.0t0"))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; read-cdot
(parameterize ([read-cdot #true])
(test '(#%dot a b) readstr "a.b")
(test '(#%dot (#%dot a b) c) readstr "a.b.c")
(test '(#%dot (#%dot (#%dot a b) c) d) readstr "a.b.c.d")
(test '(#%dot a (#%dot b c)) readstr "a.(#%dot b c)")
(test '(#%dot a (m b c)) readstr "a.(m b c)")
(test '(#%dot (#%dot a (m b c)) (n d e)) readstr "a.(m b c).(n d e)")
(test '(#%dot (#%dot (#%dot (#%dot (#%dot a (m b c)) x) (n d e)) y) z)
readstr "a.(m b c).x.(n d e).y.z")
(test '(#%dot (f a) b) readstr "(f a).b")
(test '(#%dot (#%dot (f a) b) c) readstr "(f a).b.c")
(test '(#%dot (#%dot (#%dot (f a) b) c) d) readstr "(f a).b.c.d")
(test '(#%dot (f a) (#%dot b c)) readstr "(f a).(#%dot b c)")
(test '(#%dot (f a) (m b c)) readstr "(f a).(m b c)")
(test '(#%dot (#%dot (f a) (m b c)) (n d e)) readstr "(f a).(m b c).(n d e)")
(test '(#%dot (#%dot (#%dot (#%dot (#%dot (f a) (m b c)) x) (n d e)) y) z)
readstr "(f a).(m b c).x.(n d e).y.z"))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; srcloc->string