diff options
author | Andy Wingo <wingo@pobox.com> | 2009-05-28 15:01:30 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-05-28 15:01:30 +0200 |
commit | e3c5df539640a36eb1493f581087d54a4714f337 (patch) | |
tree | 1a12516e10ca7cf2823903a6ec6cdca3150ea14a /test-suite | |
parent | 6ed0c41a2d621c485a0b0e1b39535fd5a1e9bd20 (diff) | |
download | guile-e3c5df539640a36eb1493f581087d54a4714f337.tar.gz |
add tests for #' etcsyncase-in-boot-9
* test-suite/tests/reader.test ("#'"): Add tests for the hash-syntax
reader macros.
Diffstat (limited to 'test-suite')
-rw-r--r-- | test-suite/tests/reader.test | 12 |
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))))) + + |