From e3c5df539640a36eb1493f581087d54a4714f337 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Thu, 28 May 2009 15:01:30 +0200
Subject: [PATCH] add tests for #' etc

* test-suite/tests/reader.test ("#'"): Add tests for the hash-syntax
  reader macros.
---
 test-suite/tests/reader.test | 12 ++++++++++++
 1 file changed, 12 insertions(+)

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