add tests for #' etc
* test-suite/tests/reader.test ("#'"): Add tests for the hash-syntax
reader macros.
This commit is contained in:
parent
6ed0c41a2d
commit
e3c5df5396
1 changed files with 12 additions and 0 deletions
|
|
@ -212,3 +212,15 @@
|
|||
exception:eof
|
||||
(with-input-from-string "#;(" read)))
|
||||
|
||||
(with-test-prefix "#'"
|
||||
(for-each
|
||||
(lambda (pair)
|
||||
(pass-if (car pair)
|
||||
(equal? (with-input-from-string (car pair) read) (cdr pair))))
|
||||
|
||||
'(("#'foo". (syntax foo))
|
||||
("#`foo" . (quasisyntax foo))
|
||||
("#,foo" . (unsyntax foo))
|
||||
("#,@foo" . (unsyntax-splicing foo)))))
|
||||
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue