add tests for #' etcsyncase-in-boot-9

* test-suite/tests/reader.test ("#'"): Add tests for the hash-syntax
  reader macros.

1 files changed, 12 insertions, 0 deletions

diff --git a/test-suite/tests/reader.test b/test-suite/tests/reader.test
index bd9ba2155..5e95a7a31 100644
--- a/test-suite/tests/reader.test
+++ b/test-suite/tests/reader.test
@@ -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)))))
+
+