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

add some tests for syntax->string

Browse Source
This commit is contained in:
lkh01 2020-03-21 07:11:14 +01:00 committed by Sam Tobin-Hochstadt
parent 40c589ef8a
commit 6a7ad2e49e
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
pkgs/racket-test/tests/syntax/to-string.rkt
View File

@ -4,6 +4,22 @@
(check-equal? (syntax->string #'((a .
b))) "(a . \n b)")
(check-equal? (syntax->string #'((a b c d))) "(a b c d)")
(check-equal? (syntax->string #'(( a b c d))) "( a b c d)")
(check-equal? (syntax->string #'(a 'b #(a b c) c)) "a 'b #(a b c) c")
(check-equal? (syntax->string #'((a b _ d))) "(a b _ d)")
(check-equal? (syntax->string #'(( a b ))) "( a b )")
; we can't find where . is, default to earliest position
(check-equal? (syntax->string #'(( a b . c ))) "( a b . c )")
;; quote tests
(check-equal? (syntax->string #'('a)) "'a")
(check-equal? (syntax->string #'(' a)) "' a")
(check-equal? (syntax->string #'((quote a))) "(quote a)")
(check-equal? (syntax->string #'(( quote a ))) "( quote a )")
(check-equal? (syntax->string #'((quote a b))) "(quote a b)")
(check-equal? (syntax->string #'(( quote a b ))) "( quote a b )")
(check-equal? (syntax->string #'((quote . a))) "(quote . a)")
(check-equal? (syntax->string #'(( quote . a ))) "( quote . a )")
(check-equal? (syntax->string #'((quote a b . c))) "(quote a b . c)")
(check-equal? (syntax->string #'(( quote a b . c ))) "( quote a b . c )")