add tests for #' etc

* test-suite/tests/reader.test ("#'"): Add tests for the hash-syntax
  reader macros.
This commit is contained in:
Andy Wingo 2009-05-28 15:01:30 +02:00
commit e3c5df5396

View file

@ -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)))))